Club Delphi  
    Paypal   FTP   CCD     Buscar   Trucos   Trabajo   Foros

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

 
 
Herramientas Buscar en Tema Desplegado
  #2  
Antiguo 18-10-2007
Avatar de ArdiIIa
[ArdiIIa] ArdiIIa is offline
Miembro Premium
 
Registrado: nov 2003
Ubicación: Valencia city
Posts: 1.481
Poder: 24
ArdiIIa Va por buen camino
Bienvenido al foro.
A ver si así vale:

Código Delphi [-]

procedure TPrincipal.Button1Click(Sender: TObject);
Var I ,X , Y : integer;
begin
X := 2500;
Y := 900;
For I := 0 to Principal.ControlCount -1 DO
  If Principal.Controls[i] is TEdit then
    if TEdit(Principal.Controls[i]).Text <> ''then
      Begin
         Printer.Canvas.textout(X,Y,TEdit(Principal.Controls[i]).Text);
         Inc(Y,900);
      End;

end;
__________________
Un poco de tu generosidad puede salvar la vida a un niño. ASÍ DE SENCILLO
Responder Con Cita
 


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
Vista previa de Printer.Canvas JOMABRI Impresión 2 03-01-2007 02:33:17
Printer.Canvas Imprime Basura berna Impresión 0 09-07-2004 19:31:15
Impresión lenta en Printer.Canvas JOMABRI Impresión 3 30-06-2004 14:13:13
largo de pagina, impresion en Printer.Canvas jac000y Impresión 1 22-12-2003 17:29:14
Necesito Ayuda JavierVV Varios 2 22-10-2003 13:14:06


La franja horaria es GMT +2. Ahora son las 16:00:20.


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