Impresión papel A3

[roman]

Haciendo algunas pruebas me funciona este 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