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

Советы » Принтеры и Печать » Как указать размер страницы не используя 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

;

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

Категории

Статьи

Советы

Copyright © 2023 - All Rights Reserved - www.delphirus.com