Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.029 c
14-1129747717
Vulko
2005-10-19 22:48
2005.11.13
помогите исследовать а сходимость ряд


4-1126252766
Андрей Жук
2005-09-09 11:59
2005.11.13
Работа с национальными клавиатурами


1-1129894645
AMB
2005-10-21 15:37
2005.11.13
Запрет на изменение размера формы


2-1129991572
MakedoneZ
2005-10-22 18:32
2005.11.13
Изменение типа указателя.


1-1129728524
saNat
2005-10-19 17:28
2005.11.13
"Прокрутка" TScrollBox