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

　　最后給出的是報(bào)表的打印代碼

　　Dim Job As Integer

　　Dim Handle As Integer

　　'打開打印引擎

　　Handle = PEOpenEngine

　　'水晶的錯(cuò)誤處理

　　If Handle = 0 Then

　　ErrorNum = PEGetErrorCode(Handle)

　　MsgBox "打印引擎出錯(cuò)!"

　　MsgBox "錯(cuò)誤代號(hào)：" & ErrorNum

　　End If

　　'打開打印作業(yè)

　　2010年9月計(jì)算機(jī)等級(jí)考試成績(jī)查詢時(shí)間匯總

　　2011計(jì)算機(jī)等級(jí)考試二級(jí)VB考點(diǎn)及習(xí)題匯總

　　2011年計(jì)算機(jī)等級(jí)考試二級(jí)VB基礎(chǔ)教程匯總

　　2011計(jì)算機(jī)等考二級(jí)VB輔導(dǎo)知識(shí)技巧匯總