Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.07.18;
Скачать: CL | DM;

Вниз

Печать из Memo   Найти похожие ветки 

 
Галинка ©   (2004-07-01 10:37) [0]

Да вот вроде и весь вопрос...

Милости прошу...


 
Ega23 ©   (2004-07-01 10:39) [1]

TPrinter.BeginDoc, TPrinter.EndDoc, F1.


 
Iconka   (2004-07-01 10:40) [2]

To Галинка
Прежде чем задавать вопрос посмотри хотябы дэмки и хелп! Или ты хочешь что бы за тебя это делали другие???  >:-<


 
Anatoly Podgoretsky ©   (2004-07-01 10:42) [3]

procedure TMainForm.mfPrintClick(Sender: TObject);
var
POutput : TextFile;
Ln   : LongInt;
begin
if PrintDialog.Execute then begin        // if Print Dialog OK
 AssignPrn(POutput);              // assign
 ReWrite(POutput);               // open printer
 Printer.Canvas.Font := EditWnd.Font;     // assign font to printer
 for Ln := 0 to EditWnd.Lines.Count - 1 do begin
  WriteLn(POutput,EditWnd.Lines[Ln]);     // print one line
 end;
 CloseFile(POutput);              // close printer
end
end; // mfPrintClick



Страницы: 1 вся ветка

Текущий архив: 2004.07.18;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.025 c
3-1087827970
Karlson
2004-06-21 18:26
2004.07.18
Работа с информацией из выбранных строк в DbGrid


3-1087974347
SergP
2004-06-23 11:05
2004.07.18
Oracle. Вопрос про Create tablespace.


3-1088061929
Марат
2004-06-24 11:25
2004.07.18
Движение курсора в DBGrid


1-1089194369
Abajun
2004-07-07 13:59
2004.07.18
преобразование строки в массив и обратно


6-1085298945
PR
2004-05-23 11:55
2004.07.18
Вопрос по сокетам