推 fumizuki:你 CancelError 要設為 True 不然怎麼知道有沒有按取消 12/26 12:33
推 fumizuki:去查看看 on error goto [label] 語法吧 12/26 12:33
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 會造成列表機必定列印出此文件來
但是不知道該怎麼修改
或是改用其他方法
希望給予指教 感激^^
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 140.115.231.91