如题，谢谢
---------------------------------------------------------------
脱一个printdialog到form上，然后调用
printDialog1.ShowDialog()
---------------------------------------------------------------
Dim pt As Printing.PrintDocument
Me.PrintDialog1.Document = pt
Me.PrintDialog1.ShowDialog(Me)
---------------------------------------------------------------
Dim pd As Printing.PrintDocument
pd.DefaultPageSettings = PageSetupDialog1.PageSettings '页面设置
PrintDialog1.Document = pt
PrintDialog1.ShowDialog