如何在水晶报表9中实现选择打印机打印？

在水晶报表10中，无论是Windows App还是Web App都可以在按下打印按钮的时候选取指定打印机打印
但是在水晶报表9中，却没有这个效果
其实只要通过简单的设置，就可以实现这个效果

以下为水晶报表9.2+VB6环境

首先需要说明的是，你先要把你的模板对象设置为模块内享的

 

Private objCRApp As New CRAXDRT.Application    '水晶报表应用程序对象
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

说明:此种情况下如果设置打印机时选择了取消,那么仍然会打印.
所以最好

objCRReport.PrintOutEx True

请在此处下载完整代码
https://files.cnblogs.com/babyt/ttxVB.rar