Пользовательский формат бумаги

← →
Programmix © (2004-12-28 15:36) [0]

Необходимо задать пользовательский формат бумаги принтера. У данного принтера (HP deskjet 3550) через диалог можно задать до 3-х пользовательских размеров бумаги. Как же сделать это программно? Попытки использовать поля dmPaperSize, dmPaperWidth, dmPaperLength структуры PDeviceMode^ успеха не приносят, с DocumentProperties тоже не получается. Если кто-то знает как задать пользовательский формат бумаги в Delphi, приведите пожалуйста код, а то устал "топтаться на месте". Помогите кто может.

← →
Programmix © (2004-12-28 16:07) [1]

А в ответ - тишина...

← →
Programmix © (2004-12-28 16:26) [2]

Да... Это вам не OnDblClick...

← →
Programmix © (2004-12-28 16:40) [3]

Если надо подождать, я подожду...

← →
Programmix © (2004-12-28 16:41) [4]

Может что-то в вопросе непонятно?

← →
Programmix © (2004-12-28 16:48) [5]

Ну что? Никаких идей?

← →
Семен Сорокин © (2004-12-28 16:59) [6]

var DeviceMode: THandle; DevMode: PDeviceMode; Device, Driver, Port: array[0..MAX_PATH] of Char; DriverInfo2: PDriverInfo2; DriverInfo2Size: DWORD; hPrinter: THandle; Printer.GetPrinter(Device, Driver, Port, DeviceMode); DevMode := PDevMode(GlobalLock(DeviceMode)); try with DevMode^ do //устанавливаешь св-ва ... finally GlobalUnlock(DeviceMode); end; ResetDC(Printer.Handle, DevMode^); OpenPrinter(Device, hPrinter, nil); try GetPrinterDriver(hPrinter, nil, 2, nil, 0, DriverInfo2Size); GetMem(DriverInfo2, DriverInfo2Size); try GetPrinterDriver(hPrinter, nil, 2, DriverInfo2, DriverInfo2Size, DriverInfo2Size); StrPCopy(Driver, ExtractFileName(StrPas(DriverInfo2^.PDriverPath))); finally FreeMem(DriverInfo2, DriverInfo2Size); end; finally ClosePrinter(hPrinter) end; Printer.SetPrinter(Device, Driver, Port, DeviceMode);

← →
Programmix © (2004-12-28 18:35) [7]

Да этот код работает, но только для стандартных размеров бумаги, при попытке установить нестандартные размеры ничего не происходит, к сожалению...

← →
Семен Сорокин © (2004-12-28 18:45) [8]

dmFields := dmFields or DM_PAPERSIZE;
dmPaperSize := DMPAPER_USER;

???
приведи код заполнения св-в

← →
Programmix © (2004-12-28 18:49) [9]

with DevMode^ do
try
dmFields :=dmFields + DM_PAPERSIZE + DM_PAPERWIDTH + DM_PAPERLENGTH;
dmPaperSize := DMPAPER_FIRST;
dmPaperWidth := NewPaperWidthMM; //1500
dmPaperLength := NewPaperHeightMM; //1300
finally
GlobalUnlock(DeviceMode);
end;

← →
Programmix © (2004-12-28 18:53) [10]

извиняюсь не DMPAPER_FIRST а DMPAPER_USER (просто опечатка, в программе именно DMPAPER_USER)

← →
Семен Сорокин © (2004-12-28 18:54) [11]

dmPaperSize := DMPAPER_USER;
?

см [10]

попробуй так:

with DevMode^ do
try
dmFields := dmFields or DM_PAPERSIZE or DM_PAPERWIDTH or DM_PAPERLENGTH or DM_ORIENTATION and not DM_FORMNAME;
dmPaperSize := DMPAPER_USER;
dmPaperWidth := NewPaperWidthMM; //1500
dmPaperLength := NewPaperHeightMM; //1300
dmOrientation := DMORIENT_PORTRAIT; //DMORIENT_LANDSCAPE;
finally
GlobalUnlock(DeviceMode);
end;

dmOrientation меняется, размеры - нет

вот еще нашел:

GetPrinter (ADevice, ADriver, APort, ADeviceMode); SetPrinter (ADevice, ADriver, APort, 0); {force a Valid DevMode} GetPrinter (ADevice, ADriver, APort, ADeviceMode); {Now aDeviceMode is valid}

ЗЫ. Глянь сюда:
http://www.tamaracka.com/
я домой :)
С Уважением.

Спасибо, всего доброго.

Пользовательский формат бумаги Найти похожие ветки