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

　　'水晶的錯誤處理

　　If Job = 0 Then

　　ErrorNum = PEGetErrorCode(Job)

　　MsgBox "打開作業(yè)New.rpt 失敗!"

　　MsgBox "錯誤代號：" & ErrorNum

　　End If

　　'給水晶報表傳送ADO記錄集，AdoRecordset的生成就不再多說了

　　Handle = SetActiveDataSource(Job, 0, ADOrs)

　　'輸出到打印預(yù)覽窗口

　　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

　　'關(guān)閉打印作業(yè)

　　PEClosePrintJob (Job)

　　'關(guān)閉打印引擎

　　PECloseEngine

　　我使用的是VB6+水晶報表8.5，感覺這種方式比較靈活好用，同時解決了水晶報表補空行的問題。

　　2010年9月計算機等級考試成績查詢時間匯總

　　2011計算機等級考試二級VB考點及習(xí)題匯總

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

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