|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Устройства вывода. Работа с принтером
Доброго времени суток, уважаемые пользователи!
Помогите разработать приложение для вывода содержимого компонента класса TMemo на печать с использованием вывода на принтер, как в текстовый файл. Приложение должно иметь возможность настройки шрифта выводимого текста. Спасибо за внимание! |
#2
|
||||
|
||||
Класс TPrinter.
— Как тебя понимать? — Понимать меня не обязательно. Обязательно меня любить и кормить вовремя. На Delphi, увы, больше не программирую. Рекомендуемая литература по программированию |
Этот пользователь сказал Спасибо M.A.D.M.A.N. за это полезное сообщение: | ||
Delphi_Source (07.11.2013)
|
#3
|
||||
|
||||
Цитата:
Код:
procedure TForm1.Button1click(sender: tobject); begin if FontDialog1.Execute then Memo1.Font:= FontDialog1.Font; end; Цитата:
Код:
uses Printers; procedure TForm1.Button2Click(sender: tobject); var Prn: TextFile; i: integer; begin AssignPrn(Prn); // Переназначаем вывод в файл на вывод в принтер Rewrite(Prn); // Готовим принтер к печати Printer.Canvas.Font:= Memo1.Font; // Цикл печати: for i := 0 to Memo1.lines.Count - 1 do Writeln(Prn, Memo1.Lines[i]); CloseFile(Prn); end; Я не понял Вашего вопроса, но всё же Вам на него отвечу! |
Этот пользователь сказал Спасибо Alegun за это полезное сообщение: | ||
Delphi_Source (07.11.2013)
|
#4
|
|||
|
|||
Цитата:
Почему не выводится ничего в текстовый файл, а сразу идет на печать? |
#5
|
||||
|
||||
Цитата:
|
Этот пользователь сказал Спасибо poli-smen за это полезное сообщение: | ||
Delphi_Source (17.11.2013)
|
#6
|
|||
|
|||
Цитата:
Ошибка такого плана: Цитата:
|
#7
|
||||
|
||||
Цитата:
Чтобы узнать какие параметры требует для своего вызова функция AssignFile - стаём на неё курсором и нажимаем F1. |
Этот пользователь сказал Спасибо poli-smen за это полезное сообщение: | ||
Delphi_Source (17.11.2013)
|
#8
|
|||
|
|||
Цитата:
Delphi syntax - это? Там просто выбился кусочек кода и описание этого параметра на английском языке Последний раз редактировалось Delphi_Source, 17.11.2013 в 20:02. |
#9
|
||||
|
||||
Цитата:
Код:
AssignFile(Prn, 'C:\ПутьКФайлу\ИмяФайла.txt'); |
Этот пользователь сказал Спасибо poli-smen за это полезное сообщение: | ||
Delphi_Source (17.11.2013)
|
#10
|
|||
|
|||
Цитата:
Начало выводить содержимое компонента класса TMemo на печать с использованием вывода на принтер, как в текстовый файл, но принтер почему-то не печатает. До момента редактирования печать с поля Memo была, теперь почему-то не идет Последний раз редактировалось Delphi_Source, 17.11.2013 в 20:23. |
#11
|
||||
|
||||
Цитата:
|
Этот пользователь сказал Спасибо poli-smen за это полезное сообщение: | ||
Delphi_Source (17.11.2013)
|
#12
|
|||
|
|||
Цитата:
Можно подробнее об этих 2-х переменных? Как должен выглядеть этот код? |
#13
|
||||
|
||||
Цитата:
Код:
uses Printers; procedure TForm1.Button2Click(sender: tobject); var Prn, Txt: TextFile; i: integer; begin AssignPrn(Prn); // Переназначаем вывод в файл на вывод в принтер AssignFile(Txt, 'C:\ПутьКФайлу\ИмяФайла.txt'); Rewrite(Prn); // Готовим принтер к печати Rewrite(Txt); Printer.Canvas.Font:= Memo1.Font; // Цикл печати: for i := 0 to Memo1.Lines.Count - 1 do begin Writeln(Prn, Memo1.Lines[i]); Writeln(Txt, Memo1.Lines[i]); end; CloseFile(Prn); CloseFile(Txt); end; |
Этот пользователь сказал Спасибо poli-smen за это полезное сообщение: | ||
Delphi_Source (17.11.2013)
|
#14
|
|||
|
|||
Цитата:
Теперь выдает печать на прямую. Раньше было стандартное диалоговое окно для выбора параметров печати (см. вложение). Это из-за отсутствия компонента TPrintDialog? |
#15
|
||||
|
||||
Цитата:
Код:
if PrintDialog1.Execute then // Если пользователь нажал кнопку "ОК" в диалоге печати... begin // ... тогда печатаем end; |
Этот пользователь сказал Спасибо poli-smen за это полезное сообщение: | ||
Delphi_Source (17.11.2013)
|