PDA

Ver la Versión Completa : Imprimir.... Ayuda pleasee!


Rafe
25-07-2005, 02:22:45
Hola que tal necesito imprimir el contenido que tengo almacenado en un listbox , como seria la manera mas sencilla ?? , no tengo idea de como se inprime , me podrian ayudar!! ???? gracias!!

dec
25-07-2005, 09:42:30
Hola,

Ya planteaste la misma pregunta y Neftali te respondió (http://www.clubdelphi.com/foros/showthread.php?t=23595). ¿Qué es lo que no tienes claro? ¿Podrías dar detalles sobre lo que estás intentando hacer y no te funciona?

Neftali [Germán.Estévez]
25-07-2005, 10:43:27
Y por favor, no habrás otro hilo para el mismo tema; Continua con el que ya iniciaste...

Rafe
26-07-2005, 03:41:02
Hola, disculpen por el hilo que abri innesesariamente, de los links que me dio , la verdad no entiendo mucho , es muy complejo , yo solo quiero apretar un boton y que imprima un par de lineas , q es el qreport?? , no hay alguna manera sencilla y rapida de imprimir algun listado almacenado en un listbox ?

Neftali [Germán.Estévez]
26-07-2005, 12:53:43
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:


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...;))