作者:乔山办公网日期:
返回目录:excel表格制作
没找到选项啊。
1.单击菜单工具→宏→录制新宏百 。
2.在弹出的录制新宏对话框度中设定新的宏名``随便``自己知道是啥就行 将宏保存在个人宏工作簙中
单击确问定后,按停止录制宏按钮 。
3.同时按Alt和F11进入宏界面答,点菜单的插入,模块,粘贴如下代码: Sub dayin() 。
Dim x, i As Integer
x = ExecuteExcel4Macro("Get.Document(50)") MsgBox "现在打印奇数页回", vbOKOnly
For i = 1 To Int(x / 2) + 1
ActiveSheet.PrintOut From:=2 * i - 1, To:=2 * i - 1 Next i
MsgBox "现在打印偶数页", vbOKOnly For i = 1 To Int(x / 2) + 1
ActiveWindow.SelectedSheets.PrintOut From:=2 * i, To:=2 * i Next i
End Sub
4.在此界面下直接按F5运行此宏,解决问题。答
2003以上版本 可将文件转换为PDF格式
然后用PDF阅读器可以打印奇数偶数页
1、首先将Excel打开,如图所示。zd
2、然后点击左上角的【菜单】按钮,如图所示。
3、紧接着在里面点击【打专印】,如图所示。
4、在打印内容窗口,点击【预览】,如图所示。
5、在打印预览中,点击【页面设置】属,如图所示。
6、在打开的属性界面,点击【其它功能】,在里面打印顺序中,选择【打印奇数页】,也可以选择打印偶数页,excel就可以打印奇偶页了,如图所示,完成效果图。