![]() |
![]() |
| Paypal | FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
#3
|
|||
|
|||
|
ok. mira
procedure tfactura.impresion; begin D1:=inttostr(Printer.Printerindex);//variables D2:=printer.Printers.Strings[strtoint(D1.caption)];//para saber que impresora es// if D2.Caption='Epson LX-300+' THEN BEGIN TRY Application.CreateForm(TRFACTURA3000, RFACTURA3000); RFACTURA3000.QuickRep1.PREVIEW; FINALLY RFACTURA3000.Free; RFACTURA3000:=NIL; END; END ELSE if D2.Caption='Epson FX-1170' THEN BEGIN TRY Application.CreateForm(TRFACTURA1170, RFACTURA1170); RFACTURA1170.QuickRep1.PREVIEW; FINALLY RFACTURA1170.Free; RFACTURA1170:=NIL; END; END ELSE BEGIN SHOWMESSAGE('NO EXISTE FORMATO PARA ESTA IMPRESORA'); END; end; esto es lo que utilzo para imprimir.. si solo imprimo en la 1170 todo bien, pero en la lx-300 no me salen los datos del cliente... |
| Herramientas | Buscar en Tema |
| Desplegado | |
|
|
|