Vaya..
desconocia que en ListBox se pudiera poner Imagenes..humm
.
Bueno para poder imprimir el contenido de un ListBox, tienes muchas Opciones..entre las cuales te puedo mencionar:
1.-Mandar a imprimir directamente al puerto de la Impresora, esto requiere un poco de practica y la programcion es un poco tediosa.
2.- Utilizar algun reporteador (Quick Report,Rave Report, fast Report,etc,etc,) para mandar a Imprimir.
3.- Utilizar algun Componente de la
VCL como mediador para imprimir.
4.- Otro.
Si utilizas la
Primera Opcion puedes utilizar el Objeto
Printer de la unidad
Printers. aqui un codigo ejemplo:
Código Delphi
[-]Uses ...,...,...,Printers;...
...
...
procedure TForm1.Button2Click(Sender: TObject);
begin
with Printer do
begin
BeginDoc;
Canvas.TextRect(Rect(200,200,PageWidth-200,PageHeight-200),
200, 200, ListBox1.Items.Text); EndDoc;
end;
end;
Si eliges la
segunda Opcion tendras que Hacerte un reporte utilizando los componentes y herramientas que tu reporteador te Brinda.
En el caso que elijas la
tercera opcion que te estoy proponiendo, pues se me ocurre que utilizes el componente
TRichEdit como mediador ya que posee un metodo para imprimir. Por ejemplo:
Código Delphi
[-]Uses ...,...,...,ComCtrls;...
...
procedure TForm1.Button1Click(Sender: TObject);
var aux:TRichEdit;
begin
aux:=TRichEdit.Create(Application); aux.Parent:=Form1; aux.Visible:=False; aux.Lines.Assign(ListBox1.Items); aux.Print('Mi Titulo de Impresion'); aux.Free;end;
Espero te sea de utilidad.
Saludos...