| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Печать из Memo [D6, WinXP]

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

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

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

---

Anatoly Podgoretsky   (2004-07-01 10:42:00) [1]

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

---

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

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

---

Ega23   (2004-07-01 10:39:00) [3]

TPrinter.BeginDoc, TPrinter.EndDoc, F1.

---

Наверх