Текущий архив: 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