Ver Mensaje Individual
  #2  
Antiguo 01-02-2010
Avatar de rgstuamigo
rgstuamigo rgstuamigo is offline
Miembro
 
Registrado: jul 2008
Ubicación: Santa Cruz de la Sierra-Bolivia
Posts: 1.646
Reputación: 17
rgstuamigo Va por buen camino
Arrow

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...
__________________
"Pedid, y se os dará; buscad, y hallaréis; llamad, y se os abrirá." Mt.7:7

Última edición por rgstuamigo fecha: 01-02-2010 a las 16:51:11.
Responder Con Cita