delphi 7打印不了的问题

[yuxueyou]

程序代码：
procedure TForm1.Button2Click(Sender: TObject);

begin
if PrintDialog1.Execute then
begin
Printer.BeginDoc;
printer.Canvas.rectangle(0,0,100,100);
Printer.EndDoc;
end;
end;
end.
编译能通过 可是按了按钮后选者打印机却出现打印到文件的输入框，给输入框输入名字后却不是打印而是在程序的文件夹下面生成一个什么软件都不能打开的文件，郁闷，Printer.BeginDoc;这句好象是引起的，我电脑的环境是WINDOW XP +DELPHI 7.0

[de410]

不会吧，我这边测试没有问题，你决定你选择好了打印机~~

[justin_wkf]

默認打印機問題

[yuxueyou]

我这边都可以打印WORD这些呀 但是打印机是安装在别的计算机上 我们是在同一个路由下面的

[bdmh]

是不是选择了打印到文件了

[亮剑_]

你的默认打印是虚拟打印机吧，比如PDF或Office的

[yuxueyou]

我是安装了一个PDF的打印机 可是我把默认打印机改到打印机上输出的也是一个文件