Печать на матричном принтере на рулоне
atruhin © (2006-11-15 19:11:00)
При печати на рулоне возникает такая проблемма, что
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:00) [1]
Нашел в msdn настройку DevMode, dmPaperLength. Буду пробовать.
Вроде вопрос закрыт.
PS. Если есть подводные камни у данного метода, буду рад
совету.
Наверх 
ЧАТ |
Орешник |
|
