Ver la Versión Completa : Imprimir.... Ayuda pleasee!
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!!
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...
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...;))
vBulletin v3.6.8, Derechos ©2000-2024, Jelsoft Enterprises Ltd.