新年 and 情人节 is 快乐 调用打印设置对话框?

Question

   怎么调用windows打印设置对话框?

Answer 1

1、首先在你的USES子句中加入COMMDLG单元；
2、code......procedure TForm1.Button1Click(Sender: TObject);
Var
S : tagPSD ;
begin
    FillChar(s,sizeof(S),0) ;
    S.lStructSize := sizeof(S) ;
    if PageSetupDlg(S) then
        ShowMessage('okok')
    else
        ShowMessage('error.... ')
end; 

Answer 2

直接在form上放一个PrinterSetupDialog或者PrintDialog控件就可以了，在dialog组件里，跟opendialog一块