Re: [VB6 ] 關於WORD列印

看板Visual_Basic作者virrkw (城市塗鴉糖果地圖)時間17年前 (2006/12/26 19:14)推噓4(4推 0噓 1→)

留言5則, 2人參與討論串2/2 (看更多)

※ 引述《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

12/26 12:33,

12/26 12:33

推

fumizuki

12/26 12:33,

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

推

fumizuki

12/27 12:43, , 1^F

12/27 12:43, 1^F

推

fumizuki

12/27 12:44, , 2^F

12/27 12:44, 2^F

推

virrkw

12/27 17:14, , 3^F

12/27 17:14, 3^F