Как указать размер страницы не используя TPrinterSetupDialog

Я использую следующий код. Уже с год как работает.

var

  Device : array
[0..cchDeviceName-1] of
 Char;
  Driver : array
[0..(MAX_PATH-1)] of
 Char;
  Port : array
[0..32] of
 Char;
  hDMode : THandle;
  pDMode : PDevMode;
  sDev : array
[0..32] of
 Char;
begin

  Printer.GetPrinter(Device,Driver,Port,hDMode);
  if
 hDMode <> 0 then

  begin

    pDMode :=GlobalLock(hDMode);
    if
 pDMode <> nil
 then

    begin

      pdMode^.dmOrientation :=2;
      // landscape
      pdMode^.dmPaperSize := DMPAPER_A3
      // (см. win32.hlp DEVMODE)
      GlobalUnlock(hDMode);
    end
;
  end
;
end
;

Другое по теме:

• Escape код PASSTHROUGH
• Вместо печати графики использовать резидентный шрифт принтера
• Вывести все способы подачи бумаги для печати