怎样禁止一个activedocument文档打印

mrsxw2004

怎样禁止一个activedocument文档打印，把它的打印功能全部屏蔽掉，

守柔

试试这个(修改WORD命令)

'* ＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋ '* Created By I Love You_Word!@ExcelHome 2005-5-18 14:18:17 '仅测试于System: Windows NT Word: 10.0 Language: 2052 '^The Code CopyIn [标准模块-模块1]^' '* －－－－－－－－－－－－－－－－－－－－－－－－－－－－－

Sub FilePrintDefault() MsgBox "本文档不可打印!" End Sub '---------------------- Sub FilePrint() MsgBox "本文档不可打印!" End Sub '---------------------- i5oNbfYn.zip (7.17 KB, 下载次数: 25)

2005-5-18 14:19 上传

点击文件名下载附件
怎样禁止一个activedocument文档打印

mrsxw2004

如果，我是根据一个变量来控制是否打印，那该怎么写，比如一个activedocument下的variable

守柔

'* ＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋ '* Created By I Love You_Word!@ExcelHome 2005-5-18 16:21:06 '仅测试于System: Windows NT Word: 10.0 Language: 2052 '^The Code CopyIn [ThisDocument-ThisDocument]^' '* －－－－－－－－－－－－－－－－－－－－－－－－－－－－－

Option Explicit 'Sub FilePrintDefault() ' MsgBox "本文档不可打印!" 'End Sub 'Sub FilePrint() ' MsgBox "本文档不可打印!" 'End Sub Sub Exapmle() ' On Error Resume Next Application.CustomizationContext = ActiveDocument With Application.CommandBars If Me.Variables(1).Value <> 1 Then .FindControl(ID:=2521).Enabled = False .FindControl(ID:=4).Enabled = False FindKey(KeyCode:=BuildKeyCode(wdKeyControl, wdKeyP)).Disable Else .FindControl(ID:=2521).Enabled = True .FindControl(ID:=4).Enabled = True FindKey(KeyCode:=BuildKeyCode(wdKeyControl, wdKeyP)).Rebind _ KeyCategory:=wdKeyCategoryCommand, Command:="FilePrint" End If End With End Sub '---------------------- Sub Sample() Me.Variables.Add Name:="Test", Value:=1 End Sub '---------------------- Sub Easy() Me.Variables(1).Value = 1 End Sub '----------------------

[此贴子已经被作者于2005-5-18 16:20:26编辑过]