Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Grupo de Teaming del ClubDelphi

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 01-02-2010
jandro jandro is offline
Miembro
 
Registrado: jul 2007
Posts: 56
Poder: 17
jandro Va por buen camino
Imprimir contenido TListBox

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.
Responder Con Cita
  #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
Poder: 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
  #3  
Antiguo 01-02-2010
Avatar de delphi.com.ar
delphi.com.ar delphi.com.ar is offline
Federico Firenze
 
Registrado: may 2003
Ubicación: Buenos Aires, Argentina *
Posts: 5.932
Poder: 26
delphi.com.ar Va por buen camino
Cita:
Empezado por rgstuamigo Ver Mensaje
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!
__________________
delphi.com.ar

Dedique el tiempo suficiente para formular su pregunta si pretende que alguien dedique su tiempo en contestarla.
Responder Con Cita
  #4  
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
Poder: 17
rgstuamigo Va por buen camino
Arrow

Cita:
Empezado por delphi.com.ar Ver Mensaje
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.
__________________
"Pedid, y se os dará; buscad, y hallaréis; llamad, y se os abrirá." Mt.7:7
Responder Con Cita
  #5  
Antiguo 01-02-2010
Avatar de delphi.com.ar
delphi.com.ar delphi.com.ar is offline
Federico Firenze
 
Registrado: may 2003
Ubicación: Buenos Aires, Argentina *
Posts: 5.932
Poder: 26
delphi.com.ar Va por buen camino
Cita:
Empezado por rgstuamigo Ver Mensaje
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.
__________________
delphi.com.ar

Dedique el tiempo suficiente para formular su pregunta si pretende que alguien dedique su tiempo en contestarla.
Responder Con Cita
  #6  
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
Poder: 17
rgstuamigo Va por buen camino
Question

Cita:
Empezado por delphi.com.ar Ver Mensaje
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...
__________________
"Pedid, y se os dará; buscad, y hallaréis; llamad, y se os abrirá." Mt.7:7
Responder Con Cita
  #7  
Antiguo 01-02-2010
Avatar de Neftali [Germán.Estévez]
Neftali [Germán.Estévez] Neftali [Germán.Estévez] is offline
[becario]
 
Registrado: jul 2004
Ubicación: Barcelona - España
Posts: 18.233
Poder: 10
Neftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en bruto
Cita:
Empezado por jandro Ver Mensaje
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í.
__________________
Germán Estévez => Web/Blog
Guía de estilo, Guía alternativa
Utiliza TAG's en tus mensajes.
Contactar con el Clubdelphi

P.D: Más tiempo dedicado a la pregunta=Mejores respuestas.
Responder Con Cita
Respuesta


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
TListBox contenido (A),(B) a dos campos de texto? THACKER Varios 2 09-11-2009 20:34:40
imprimir el contenido de un formulario pablopessoa Impresión 3 11-10-2008 19:37:58
Imprimir contenido de dbgrid FGarcia Varios 2 22-05-2007 17:44:01
imprimir el contenido de un tstringgrid xias Lazarus, FreePascal, Kylix, etc. 3 20-01-2006 19:55:36
Imprimir contenido de un listbox ! Rafe Impresión 1 22-07-2005 09:45:03


La franja horaria es GMT +2. Ahora son las 23:58:53.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi