Печать на матричном принтере на рулоне

← →
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. Если есть подводные камни у данного метода, буду рад совету.

Печать на матричном принтере на рулоне Найти похожие ветки