Sub 奇偶頁分别打印()
Dim i%, Ps%
Ps = ExecuteExcel4Macro("GET.DOCUMENT(50)") '用宏表函數取總頁數
MsgBox "現在打印奇數頁,按确定開始."
For i = 1 To Ps Step 2
ActiveSheet.PrintOut from:=i, To:=i
Next i
MsgBox "現在打印偶數頁,按确定開始."
For i = 2 To Ps Step 2
ActiveSheet.PrintOut from:=i, To:=i
Next i
End Sub
,更多精彩资讯请关注tft每日頭條,我们将持续为您更新最新资讯!