Ver Mensaje Individual
  #5  
Antiguo 26-07-2005
Avatar de Neftali [Germán.Estévez]
Neftali [Germán.Estévez] Neftali [Germán.Estévez] is offline
[becario]
 
Registrado: jul 2004
Ubicación: Barcelona - España
Posts: 18.293
Reputación: 10
Neftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en bruto
Bueno, esos son sencillos...
Algo más simple, podría ser ésto, sin usar ni QReport ni nada de nada...
Pon un TListBox con unos cuantos elementos y un botón. En el OnClick del botón escribe el siguiente código:

Código Delphi [-]
 procedure TForm1.Button1Click(Sender: TObject);
 var
   RE:TRichEdit;
 begin
   // Crear un control de RichEdit
   RE := TRichEdit.Create(Self);
   RE.Parent := Self;
   RE.Visible := False;
   // proteccion
   try
     // Asignar las líneas
     RE.PlainText := true;
     RE.Lines.AddStrings(listbox1.Items);
     // Imprimir
     RE.Print('Título del listado');
   finally
     // Liberar
     FreeAndNil(RE);
   end;
 end;

Añade al uses la unit ComCtrls.

Más simple que ésto... difícil (aunque un poco cutre tb...)
__________________
Germán Estévez => Web/Blog
Guía de estilo, Guía alternativa
Utiliza TAG's en tus mensajes.
Contactar con el Clubdelphi

P.D: Más tiempo dedicado a la pregunta=Mejores respuestas.
Responder Con Cita