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

tesst

最需要的是对称页边距打印。

melon33

咱们论坛到底有多少版主啊。放眼望去真的好多啊。

无名刀客

都是VBA高手啊，新手入门看的满头的星星啊

yangyu110

9楼的方法貌似简便些哈，学习学习！

stephen609

怎么解决的，VBA具体？

阳¤光_(_]

有没有不需要编码的办法？

zcxqwef

收藏本贴以备用

渝东一民

ALT+F11快捷键打开VBA工程管理界面，插入模块→点击模块→将下述代码粘贴上去即可。

Sub 双面打印()
Dim Totalpages As Long
Dim pg As Long
Dim oddoreven As Integer
On Error GoTo endit
Totalpages = ExecuteExcel4Macro("Get.Document(50)")
oddoreven = InputBox("请输入 1 ［表示奇数页］, 2 ［表示偶数页］")
For pg = oddoreven To Totalpages Step 2
ActiveWindow.SelectedSheets.PrintOut from:=pg, To:=pg
Next pg
endit:
End Sub

右击工作表标签—查看代码—插入—模块—粘贴代码—关闭VBE编辑器，回到工作表，工具—宏—宏，选择Print_双面，单击执行。

417390832

又学习了~~{:soso_e128:}

weiyingde

发现，同功能的代码在word VBA下用不了。
打印完单面后，打印机不动。只把把一个过程拆成两个，一个打印单面，一个打印双面，运行一个过程打印完单面后，再运行另一个过程，完成双面打印，页码设置为公共变量。
为什么一个过程不行，非拆成两个不可，非要两次启动打印机？真实奇怪，请大侠指点。