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;