作者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