Job = PEOpenPrintJob(App.Path & "\New.rpt")
'水晶的錯(cuò)誤處理
If Job = 0 Then
ErrorNum = PEGetErrorCode(Job)
MsgBox "打開作業(yè)New.rpt 失敗!"
MsgBox "錯(cuò)誤代號(hào):" & ErrorNum
End If
'給水晶報(bào)表傳送ADO記錄集,AdoRecordset的生成就不再多說了
Handle = SetActiveDataSource(Job, 0, ADOrs)
'輸出到打印預(yù)覽窗口
Handle = PEOutputToWindow(Job, "New.rpt", 0, 0, 520, 520, WS_MAXIMIZE, 0)
‘直接輸出到打印機(jī)
Handle = PEOutputToPrinter(Job,1)
'水晶的錯(cuò)誤處理
If Handle <> 0 Then
Handle = PEStartPrintJob(Job, True)
If Handle <> 0 Then
MsgBox "打印完畢"
Else
ErrorNum = PEGetErrorCode(Job)
MsgBox "打印失敗!"
MsgBox "錯(cuò)誤代號(hào):" & ErrorNum
End If
Else
ErrorNum = PEGetErrorCode(Job)
MsgBox "無法輸出到窗體或打印機(jī)"
MsgBox "錯(cuò)誤代號(hào):" & ErrorNum
End If
'關(guān)閉打印作業(yè)
PEClosePrintJob (Job)
'關(guān)閉打印引擎
PECloseEngine
我使用的是VB6+水晶報(bào)表8.5,感覺這種方式比較靈活好用,同時(shí)解決了水晶報(bào)表補(bǔ)空行的問題。
相關(guān)推薦:2010年9月計(jì)算機(jī)等級(jí)考試成績(jī)查詢時(shí)間匯總
2011計(jì)算機(jī)等級(jí)考試二級(jí)VB考點(diǎn)及習(xí)題匯總
北京 | 天津 | 上海 | 江蘇 | 山東 |
安徽 | 浙江 | 江西 | 福建 | 深圳 |
廣東 | 河北 | 湖南 | 廣西 | 河南 |
海南 | 湖北 | 四川 | 重慶 | 云南 |
貴州 | 西藏 | 新疆 | 陜西 | 山西 |
寧夏 | 甘肅 | 青海 | 遼寧 | 吉林 |
黑龍江 | 內(nèi)蒙古 |