FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
|
#1
|
|||
|
|||
largo de pagina, impresion en Printer.Canvas
tengo que imprimir facturas en el canvas por cuestiones de velocidad de impresion, y no logre aun setear el largo de pagina
si alguien lo sabe, gracias aLe |
#2
|
||||
|
||||
Código:
procedure SetPaperSize (intAlto,intAncho : Integer); {aqui se define el tamaño del papel} var ADevice, ADriver, APort : array [0..255] of Char; ADeviceMode : THandle; DevMode : PDevMode; begin with Printer do begin GetPrinter (ADevice, ADriver, APort, ADeviceMode); SetPrinter (ADevice, ADriver, APort, 0); GetPrinter (ADevice, ADriver, APort, ADeviceMode); DevMode := GlobalLock(ADeviceMode); if not Assigned(DevMode) then ShowMessage('Ha entrado en -> if not Assigned(DevMode) ...') else begin with DevMode^ do begin dmPaperSize:= DMPAPER_User; dmPaperLength := intAlto; dmPaperWidth:= intAncho; dmFields := dmFields or DM_PAPERSIZE or DM_PAPERLength or DM_PAPERWidth; end; GlobalUnLock(ADeviceMode); SetPrinter(ADevice, ADriver, APort, ADeviceMode); end; end; end;
__________________
Guía de Estilo de los Foros Cita:
|
|
|
|