[求助]请问 .WORD里面打印时如何设置成隔页打印的模式啊?

33333a · 发表于 2006-7-5 16:32

请问 .WORD里面打印时如何设置成隔页打印的模式啊?就是只打第一页.第三页等等

konggs · 发表于 2006-7-5 17:04

Sub 打印奇数()
Dim a As Long, i As Long

a = Application.ActiveWindow.Panes(1).Pages.Count '活动窗口的总页数
    For i = 1 To a '在总页数间循环
        If i Mod 2 <> 0 Then '如果是奇数,则打印那个页
            ActiveDocument.PrintOut Range:=wdPrintFromTo, from:="" & i, To:="" & i
        End If
    Next
End Sub

偶数的话,把 If i Mod 2 <> 0 Then '如果是奇数,则打印那个页
的<>改为=就行了.

33333a · 发表于 2006-7-5 19:06

QUOTE:

以下是引用33333a在2006-7-5 16:32:11的发言：
请问 .WORD里面打印时如何设置成隔页打印的模式啊?就是只打第一页.第三页等等

[讨论]能通过里面的设定吗？

守柔 · 发表于 2006-7-6 05:48

QUOTE:

以下是引用33333a在2006-7-5 19:06:14的发言：

[讨论]能通过里面的设定吗？

yejiguanli · 发表于 2006-7-6 17:00

只用在打印时选择打印奇数页或者偶数页即可

		自动登录	找回密码
密码			免费注册