调用系统的页面设置对话框

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;