菜鸟求助：怎么弹出打印对话框

[梦入神经]

就是浏览器按Ctrl+P弹出的对话框，怎么在delphi中弹出来，刚接触delphi不久，请讲得稍微详细点，不胜感激。

[梦入神经]

[sololie]

有 TPrintDialog、TPrinterSetupDialog 两个控件 都是显示一个打印相关的对话框，用它们的 execute 函数调用 PrintDialog1.Execute; PrinterSetupDialog1.Execute;

[sololie]

例如拖一个TPrintDialog控件出来，拖一个button1出来 // button1 点击 procedure tform1.button1click(sender:tobject); begin if printdialog1.execute then begin // .... end; end;

[梦入神经]

引用 2 楼 sololie 的回复:

有 TPrintDialog、TPrinterSetupDialog 两个控件 都是显示一个打印相关的对话框，用它们的 execute 函数调用 PrintDialog1.Execute; PrinterSetupDialog1.Execute;

我直接可以这样写吗？ procedure TActiveFormX4.showPrintDialog(x: Integer); begin PrintDialog1.Execute; end; PrintDialog1 提示这个没定义。实在是太菜了，但是工作中需要用到，

[sololie]

你拖一个TPrintDialog 到TActiveFormX4 窗口上，起个名字例如 PrintDialog1 然后 procedure TActiveFormX4.showPrintDialog(x: Integer); begin PrintDialog1.Execute; end;

[sololie]

TPrintDialog 控件在控件面板的 dialogs 分类中

[梦入神经]

引用 6 楼 sololie 的回复:

TPrintDialog 控件在控件面板的 dialogs 分类中

终于弹出来了，但是和浏览器弹出的不太一样。非常感谢你，后面我在摸索一下。