assignprn(ptext)(20分)

assignprn(ptext)为何通不过？
d7
procedure TForm1.Button2Click(Sender: TObject);
var
i:integer;
ptext:textfile;
begin
inherited;
if PrintDialog1.Execute then
begin
Assignprn(ptext);
Rewrite(ptext);
try
with printerdo
Canvas.Font:=Memo1.Font;
for i:=0 to memo1.Lines.Count-1do
writeln(ptext,memo1.lines);
finally
CloseFile;
end;
end;
end;

在Users 单元中包括 Printers 单元便可以。

好了，谢谢！