Пи нажатии на печатать вылазивает ошибка I/O error 103. Очень нужна помощь.

[Magomed642]

unit Unit1;

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

type
  TForm1 = class(TForm)
    pnl1: TPanel;
    mmo1: TMemo;
    btn1: TButton;
    btn2: TButton;
    btn3: TButton;
    dlgOpen1: TOpenDialog;
    dlgSave1: TSaveDialog;
    procedure btn1Click(Sender: TObject);
    procedure btn2Click(Sender: TObject);
    procedure btn3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.btn1Click(Sender: TObject);
begin
   with dlgOpen1, mmo1 do
      if Execute then
         Lines.LoadFromFile(FileName);

end;

procedure TForm1.btn2Click(Sender: TObject);
begin
  with dlgSave1, mmo1 do
      if Execute then
        begin
           Lines.SaveToFile(FileName);
           dlgOpen1.FileName:=FileName;


end;

  end;
  procedure TForm1.btn3Click(Sender: TObject);
var  
  Prn: TextFile;  
  k: Integer;  
begin  
  AssignPrn(Prn); // Переназначаем вывод в файл на вывод в принтер
 AssignPrn(Prn);    // Готовим принтер к печати (аналог BeginDoc)
  { Для печати используем такой же шрифт, как и для показа   
    в редакторе: }  
  Printer.Canvas.Font := mmo1.Font;
  // Цикл печати:  
  for k := 0 to mmo1.Lines.Count-1 do
    WriteLn(Prn, mmo1.Lines[k]);
    CloseFile(Prn);    // Аналог EndDoc  
end;  
   end.

[Stilet]

WriteLn(Prn, mmo1.Lines[k]);

А у тебя что DOS эмулятор печати есть? Или подача прям на LTP идет, который настроен на prn файл?
Вообще в современном мире обычно печатают примерно так:
http://www.programmersforum.ru/showthread.php?t=14638
http://www.programmersforum.ru/showthread.php?t=88986

[newerow1989]

На какой строчке?

[Magomed642]

Вы можете помочь мне правильно его записать. У меня обычный Delphi 7.

[Stilet]

А ссылки, что я дал не помогают?

[Magomed642]

та же самая ошибка

[Magomed642]

вот ссылка на ошибку. https://drive.google.com/open?id=0Bx...cjQ&authuser=0

[Stilet]

та же самая ошибка

Покажи переделанный код.

[Magomed642]

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    pnl1: TPanel;
    mmo1: TMemo;
    btn1: TButton;
    btn2: TButton;
    btn3: TButton;
    dlgOpen1: TOpenDialog;
    dlgSave1: TSaveDialog;
    procedure btn1Click(Sender: TObject);
    procedure btn2Click(Sender: TObject);
    procedure btn3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.btn1Click(Sender: TObject);
begin
   with dlgOpen1, mmo1 do
      if Execute then
         Lines.LoadFromFile(FileName);

end;

procedure TForm1.btn2Click(Sender: TObject);
begin
  with dlgSave1, mmo1 do
      if Execute then
        begin
           Lines.SaveToFile(FileName);
           dlgOpen1.FileName:=FileName;


end;

  end;

  procedure TextFromMemoOnCanvas;
var  i: byte;
     number: integer; //  ?????????? ????? ? ????
     str: string;
begin
  number:= Form1.mmo1.Lines.Count;
  Form1.Canvas.Font.Size:= 15;
  for i:= 0 to number do
  begin
    str:= Form1.mmo1.Lines[i];
    Form1.Canvas.TextOut(50,50 + 25 * i,str);
  end;
end;
  procedure TForm1.btn3Click(Sender: TObject);
var  
  Prn: TextFile;  
  k: Integer;  
begin  
  AssignPrn(Prn); // Переназначаем вывод в файл на вывод в принтер
 AssignPrn(Prn);    // Готовим принтер к печати (аналог BeginDoc)
  { Для печати используем такой же шрифт, как и для показа   
    в редакторе: }  
  Printer.Canvas.Font := mmo1.Font;
  // Цикл печати:  
  for k := 0 to mmo1.Lines.Count-1 do
    WriteLn(Prn, mmo1.Lines[k]);
    CloseFile(Prn);    // Аналог EndDoc  
end;  
   end.

Оформляй код по правилам - кнопка # вверху

я новичок может не правильно все сделал

[Stilet]

Ну ты ссылки то мои читал?
Вывод делай на канву принтера, а не через ассигнование устаревшего prn файла.