Печать TMemo

[Патрон]

Подскажите пожалуйста как сделать чтобы по нажатии на кнопку "Печать" выводилось такое окно как у стандартного блокнота в Windows, и печаталось так же как и написано в TMemo? Я сам над этим думал... но вот все, чего я смог добится:

uses
 Printers;
procedure TForm1.N12Click(Sender: TObject);
var
  To_Prn : TextFile;
begin
  N12.Enabled:=false;
  AssignPrn(To_Prn);
  Rewrite(To_Prn);
  Writeln(To_Prn, Memo1.Text);
  CloseFile(To_Prn);
end;

Всем заранее большое спасибо.

[Gladiator]

Похожее окно на то что в блокноте получается.....
кидаешь на форму TPrintDialog с панели Dialogs..
А в своем коде сразу после Begin добавь
if PrintDialog1.Execute then begin
..
..
ну и естественно end;

[Патрон]

Сообщение от Gladiator

Похожее окно на то что в блокноте получается.....
кидаешь на форму TPrintDialog с панели Dialogs..
А в своем коде сразу после Begin добавь
if PrintDialog1.Execute then begin
..
..
ну и естественно end;

А что от этого изменилось? только бумагу перевел мне нужно чтобы мой блокнот печатал также как и стандартный блокнот в Windows, а тут строки разбиты, и шрифт мелкий

[N!ckeL]

Шрифт задаётся в Tmemo, хотя лучше использовать RichEdit, можно положение текста регулировать вот так:

var
  i:integer;
begin
printer.BeginDoc;
for i:=0 to Memo1.Lines.Count-1 do
begin
printer.Canvas.TextOut(5 {-Отступ слева}, i+15 {-Отступ сверху}, memo1.lines.strings[i]);
end;
printer.EndDoc;
end;

[Патрон]

скажите ПОЖАЛУЙСТА функцию НОРМАЛЬНОЙ печати текста в TMemo!

[N!ckeL]

Вот ещё один метод:

var
 t:textfile;
 i:integer;
begin
 assignprn(t);
 rewrite(t);
for i:=0 to memo1.lines.count-1 do
writeln(f, memo1.lines.strings[i]);
closefile(f);
end;

[Патрон]

ну уже со строками все впорядке, но шрифт по-прежнему мелкий

[N!ckeL]

шрифт мелкий

в memo регулируется шрифт..

строки разбиваются

это как? Можно поподробнее..

[Патрон]

Сообщение от N!ckeL

в memo регулируется шрифт..

это как? Можно поподробнее..

не знаю, он не регулируется, т.е. в Memo шрифт менять можно а на бумаге он мелкий а строки, например в Memo написать столбцом и распечатать, то на бумаге они как будто слитные...

[evg_m]

в примере от nickel добавить

printer.canvas.fornt.size:=20; или любое другое число