作者virrkw (城市塗鴉糖果地圖)
看板Visual_Basic
標題Re: [VB6 ] 關於WORD列印
時間Tue Dec 26 19:38:41 2006
※ 引述《virrkw (城市塗鴉糖果地圖)》之銘言：
: Set WORD = CreateObject("Word.Application")
: WORD.Documents.Add Template:=App.Path & "\WORD.dot",
: NewTemplate:=False, DocumentType:=0 '載入樣板檔
: Set Report = WPORD.ActiveDocument
: '上列步驟大致上是呼叫WORD
: '之後會把資料寫入樣版檔裡
: '接著開始準備列印文件
: dialog1.CancelError = False
: dialog1.ShowPrinter '呼叫印表機視窗介面
: Report.PrintOut
: Set Report = Nothing
: Set WORD = Nothing
: 以上是我的WORD文件列印程式碼
: 但是呼叫出列印對話後
: 不管是按確定或取消
: 它都會很勤勞幫你列印orz
: 目前判定是因為 Report.PrintOut 會造成列表機必定列印出此文件來
: 但是不知道該怎麼修改
: 或是改用其他方法
: 希望給予指教 感激^^
1F：推 fumizuki:你 CancelError 要設為 True 不然怎麼知道有沒有按取消 12/26 12:33
2F：推 fumizuki:去查看看 on error goto [label] 語法吧 12/26 12:33
謝謝您的指導!! ^^
以下是我的測試：
試過改為 dialog1.CancelError = True 不行
整列刪除dialog1.CancelError = False 也不行
利用On Error Resume Next也不行
或：
On Error GoTo Error
dialog1.ShowPrinter '呼叫印表機視窗介面
dialog1.CancelError = True '此列改變(False 或刪除)不影響
Report.PrintOut
' Printer.Print Report
Set Report = Nothing
Set calofSpurGear = Nothing
Exit Sub
Error:
Exit Sub
也用過if寫
dialog1.ShowPrinter
If dialog1.CancelError = True Then
Report.PrintOut
Else
Exit sub
end if
但是結果不管按確定或取消都不會執行列印
改為False不管按確定或取消都會執行列印
這個問題我已經debug好久了orz
希望能夠得到解答
感激不盡^^
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 140.115.231.91
3F：推 fumizuki:CancelError = True 要在 ShowPrint 之前啊 12/27 12:43
4F：推 fumizuki:還有 Label 名稱不要使用既有的物件名稱(Error) 12/27 12:44
5F：推 virrkw:謝謝您的指教!!^^ 但是結果還是行不通..不知道問題出在哪 12/27 17:14
6F：推 virrkw:CancelError直接改不行,後來改了物件名稱(Error)，就能夠執 12/27 17:26
7F：→ virrkw:行了...大感謝!!^^ 12/27 17:27