Текущий архив: 2007.01.07;
Скачать: CL | DM;
Вниз
Печать на матричном принтере на рулоне Найти похожие ветки
← →
atruhin © (2006-11-15 19:11) [0]При печати на рулоне возникает такая проблемма, что Printer.PageHeight
не зависит от настроек принтера. Т.е. в настройках принтера ставлю
тпи бумаги 76*3000 мм, а при попытке печатать, печатает около 30 см
(длина листа А4) и все.
Пробую так:
with Printer do begin
BeginDoc;
if FontName <> ""
then Canvas.Font.Name := FontName;
Canvas.Font.Style := [fsBold];
Canvas.Font.Size := FontSize;
SPChar := PChar(FInData);
Len := length(FInData);
while len > 0 do begin
S := GetLine(SPChar, len );
Canvas.TextOut(0,20 + (Tmp * Canvas.TextHeight(S)), S);
inc(Tmp);
end;
EndDoc;
end;
← →
atruhin © (2006-11-15 19:50) [1]Нашел в msdn настройку DevMode, dmPaperLength. Буду пробовать.
Вроде вопрос закрыт.
PS. Если есть подводные камни у данного метода, буду рад совету.
Страницы: 1 вся ветка
Текущий архив: 2007.01.07;
Скачать: CL | DM;
Память: 0.46 MB
Время: 0.042 c
