Re: [VB6 ] 關於WORD列印

[virrkw (城市塗鴉糖果地圖)]

※ 引述《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 會造成列表機必定列印出此文件來
: 但是不知道該怎麼修改
: 或是改用其他方法
: 希望給予指教 感激^^
推 fumizuki:你 CancelError 要設為 True 不然怎麼知道有沒有按取消
推 fumizuki:去查看看 on error goto [label] 語法吧
謝謝您的指導!! ^^

以下是我的測試：


試過改為 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
推 fumizuki:CancelError = True 要在 ShowPrint 之前啊
推 fumizuki:還有 Label 名稱不要使用既有的物件名稱(Error)
推 virrkw:謝謝您的指教!!^^ 但是結果還是行不通..不知道問題出在哪
推 virrkw:CancelError直接改不行,後來改了物件名稱(Error)，就能夠執
→ virrkw:行了...大感謝!!^^