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
|