Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.032 c