EXCEL里面打印时如何设置成隔页打印的模式啊?
来源:百度知道 编辑:UC知道 时间:2024/05/28 04:15:43
请具体说明怎么设置~谢谢
最笨的方法是在打印窗口的页码范围内自己填写了,如:1,4,7,11
用Vba实现如下
本例是从第2页开始每隔3页打印,即打印第2、6、10、14……页,楼主可按需修改其中的P值和d值。
Sub 隔页打印()
'
Dim P As String
P = 2 '输入要打印的第1页的页码
d = 3 '输入打印的隔页页数
n = P + d + 1
Do While n <= Selection.Information(wdNumberOfPagesInDocument)
P = P & "," & n
n = n + d + 1
Loop
Application.PrintOut FileName:="", Range:=wdPrintRangeOfPages, Item:= _
wdPrintDocumentContent, Copies:=1, Pages:=P, PageType:= _
wdPrintAllPages, ManualDuplexPrint:=False, Collate:=True, Background:= _
True, PrintToFile:=False, PrintZoomColumn:=0, PrintZoomRow:=0, _
PrintZoomPaperWidth:=0, PrintZoomPaperHeight:=0
End Sub
复制代码
这是在打印设置里面设置的,不是在EXCEL里面.打印的时候选择打印奇数页或偶数页就可以了.
方法是:你点文件左