如何锁定Word的打印份数

[xwjbs]

如何锁定Word的打印对话框中的打印份数?使用户不能够更改？

[cuiyue4420]

这个应该做不了

[Arqui]

Private Sub CommandButton1_Click()
Dim mycount As String
Dim realcount As Integer

mycount = InputBox("渴흙룀鑒", "瓊刻：", 1) '渴흙댔丹룀鑒
Application.ScreenUpdating = False '밑균팁캥뫘劤

If mycount = "" Or Not IsNumeric(a) Or mycount < 0 Then Exit Sub

'댔丹
For realcount = 1 To mycount
Application.PrintOut FileName:="", Copies:=1
Next
Selection.GoTo What:=wdGoToLine, Count:=1 '땍貫匡도瞳뒤寧契
Application.ScreenUpdating = True '댔역팁캥뫘劤
End Sub

[Arqui]

? 怎么出现韩文了!修改一下

[Arqui]

Private Sub CommandButton1_Click()
Dim mycount As String
Dim realcount As Integer

mycount = InputBox("输入份数", "提示：", 1) '输入打印份数
Application.ScreenUpdating = False '关闭屏幕更新

If mycount = "" Or Not IsNumeric(a) Or mycount < 0 Then Exit Sub

'打印
For realcount = 1 To mycount
Application.PrintOut FileName:="", Copies:=1
Next
Selection.GoTo What:=wdGoToLine, Count:=1 '定位文档在第一行
Application.ScreenUpdating = True '打开屏幕更新
End Sub