请教：excel中如何实现奇偶页打印

adm0795 · 发表于 2012-3-10 14:17

现收藏起来！

huakongemeng · 发表于 2012-3-12 09:35

努力学习。。。

txx123 · 发表于 2012-4-5 14:15

学习下！！！！！！1

山水乐 · 发表于 2012-4-5 16:35

学习中，觉得自己会的太少了，谢谢楼主！

夏若苍穹 · 发表于 2012-4-7 22:51

嗯嗯，真的很有用！谢谢！

011422 · 发表于 2012-4-19 23:36

高人啊，我何时能学会一点点VBA的知识呢。

huadown · 发表于 2012-4-20 09:30

学习了，谢谢楼主！

醉赏烟雨 · 发表于 2012-8-19 09:08

干嘛那么复杂呢？自己录制一次宏不就好了。先录制：用CTRL点选奇数的，然后打印，保存宏。然后重复偶数的...

拼命奔跑的人 · 发表于 2012-8-20 09:21

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

子诺1018 · 发表于 2012-9-15 16:19

学习了，刚巧我也遇到这个问题，谢谢！

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