★一些宏文件小工具★

LangQueS · 发表于 2007-4-22 23:48

本论坛的资料：

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

[此贴子已经被作者于2007-4-22 23:51:24编辑过]

LangQueS · 发表于 2007-4-25 01:59

nqDjutQt.rar (8.79 KB, 下载次数: 42)

徒然客 · 发表于 2007-4-25 11:23

最好都给贴到楼顶的汇总文件里面吧，这样看的太累了。

narutoshyb · 发表于 2007-4-25 12:28

感谢分享!

丁壬易龙 · 发表于 2007-7-19 20:55

美不胜收,眼花瞭乱,先下了,谢

古豆 · 发表于 2007-9-3 19:28

不错，学习了……

蓝天飞翔 · 发表于 2008-9-11 12:34

谢谢分享，收藏学习了。

duoduoduo · 发表于 2008-11-16 12:54

谢谢LZ分享，谢谢大家分享

syzalive · 发表于 2008-12-26 16:35

谢了，很好，谢谢分享。

dsp_7675 · 发表于 2009-1-17 10:19

感谢高手的无私奉献，让我们这些能力有限者获益良多。

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

[VBA程序开发] ★一些宏文件小工具★