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

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

#

 Public Declare Function PEOutputToPrinter Lib "crpe32.dll" ( _

ByVal printJob As Integer, _ #

ByVal nCopies As Integer) As Integer

Public Declare Function PEStartPrintJob Lib "crpe32.dll" ( _

#

ByVal printJob As Integer, _ #

ByVal WaitOrNot As Integer) As Integer

Public Declare Function PEClosePrintJob Lib "crpe32.dll" (ByVal printJob As Integer) As Integer #

Public 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 Long

Public Declare Function vbEncodelPtr Lib "p2smon.dll" (x As Object) As String

#

Public Declare Function SetActiveDataSource Lib "p2smon.dll" ( _ #

ByVal printJob As Integer, _ #

ByVal tableNum As Integer, _ #

x As Object) As Long #

最后给出的是报表的打印代码

#

Dim Job As Integer #

Dim Handle As Integer

#

'打开打印引擎 #

Handle = PEOpenEngine

'水晶的错误处理

If Handle = 0 Then #

ErrorNum = PEGetErrorCode(Handle) #

MsgBox "打印引擎出错!" #

MsgBox "错误代号：" & ErrorNum #

End If

'打开打印作业