Главная Вход в систему Регистрация
Задать вопрос Консультации Пользователи Форум
О системе Помощь
Задать вопрос экспертам
Консультация № 66559
11.12.2006, 19:27
0.00 руб.
0 1 1
Компьютеры Программирование
Здравствуйте Уважаемые!У меня следующая проблема, в свой программе я вывожу на печать содержимое TMemo с помощью следующей процедуры
procedure PrintStrings(Strings: TStrings);
var
Prn: TextFile;
i: word;
begin
AssignPrn(Prn);
try
Rewrite(Prn);
try
for i := 0 to Strings.Count - 1 do
writeln(Prn, Strings.Strings[i]);
finally
CloseFile(Prn);
end;
except
on EInOutError do
MessageDlg(‘Error Printing text.‘, mtError, [mbOk], 0);
end;
end;
используя следующую команду:
PrintStrings(Memo1.Lines);
У меня вопрос,можно ли сделать так, что бы печать шла шрифтом Courier.Или может напишите свой код.


Обсуждение

Неизвестный
12.12.2006, 07:04
общий
это ответ
Здравствуйте, Delphi-n!

Вот Вам рабочий код, в хелпе можете почитать Printing Example поподробнее или просмотреть TPrinter находящийся в QPrinters.

Приложение:
procedure TForm1.Button1Click(Sender: TObject);var prnt:Tprinter;i:integer;beginprnt:=Tprinter.Create;prnt.BeginDoc;prnt.Canvas.Font.Name:=‘Comic Sans MS‘;prnt.Canvas.Font.Size:=12;prnt.Canvas.TextRect(Rect(200,200,prnt.PageWidth-200,prnt.PageHeight-200), 200, 200, Memo1.Lines.Text);prnt.EndDoc;end;
Форма ответа