Текущий архив: 2005.11.13;
Скачать: CL | DM;
Вниз
Мемо и печать Найти похожие ветки
← →
проходил_мимо_решил_зайти (2005-10-20 17:53) [0]Доброго времени суток господа. Есть такая проблема: У меня есть на форме есть мемо в котором есть некая инфа и вот хотелось бы эту инфу распечатать, что делать? как быть?
← →
umbra © (2005-10-20 18:03) [1]Сохранить в файл (Memo1.Lines.SaveToFile) и напечатать
← →
menart © (2005-10-20 18:57) [2]
procedure TFPrinter.Button1Click(Sender: TObject);
var
f:textfile;
i:integer;
begin
With Printer do Begin
// Начало печати
AssignPrn(f);
Rewrite(f);
// Задали шрифт
Canvas.Font:=memo1.Font;
// Печатаем текст
for i:=0 to memo1.Lines.Count-1 do
writeln(f,memo1.lines[i]);
System.CloseFile(f);
// Конец печати
end;
close
end;
← →
menart © (2005-10-20 18:58) [3]только добавь:
uses PRINTERS;
← →
проходил_мимо_решил_зайти (2005-10-21 09:24) [4]Спасибо menart © за полный ответ, все получилось благодарю.
Страницы: 1 вся ветка
Текущий архив: 2005.11.13;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.028 c
