Imprimir contenido TListBox

[jandro]

Hola a todos!!

Alguien conoce alguna funcion para poder imprimir el contenido de un ListBox??

Yo en este caso en particular tengo una lista de personas y su respectiva foto dentro del ListBox.

Gracias de antemano.
Saludos.

[rgstuamigo]

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);//Imprimo en esa cordenada
    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);// creo un objeto TRichEdit
  aux.Parent:=Form1;//Pongo a Mi Formulario como padre del objeto Aux
  aux.Visible:=False;// Hago no visible al objeto Aux
  aux.Lines.Assign(ListBox1.Items);//Asigno los item que tengo en el ListBox al objeto Aux
  aux.Print('Mi Titulo de Impresion');//Mando a imprimir
  aux.Free;//Destruyo  y Libero el Objeto Aux.
end;

Espero te sea de utilidad.
Saludos...

[delphi.com.ar]

Empezado por rgstuamigo

1.-Mandar a imprimir directamente al puerto de la Impresora, esto requiere un poco de practica y la programcion es un poco tediosa.

Si tienes una impresora local, o mappeado el puerto de una impresora remota, y solo quieres imprimir texto sin formato, puedes hacer esto:

Código Delphi [-]
MiListBox.Items.SaveToFile('LPT1')

PD: Mil disculpas nuevamente al compañero rgstuamigo que le edité accidentalmente el post y volvió a escribirlo con lujo de detalles.

Saludos!

[rgstuamigo]

Empezado por delphi.com.ar

Si tienes una impresora local, o mappeado el puerto de una impresora remota, y solo quieres imprimir texto sin formato, puedes hacer esto:
Código Delphi [-]MiListBox.Items.SaveToFile('LPT1')

Saludos!

Interesante respuesta , pero tal parece que ami no me funciona , tengo una impresora local, pero al mandar a imprimir con el puerto LPT1, simplemente la aplicacion se congela y no hace nada.

[delphi.com.ar]

Empezado por rgstuamigo

Interesante respuesta , pero tal parece que ami no me funciona , tengo una impresora local, pero al mandar a imprimir con el puerto LPT1, simplemente la aplicacion se congela y no hace nada.

No comprendo porque no funciona, básicamente es lo mismo que imprimir en el puerto a la vieja usanza.

[rgstuamigo]

Empezado por delphi.com.ar

No comprendo porque no funciona, básicamente es lo mismo que imprimir en el puerto a la vieja usanza.

Pues lo he probado amigo Fede, pero no me imprime...Me gustaria saber si tú lo has probado y si te funciona..
Saludos...

[Neftali [Germán.Estévez]]

Empezado por jandro

Yo en este caso en particular tengo una lista de personas y su respectiva foto dentro del ListBox.

A mi en particular tampoco me ha quedado claro cómo tienes la imagen dentro del ListBox.
¿Puedes explicarlo?
¿Se debe imprimir la foto además del texto? Varía la forma de hacerlo asi es así.