在使用水晶报表时，经常会感到数据不是很好控制，最后只好使用这个终极绝招咯。那就是使用数据定义文件（TTX），把得到的ADO记录集传送给水晶报表。通常情况下，水晶报表是从物理的数据库上创建出来的，但是现在有了32位的Active Data Driver-- P2smon.dll，水晶就可以不用再事先连接到一个数据库上咯。首先，需要创建一个TTX文件，进入数据源选择窗体后，如下图选中再单击了前面的“+”后弹出数据源窗体此时，我们使用“New”按钮创建一个新的数据定义文件（TTX），格式如下保存后，我们打开这个文本文件，就会发现TTX文件的格式，原来中间是TAB分割符来的。接着，我们就按照水晶报表的老套路画式样，剩下的就是传递记录机集了。下面，我们要声明好传递ADO记录集需要的Api，Public Declare Function PEOpenEngine Lib "crpe32.dll" () As IntegerPublic Declare Function PEGetErrorCode Lib "crpe32.dll" (ByVal printJob As Integer) As IntegerPublic Declare Function PEOpenPrintJob Lib "crpe32.dll" (ByVal RptName As String) As IntegerPublic Declare Function PEOutputToWindow Lib "crpe32.dll" ( _ByVal printJob As Integer, _ByVal Title As String, _ByVal Left As Long, _ByVal Top As Long, _ByVal Width As Long, _ByVal Height As Long, _ByVal style As Long, _ByVal PWindow As Long) As IntegerPublic Declare Function PEOutputToPrinter Lib "crpe32.dll" ( _ByVal printJob As Integer, _ByVal nCopies As Integer) As IntegerPublic Declare Function PEStartPrintJob Lib "crpe32.dll" ( _ByVal printJob As Integer, _ByVal WaitOrNot As Integer) As IntegerPublic Declare Function PEClosePrintJob Lib "crpe32.dll" (ByVal printJob As Integer) As IntegerPublic Declare Sub PECloseEngine Lib "crpe32.dll" ()Public Declare Function CreateFieldDefFile Lib "p2smon.dll" ( _lpUnk As Object, ByVal _fileName As String, _ByVal bOverWriteExistingFile As Long) As LongPublic Declare Function vbEncodelPtr Lib "p2smon.dll" (x As Object) As StringPublic Declare Function SetActiveDataSource Lib "p2smon.dll" ( _ByVal printJob As Integer, _ByVal tableNum As Integer, _x As Object) As Long最后给出的是报表的打印代码Dim Job As IntegerDim Handle As Integer'打开打印引擎Handle = PEOpenEngine'水晶的错误处理If Handle = 0 ThenErrorNum = PEGetErrorCode(Handle)MsgBox "打印引擎出错！"MsgBox "错误代号：" & ErrorNumEnd If'打开打印作业Job = PEOpenPrintJob(App.Path & "\New.rpt"'水晶的错误处理If Job = 0 ThenErrorNum = PEGetErrorCode(Job)MsgBox "打开作业New.rpt 失败！"MsgBox "错误代号：" & ErrorNumEnd If'给水晶报表传送ADO记录集，AdoRecordset的生成就不再多说了Handle = SetActiveDataSource(Job, 0, ADOrs)'输出到打印预览窗口Handle = PEOutputToWindow(Job, "New.rpt", 0, 0, 520, 520, WS_MAXIMIZE, 0)‘直接输出到打印机Handle = PEOutputToPrinter(Job,1)'水晶的错误处理If Handle <> 0 ThenHandle = PEStartPrintJob(Job, True)If Handle <> 0 ThenMsgBox "打印完毕"ElseErrorNum = PEGetErrorCode(Job)MsgBox "打印失败！"MsgBox "错误代号：" & ErrorNumEnd IfElseErrorNum = PEGetErrorCode(Job)MsgBox "无法输出到窗体或打印机"MsgBox "错误代号：" & ErrorNumEnd If'关闭打印作业PEClosePrintJob (Job)'关闭打印引擎PECloseEngine我使用的是VB6+水晶报表8.5，感觉这种方式比较灵活好用，同时解决了水晶报表补空行的问题。

评论