Текущий архив: 2004.03.28;
Скачать: CL | DM;

Вниз

принтер   Найти похожие ветки 

← →
selena   (2004-01-09 12:42) [0]

Здраствуйте
Как при печати из richedit через PRINTER сделать черновую распечатку, т.е в один проход каретки ,а не в два?

---

← →
REP ©   (2004-01-09 13:12) [1]

На матричном принтере что-ли?

---

← →
selena   (2004-01-09 13:14) [2]

да на матричном

---

← →
REP ©   (2004-01-09 13:32) [3]

А в принципе не важно, если печать идет через винду, все равно надо через TDeviceMode.

Получи указатель на структуру TDeviceMode:

Var
Dev,Dr,Port:Array [0..255] of Char;
H:THandle;
DM:PDeviceMode;
Begin
Printer.GetPrinter(Dev,Dr,Port,H);
If H<>0 Then begin
 DM:=GlobalLock(H);
end;
А теперь устанавливаем черновое качество:
With DM^ do begin
 dmField:=dmField or DM_PRINTQUALITY;
 dmPRINTQUALITY:= DMRES_DRAFT; - это черновая печать
end  ;

Не забудь освободить H
end;

Пример накалякал прямо тут, возможно он не работает, но пробуй...

---

Страницы: 1 вся ветка

Текущий архив: 2004.03.28;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.026 c