- 1、本文档共5页,可阅读全部内容。
- 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
- 5、该文档为VIP文档,如果想要下载,成为VIP会员后,下载免费。
- 6、成为VIP后,下载本文档将扣除1次下载权益。下载后,不支持退款、换文档。如有疑问请联系我们。
- 7、成为VIP后,您将拥有八大权益,权益包括:VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
- 8、VIP文档为合作方或网友上传,每下载1次, 网站将根据用户上传文档的质量评分、类型等,对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
I如何实现Excel奇偶页打印
Excel奇偶页打印
启动Excel程序或打开一个Excel文件
单击菜单工具-宏-录制新宏
在弹出的录制新宏对话框中设定新的宏名“手动双面打印”
将宏保存在“个人宏工作簙”中
单击确定后,按停止录制宏按钮
按“Alt+F11”进入Microsoft Visual Basic编辑器。在编辑器中的VBAProject(PERSONAL.XLS)中找到模块1并双击,然后在右侧的窗口中输入或复制粘贴如下代码(两条虚线之间的VB代码):
Sub 手动双面打印()
Dim Pages As Long
Dim myBottonNum As Integer
Dim myPrompt1 As String
Dim myPrompt2 As String
myPrompt1 = 在打印时发生错误,请检查你的打印机设置
myPrompt2 = 请将出纸器中已打印好一面的纸取出并将其放回到送纸器中,然后按下确定,继续打印
Pages = ExecuteExcel4Macro(Get.Document(50)) 统计总页数
On Error Resume Next
If (Pages = 0) Then 如果为零,说明没有可打印内容,退出程序
MsgBox Microsoft Excel 未发现任何可以打印的内容, 0 + 48
Exit Sub
End If
If (Pages = 1) Then 判断是否只有一页,如果是,只打印第一页,然后退出
ActiveSheet.PrintOut
If Err.Number = 1004 Then
MsgBox myPrompt1, 0 + 48 提示用户发生打印错误
End If
Exit Sub
End If
For i = 1 To Pages Step 2 设置循环,打印奇数页
ActiveSheet.PrintOut From:=i, To:=i
If Err.Number = 1004 Then
MsgBox myPrompt1, 0 + 48
Exit Sub
End If
Next i
myBottonNum = MsgBox(myPrompt2, 1 + 48) 提示用户取出纸张,确认后继续打印
If (myBottonNum = 1) Then
For j = 2 To Pages Step 2 打印偶数页
ActiveSheet.PrintOut From:=j, To:=j
Next j
End If
End Sub
按Alt+Q返回到工作表窗口,单击菜单“工具”→“自定义”,在弹出的自定义对话框中选择“命令”选项卡,在命令选项卡中选择“宏”→“自定义按钮”。
拖动自定义按钮到菜单栏或工具栏上,右击刚刚拖到菜单栏或工具栏上自定义按钮然后再“命名”后面输入“双面打印”(注意此时不要关闭自定义对话框),然后关闭自定义对话框。
单击按钮,在弹出的“指定宏”对话框中选择我们刚才创建的宏。
到此,命令基本添加完毕!
关闭并保存工作簿
打开Execl工作簙,单击刚创建的宏按钮,程序就会自动先打印所有奇数页,然后提示取出纸张,确认后再打印所有偶数页,基本类似于Word的手动双面打印。
Excel中实现手动双面打印
Sub 手动双面打印()??Dim Pages As Long??Dim myBottonNum As Integer??Dim myPrompt1 As String??Dim myPrompt2 As String??myPrompt1 = 在打印时发生错误,请检查你的打印机设置??myPrompt2 = 请将出纸器中已打印好一面的纸取出并将其放回到送纸器中,然后按下确定,继续打印??Pages = ExecuteExcel4Macro(Get.Document(50))? ?? ? 统计总页数????On Error Resume Next????If (Pages = 0) Then 如果为零,说明没有可打印内容,退出程序? ? MsgBox Microsoft Excel 未发现任何可以打印的内容, 0 + 48? ?? ?Exit Sub??End If????If (Pages = 1) Then? ? 判断是否只有一页,如果是,只打印第一页,然后退出? ? ActiveSheet.PrintO
您可能关注的文档
最近下载
- 2024保密知识考试题库含答案(最新).docx
- 2019-2020学年广东省广州市天河区高一(下)期末物理试卷(附答案详解).docx VIP
- Excel电子表格导入科怡档案管理软件操作说明.doc
- 高中物理动量练习题(含解析).docx VIP
- 2021-2022学年广东省广州市天河区高一(下)期末物理试卷(附答案详解).pdf VIP
- 动量及动量守恒定律练习题.pdf VIP
- 2022-2023学年广东省广州市天河区高一(下)期末物理试卷(附答案详解).docx VIP
- 15D503 利用建筑物金属体做防雷及接地装置安装.pptx
- 新建学校及附属工程勘察设计施工EPC总承包项目技术标(实施计划、技术、管理组织方案).docx
- 争做合格的高中生.pptx
文档评论(0)