Форум: "Система";
Текущий архив: 2004.03.28;
Скачать: [xml.tar.bz2];
Вниз
принтер Найти похожие ветки
← →
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;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.022 c
