Foros Club Delphi - Impresión papel A3

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Impresión (https://www.clubdelphi.com/foros/forumdisplay.php?f=4)

- - Impresión papel A3 (https://www.clubdelphi.com/foros/showthread.php?t=5315)

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

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;

que trabaja sobre la impresora actualmente seleccionada y sólo si ésta puede manejar dicho tamaño de papel.

// Saludos