![]() |
![]() |
![]() |
![]() |
![]() |
FTP | ![]() |
![]() |
CCD | ![]() |
![]() |
Buscar | ![]() |
![]() |
Trucos | ![]() |
![]() |
Trabajo | ![]() |
![]() |
Foros | ![]() |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
Incluir codigo para tamaño de papel
saludos,
Para imprimir con papel personalizado, encontré en este foro el siguiente código: La pregunta es: Donde lo incluyo, en que evento?? Mil Gracias. with Printer do begin getPrinter(ADevice,ADriver,APort,DeviceHandle); if DeviceHandle <> 0 then begin DevMode := GlobalLock(DeviceHandle); //GlobalUnlock(DeviceHandle); end; with DevMode^ do begin dmFields := dmFields or DM_PAPERWIDTH; //dmPaperSize := DMPAPER_LETTER; //dmPaperWidth := 1500; dmPaperWidth := 500; dmPaperLength := 500; dmPaperSize := DMPAPER_USER; dmFields := dmFields or DM_PAPERSIZE or DM_PAPERLENGTH or DM_PAPERWIDTH; end; globalUnlock(DeviceHandle); printer.SetPrinter(ADevice, ADriver, APort, DeviceHandle); end; |
|
|
![]() |
|