- Мы, интердевочки, - девочки, работающие в Интернете. Дружок, иди сюда, я помогу тебе, я научу тебя правильно пользоваться твоим Пентиумом. Поиграй со мной в твои игры... Вот диск твой становится жестким. Ты копишь информацию... Оооо! начинает работать твой струйный принтер!...
- Простите, а что, дома вам этого не хватает?
- Дома мой муж работает со мной в режиме пользователя.
- Ничего, зато есть гарантия от любого вируса!
Я использую следующий код. Уже с год как работает.
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 thenbegin
pDMode :=GlobalLock(hDMode);
if pDMode <> nilthenbegin
pdMode^.dmOrientation :=2;
// landscape
pdMode^.dmPaperSize := DMPAPER_A3
// (см. win32.hlp DEVMODE)
GlobalUnlock(hDMode);
end;
end;
end;
Статья Как указать размер страницы не используя TPrinterSetupDialog раздела ОС и Железо Принтеры и Печать может быть полезна для разработчиков на Delphi и FreePascal.
