Excel双面打印的技巧
时间:2022-03-10 19:15:01
在Word中,可以通过打印设置,修改打印“奇数页”和“偶数页”来设置双面打印,那么在Excel中,如何实现Excel双面打印呢?如果打印机不支持双面打印,那么我们可以通过Excel VBA手动实现Excel双面打印。
首先Excel2007打开代码编辑器,单击“插入”菜单-“模块”,双击插入的模块,在右侧的代码窗口中输入:
Sub DoubleFacePrint()
On Error Resume Next
Dim x, i, j As Variant
x = ExecuteExcel4Macro("Get.Document(50)")
MsgBox "请将纸放入打印机,开始打印奇数页", vbOKOnly
For i = 1 To Int(x / 2) + 1
ActiveWindow.SelectedSheets.PrintOut From:=2 * i – 1, To:=2 * i – 1
Next i
MsgBox "请将纸放入打印机,开始打印偶数页", vbOKOnly
For j = 1 To Int(x / 2) + 1
ActiveWindow.SelectedSheets.PrintOut From:=2 * j, To:=2 * j
Next j
MsgBox "Excel双面打印完毕", vbOKOnly
End Sub
按F5运行键,出现“请将纸放入打印机,开始打印奇数页”提示时将纸张放入打印机,按“确定”按钮开始打印奇数页。出现“请将纸放入打印机,开始打印偶数页”提示时将纸张放入打印机,按“确定”按钮开始打印偶数页。这样就实现了Excel双面打印。
标签:偶数,奇数,打印,打印机,Excel函数
0
投稿
猜你喜欢
Word2003中重置到初始默认值的操作方法
2023-01-23 18:13:08
Word 2003撤消、重复、恢复的操作方法(动画演示)
2023-08-22 11:14:24
凌乱数据谁合格 VLOOKUP模糊查找来帮你
2022-06-14 07:42:35
office2015/office16上手体验 office2015使用评测
2023-08-13 05:12:39
Win10分配单元大小默认值越大越好吗?
2023-12-12 16:24:14
excel表格怎样设置密码
2023-04-01 20:00:15
word2016怎么更改主题颜色?word2016更换主题颜色教程
2023-11-16 11:25:26
excel统计至少在一列中满足条件的行数
2023-05-20 12:26:53
Excel表格要将数据怎么导出高清图片?
2022-07-11 23:00:57
将excel导入spss的方法步骤详解
2023-12-10 21:24:23
Excel对齐方式,以Excel居中对齐为例来讲解,以及Excel添加边框的操作
2022-04-25 17:54:52
excel填充序列怎么设置?Excel中填充的生成方法
2023-11-14 23:49:04
excel中如何快速打开设置单元格格式?
2023-11-27 15:21:01
Excel表格文本与数值区分方法解读
2023-11-24 10:02:05
excel2003打印指定页面的方法
2023-06-28 05:47:01
word2016文档怎么接受修订取消红线?
2023-01-04 22:57:49
如何找回EXCEL消失的绘图工具栏
2022-07-18 13:29:37
excel2003设置条件格式的教程
2022-04-30 17:02:59
excel2010怎么取消密码?excel关闭密码教程
2022-04-12 17:36:57
Excel表格如何调整单元格大小
2023-04-12 10:05:58