excel双面打印宏

下面的程序不知能不能对你有用。

第一：打开要进行双面打印的excel文件，按 ALT+F11 进入VB编辑环境，在左侧工程窗口下右健，选择“插入->模块”，命名为模块1，双击该模块，在右侧窗口输入如下代码：
Public StartPage As Integer, StepLong As Integer, Col As String, PageHeight As Single, OffSet As Integer
变量说明：StartPage 表示要打印的起始页，比如可以是1或2，分别表示要打印奇数页或偶数页。
StepLong 表示是连续打印还是非连续打印，比如可以是1或2，分别表示连续打印或奇偶打印。
Col 表示excel中要打印到的哪一列，比如可以是D或H，分别表示从A列打印到D列
或从A列打印到H列。
PageHeight 表示excel分页时每页的标准页高，其中纵向页高为669.75，横向页高为427.5。
OffSet 表示判定上一页的最后一行是否被excel自动分到下一页的依据，其中纵向依据
为5，横向依据为14，即当：累计总行高 - 标准页高 > 5 (su - PageHeight > 5) 或
累计总行高 - 标准页高 > 14 (su - PageHeight > 14) 时(其中su 表示累计总行高，
这个变量将在后面说明)，上一页的最后一行将被excel自动分到下一页中。

第二：在左侧工程窗口下右健，选择“插入->用户窗体”，在工程窗口下方属性窗口中为窗体命名为frmPrint ，在右侧窗体上绘制出两个命令按钮，分别命名为 ood 和 even 。
第三：在左侧工程窗口下右健，选择“插入->用户窗体”，在工程窗口下方属性窗口中为窗体命名为frmOrientation ，在右侧窗体上绘制出两个单选按钮和一个命令按钮，两个单选按钮分别命名为optPortrait 和optLandscape ，命令按钮命名为cmdOk 。
第四：双击工程窗口的frmPrint ，打开右侧窗体，双击ood按钮，进入ood的cl