2011年计算机等考二级VB辅导知识技巧总结(10)

 Job = PEOpenPrintJob(App.Path & "\New.rpt")

'水晶的错误处理

If Job = 0 Then

ErrorNum = PEGetErrorCode(Job)

MsgBox "打开作业New.rpt 失败!"

MsgBox "错误代号：" & ErrorNum

End 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 Then

Handle = PEStartPrintJob(Job, True)

If Handle <> 0 Then

MsgBox "打印完毕"

Else

ErrorNum = PEGetErrorCode(Job)

MsgBox "打印失败!"

MsgBox "错误代号：" & ErrorNum

End If

Else

ErrorNum = PEGetErrorCode(Job)

MsgBox "无法输出到窗体或打印机"

MsgBox "错误代号：" & ErrorNum

End If

'关闭打印作业

PEClosePrintJob (Job)

'关闭打印引擎

PECloseEngine

我使用的是VB6+水晶报表8.5，感觉这种方式比较灵活好用，同时解决了水晶报表补空行的问题。