Устройства вывода. Работа с принтером

[Programmer_Forum]

Доброго времени суток, уважаемые пользователи!
Помогите разработать приложение для вывода содержимого компонента класса TMemo на печать с использованием вывода на принтер, как в текстовый файл. Приложение должно иметь возможность настройки шрифта выводимого текста.
Спасибо за внимание!

[Vanta11a]

Язык? Наработки? Размер благодарности?

[Stilet]

с использованием вывода на принтер, как в текстовый файл

Тоесть? Поясни эту фразу.
Можно кстати в классике посмотреть: http://delphiworld.narod.ru/base/print_strings.html

[Programmer_Forum]

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

Язык? Наработки?

Язык: Delphi
Наработки:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Printers, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Memo: TMemo;
    FontDialog1: TFontDialog;
    PrintDialog1: TPrintDialog;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1click(sender: tobject); 
begin
 if FontDialog1.Execute then Memo.Font:= FontDialog1.Font;
end;

procedure TForm1.Button2Click(sender: tobject); 
var i:integer;
Prn:TextFile;
begin
//Если запущен диалог печати и не было отмены
if PrintDialog1.Execute then begin
//Задание количества копий
Printer.Copies:=PrintDialog1.Copies;
//Задание параметров шрифта
Printer.Canvas.Font.Name:='Times New Roman';
Printer.Canvas.Font.Size:=14;
//Связывание текстового файла с принтером по умолчанию
AssignPrn(Prn);
try
//Открытие файла для записи
Rewrite(Prn);
try
//Вывод строк из поля Memo
for i := 0 to Memo.Lines.Count - 1 do
writeln(Prn, Memo.Lines[i]);
finally
//Закрытие принтера
CloseFile(Prn);
end;
except
//Сообщение при ошибке
on EInOutError do
MessageDlg('Ошибка печати текста.', mtError, [mbOk], 0);
end;
end;
end;


end.

Однако, не получается вывести содержимое компонента класса TMemo на печать с использованием вывода на принтер, как в текстовый файл.

Что не так?

Почему не выводится ничего в текстовый файл, а сразу идет на печать?

[ZX Spectrum-128]

Так и должно быть. Prn - это принтер. Сообщ. #3 читали?

[Stilet]

с использованием вывода на принтер, как в текстовый файл.

Нужно не так делать. Если хочешь использовать принтер как текстовое устройство то нужно его открыть и посылать на печать как в файл:

f:text;
...
assignfile(f,'LPT1'); rewrite(f);
writeln(f,'text');
closefile(f);
...

иллюстрирует один из методов работы с LPT принтером.

[Programmer_Forum]

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

Нужно не так делать. Если хочешь использовать принтер как текстовое устройство то нужно его открыть и посылать на печать как в файл:

f:text;
...
assignfile(f,'LPT1'); rewrite(f);
writeln(f,'text');
closefile(f);
...

иллюстрирует один из методов работы с LPT принтером.

Куда этот код вставить?