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

Печать номера страници в модуле 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.*
У него-то это где в коде???

---

← →
Daemys ©   (2004-01-09 12:45) [7]

assignprn

---

← →
KSergey ©   (2004-01-09 13:28) [8]

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

---

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

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

---

Страницы: 1 вся ветка

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



Память: 0.46 MB
Время: -0.963 c