怎样在delphi中调用打印对话框，来选择打印机？

[yifan1008]

怎样在delphi中调用打印对话框，来选择打印机？不要预览报表。

[幽奇]

放上PrinterSetupDialog控间，在打印前判定PrinterSetupDialog1.Execute真假。加油！

[sxf_zero]

PrinterSetupDialog.Execute

[hqhhh]

你用的是什么报表呀！

[风中草帽]

1、首先在你的USES子句中加入COMMDLG单元；
2、以下是一个例子

procedure TForm1.Button1Click(Sender: TObject);
Var
S : tagPSD ;
begin
FillChar(s,sizeof(S),0) ;
S.lStructSize := sizeof(S) ;
if PageSetupDlg(S) then
ShowMessage('I am Happy!')
else
ShowMessage('I am... ')
end;

[summersky204608]

首先在Dialog控件中选择添加printdialog控件。
再添加一个"打印"按钮，在按钮的Events属性的OnClick事件中添加代码：
procedure TForm1.Button1Click(Sender: TObject);
begin
if printdialog1.Execute then
RichEdit1.Print(caption);
end;
这样就可以使用了！