如何在水晶报表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

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