FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
Impresión papel A3
Hola delphian@s
Tengo que imprimir un listado en un papel A3, necesito imprimirlo directamente. El problema es que no soy capaz de decirle a la impresora que el papel que es A3. ¿Como puedo hacerlo? Este es el códifgo que utilizo para la impresión. Printer.GetPrinter(Device, Driver, Port, hDeviceMode); Printer.SetPrinter(Impresora, Driver, Port, hDeviceMode); Printer.Title := 'DOC 551'; Printer.Orientation := poLandscape; Printer.BeginDoc; With Printer.canvas do Begin Font.Name := 'Courier'; Font.Color := ClBlack; Pen.Color := ClBlack; Font.Size := 11; TextOut(40, PosLinea, DMData.QImprDoc.FieldByName('PAIS').AsString) ; End ; Gracias por la ayuda |
#2
|
||||
|
||||
Haciendo algunas pruebas me funciona este código:
Código:
var Device, Driver, Port: array[Byte] of Char; DeviceMode: THandle; DevMode: PDeviceModeA; begin Printer.GetPrinter(Device, Driver, Port, DeviceMode); DevMode := Windows.GlobalLock(DeviceMode); DevMode.dmPaperSize := DMPAPER_A3; Printer.SetPrinter(Device, Driver, Port, DeviceMode); Windows.GlobalUnlock(DeviceMode); end; // Saludos |
|
|
|