Excel中经常需要使用到自动求和公式,自动求和具体该如何操作呢?接下来小编举例简单的例子告诉大家excel设置自动求和公式的方法。excel设置自动求和公式的方法设置自动求和公式步骤1:将鼠标放在要求和数据区域的紧挨着的下面一个单元格,如下图的D10单元格,然后点击【开始】-【自动求和】按钮就可以自动求D......
Excel双面打印的技巧
Excel函数
2022-02-09 23:04:16
在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事件无效 下一篇:如何停止Excel屏幕刷新
相关文章