Главная / DELPHI / Часто задаваемые вопросы и ответы на них / Редакторы текста, отчеты / Как указать размер страницы не используя TPrintSetupDialog

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

»»» Адександр Герцог - hertsog@mtg.gazprom.ru (17.07.00 08:49)
Я использую следующий код.
Уже с год как работает.

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;
 . . .

-= Из конференции сайта MASTERS OF DELPHI (http://delphi.mastak.com) =-

Copyright ©   "Мастера DELPHI"   E-mail:   delphi@mastak.com  http://www.delphimaster.ru

Источник получения информации: http://www.delphimaster.ru