Форум: "Основная";
Текущий архив: 2004.01.20;
Скачать: [xml.tar.bz2];
Вниз
Печать номера страници в модуле 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 вся ветка
Форум: "Основная";
Текущий архив: 2004.01.20;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.01 c
