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

Question

delphi打印对话框 浏览器

Answer 1

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

Answer 2

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

Answer 3

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

Answer 4

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

Answer 5

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