在水晶报表10中,无论是Windows App还是Web App都可以在按下打印按钮的时候选取指定打印机打印
但是在水晶报表9中,却没有这个效果
其实只要通过简单的设置,就可以实现这个效果
以下为水晶报表9.2+VB6环境
首先需要说明的是,你先要把你的模板对象设置为模块内享的
Private
objCRApp
As
New
CRAXDRT.Application
'
水晶报表应用程序对象
Private objCRReport As New CRAXDRT.Report
Private objCRReport As New CRAXDRT.Report
中间需要使用objCRReport来实现你的报表加载
然后加入如下代码
'
捕获打印事件
Private Sub CRViewer91_PrintButtonClicked(UseDefault As Boolean )
' 不使用默认设置
UseDefault = False
' 进行打印机设置
objCRReport.PrinterSetup Me.hWnd
' 直接打印
objCRReport.PrintOutEx False
End Sub
Private Sub CRViewer91_PrintButtonClicked(UseDefault As Boolean )
' 不使用默认设置
UseDefault = False
' 进行打印机设置
objCRReport.PrinterSetup Me.hWnd
' 直接打印
objCRReport.PrintOutEx False
End Sub
说明:此种情况下如果设置打印机时选择了取消,那么仍然会打印.
所以最好
objCRReport.PrintOutEx True
请在此处下载完整代码
http://files.cnblogs.com/babyt/ttxVB.rar