打印奇数页时打印指定每次只一张，不能连续打印，求解决！

japhler

Sub 打印奇数页()
totalPages = ActiveSheet.PageSetup.Pages.Count 'ExecuteExcel4Macro("GET.DOCUMENT(50)")

'打印奇数页
For j = 1 To 2 '打印份数
    For i = 1 To totalPages Step 2 '先打印1份
    ActiveSheet.PrintOut i, i, Copies:=1, Collate:=True
    Next
Next
End Sub
以上代码打印奇数页时打印指定每次只一张，我想实现的是奇数页打印，2份逐份打印，再偶数页逆序打印2份。但奇数页的这个问题都没有解决，就是打印不能连续打印，打一张就要停一下。请大师指导解决！

清风竹-

请试一试。

japhler

这个我早试过了，还是一样打印停顿

japhler

如果难实现的话，或者可以隐藏偶数页也行，这样打印应该就能连续打印了。但这个怎么隐藏我也不会，有大师会的请帮个忙。