CSDN博客

img 21aspnet

显示打印对话框

发表于2004/10/30 17:29:00  2641人阅读

分类: 打印

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
0 0

相关博文

我的热门文章

img
取 消
img