принтер

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

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

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

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

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

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

А в принципе не важно, если печать идет через винду, все равно надо через 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;

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

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