显示打印对话框

Montaque(Rain + Man=Rainman)   http://search.csdn.net/Expert/topic/1756/1756799.xml?temp=.8004572

加一个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
posted @ 2004-10-30 17:29  leonardleonard  阅读(123)  评论(0)  编辑  收藏  举报