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

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，感觉这种方式比较灵活好用，同时解决了水晶报表补空行的问题。