怎样控制WORD打印

stoneo9o3

Private Sub App_DocumentBeforePrint (Byval Doc As Document, Cancel As Boolean) a = Msgbox("Have you checked the " _ & "printer for letterhead?", _ vbYesNo) If a = vbNo Then Cancel = True End Sub 上面的代码应该放在什么地方？

守柔

应该放在类模块中。

关于APPLICATION对象事件的声明，请在VBA帮助中，以“APPLICATION对象事件”为关键字，获取有关帮助。

以下为简化的Application对象事件的声明过程，供参考：

'* ＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋

'* Created By SHOUROU@ExcelHome 2006-7-18 6:22:47

'仅测试于System: Windows NT Word: 11.0 Language: 2052

'№ 0040^The Code CopyIn [ThisDocument-ThisDocument]^'

'* －－－－－－－－－－－－－－－－－－－－－－－－－－－－－

Public WithEvents App As Word.Application

 

Private Sub App_DocumentBeforePrint(ByVal Doc As Document, Cancel As Boolean)

    a = MsgBox("Have you checked the " & "printer for letterhead?", vbYesNo)

    If a = vbNo Then Cancel = True

End Sub

'----------------------

 

Private Sub Document_Open()

    Set App = Word.Application

End Sub

以下为实例文档：

 

PLCBv9Na.rar (4.96 KB, 下载次数: 22)

2006-7-18 06:24 上传

点击文件名下载附件

[此贴子已经被作者于2006-7-18 6:24:28编辑过]

shewoyu

控制WORD打印？？？

能说明白吗！！！

守柔

QUOTE:

以下是引用shewoyu在2006-7-18 14:07:19的发言：

控制WORD打印？？？

能说明白吗！！！

一楼和二楼的代码，难道还需要解释吗？下载附件了吗？

所谓的控制WORD打印，就是在类模块中捕获用户的打印前的事件，根据用户的响应，由程序作出相应的处理。