请问如何在excel中实现只打印奇数页或者偶数页？谢谢！

2024-12-20 21:03:34

推荐回答（3个）

回答1：

Sub PrintOddPage()
Dim TotalPg As Integer
TotalPg = ExecuteExcel4Macro("GET.DOCUMENT(50)")
For i = 1 To TotalPg Step 2
ActiveSheet.PrintOut From:=i, To:=i
Next
End Sub

这个是宏。。是打印奇数页的。。。把For i = 1 To TotalPg Step 2改为For i = 2 To TotalPg Step 2就变为打印偶数页了。。。

回答2：

（1）在空列奇数行赋值1，偶数行赋值0，选中这2个格后，按
ctrl
键向下填充；
（2）数据----筛选----自动筛选，即可选1打印表格中的奇数行，选0打印表格中的偶数行。

回答3：

笨方法是手工加上页码，然后在打印里面用逗号隔开。
高级些使用宏来做