Установить размеры бумаги

var
  Device, Driver, Port: array[0..80] of Char;
  DevMode: THandle;
  pDevmode: PDeviceMode;
begin
  // Get printer device name etc.
  Printer.GetPrinter(Device, Driver, Port, DevMode);
  // force reload of DEVMODE
  Printer.SetPrinter(Device, Driver, Port, 0) ;
  // get DEVMODE handle
  Printer.GetPrinter(Device, Driver, Port, DevMode);
  If Devmode <> 0 Then Begin
    // lock it to get pointer to DEVMODE record
    pDevMode := GlobalLock( Devmode );
    If pDevmode <> Nil Then
    try
      With pDevmode^ Do Begin
        // modify paper size
        dmPapersize := DMPAPER_B5;
        // tell printer driver that dmPapersize field contains
        // data it needs to inspect.
        dmFields := dmFields or DM_PAPERSIZE;
      End;
   finally
     // unlock devmode handle.
     GlobalUnlock( Devmode );
   end;
  End; { If }
end;