Печать номера страници в модуле PRINTERS

← →
korvet (2004-01-08 09:35) [0]

Обыкновенный текстовый файл выводится на лазерный принтер при помощи стандартного модуля PRINTERS стандартными средствами.
assignprn(mt);
rewrite(mt);
while not EOF(f) do
begin
readln(f,strforprint);
writeln(mt,oem2ansi(rtrim(leftmargin+strforprint)));
end;
closefile(MT);
closefile(f);

При печати текст самостоятельно (принтером или модулем?) разбывается на страници. Пришу подсказать как узнать и добавить в печатаемый текст номер страницы, в ПО существует возможность пользователем изменять размер шрифта это приводит к даной проблеме.

← →
Семен Сорокин © (2004-01-08 09:57) [1]

в стандартном модуле printers есть стандартная переменная Printer, у которой не более чем стандартные св-ва Canvas.TextHeight и PageHeight, немного нестандарно помыслив можно рассчитать в каком месте надо добавить на печать номер страницы, если я правильно все понял.
:))

← →
Korvet (2004-01-08 10:46) [2]

Как добавить я знаю, Вопрос в том как узнать номер страници который нужно добавлять

← →
KSergey © (2004-01-08 11:43) [3]

> korvet (08.01.04 09:35)

Ткните меня носом, где в приведенном вами коде используется хоть что-нибудь из модуля Printers?

← →
korvet (2004-01-09 09:38) [4]

Весь кайф в том, что он работает в фоне. Можна менять парамеры шрифта в обыкновенный текстовый файл добавлять картинки и т.д.

← →
Daemys © (2004-01-09 10:46) [5]

Сказано же: немного поразмыслив.
Посказка:
Printer.Canvas.TextHeight - высота строки
Printer.PageHeight - высота страницы

Внимание вопрос: как определить количество строк на странице и количество страниц?

← →
KSergey © (2004-01-09 12:19) [6]

Да погодите вы про Printer.*
У него-то это где в коде???

assignprn

Мда, и правда....

← →
Korvet (2004-01-09 17:14) [9]

Кто знает как в стандартном режиме распечатки текста в мудрых книгах по Делфи это называется "ТЕЛЕТАЙП" определить номер страници которая выводится на печать !!!!?

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