电子表格怎样双面打印.doc

文档介绍：电子表格怎样双面打印电子表格怎样双面打印就如 WORD 一样打完单页再打双页电子表格怎样双面打印,就如 WORD 一样打完单页再打双页。工作中把查询到的数据转换为电子表格后已设置好页面,因为多达 500 页, 想双面打印, 怎么办, 查了好多书都没有这方面的知识。我们的是激光打印机不支持双面打印, 但可以同时放很多纸张入纸盒, 我们想象用 WORD 一样先打完单页再打双页, 但又不想复制到 WORD 重新设置页面,请教一下你电脑高手。这个需要宏来实现。做到第四步找不到位置要输入那些代码,请教一下 1 、打开 excel 2 、点菜单- 工具-宏- 录制新宏 3 、在弹出的对话框中,宏名:手动双面打印,保存在:选个人宏工作簿,确定 4 、点菜单- 工具-宏- 停止录制 5 、点菜单- 工具-宏-visual basic 编辑器 6、 visual basic 编辑器窗口左边找到 ,点模块- 双击模块 1 ,找到 sub 手动双面打印() End Sub 7 、复制代码: On Error Resume Next x= ExecuteExcel4Macro("(50)") For I=1 To Int(x / 2)+1 From:=2 *I- 1, To:=2 *I-1 Next I MsgBox " 请将打印出的纸张反向装入纸槽中", vbOKOnly, " 打印另一面" For J=1 To Int(x / 2)+1 From:=2 * J, To:=2 * J Next J8 、粘贴在 sub …… End Sub 之间 9 、点保存 10 、关闭 visual basic 编辑器(右上角叉叉) 11 、打开需要打印的工作簿 12 、点菜单- 工具-宏-宏 13 、选中手动双面打印,点执行 14、 OK 1 、这个涉及到宏单击菜单工具→宏→录制新宏 2 、在弹出的录制新宏对话框中设定新的宏名`` 随便`` 自己知道是啥就行将宏保存在个人宏工作簙中 3 、单击确定后,按停止录制宏按钮 4 、按“ Alt+F11 ”进入 Microsoft Visual Basic 编辑器。在编辑器中新建模块 1, 在我们刚才录制的手动双面打印宏命令中输入如下代码 Sub 手动双面打印() Dim Pages As Long Dim myBottonNum As Integer Dim myPrompt1 As String Dim myPrompt2 As String myPrompt1 =" 在打印时发生错误,请检查你的打印机设置" myPrompt2 =" 请将出纸器中已打印好一面的纸取出并将其放回到送纸器中,然后按下"" 确定"" ,继续打印" Pages = ExecuteExcel4Macro("(50)") ' 统计总页数 On Error Resume Next If (Pages = 0) Then ' 如果为零,说明没有可打印内容,退出程序 MsgBox "Microsoft Excel 未发现任何可以打印的内容",0+ 48