Уже на нескольких форумах спрашивал, никто не отвечает в тему. Может есть тут люди, которые знают.
Есть такая проблема. Хочу программно изменить размер(формат) бумаги.
Т.е. после того, как отработает программа, в настройках принтера должны быть настройки, которые она установила.
Но почему-то не полусается. Есть код.

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;
pdMode^.dmPaperSize := DMPAPER_A5;
GlobalUnlock(hDMode);
end;
end;
end.

Может надо как-то получать предварительно значения для функции GetPrinter?
а потом ставить SetPrinter....

| Сообщение посчитали полезным:

hxxp://borland.xportal.ru/forum/printview.php?t=10117&start=0&sid=72fe 2bc5724ec8c08fa5e3edcbd5603f

| Сообщение посчитали полезным: