问答文章1 问答文章501 问答文章1001 问答文章1501 问答文章2001 问答文章2501 问答文章3001 问答文章3501 问答文章4001 问答文章4501 问答文章5001 问答文章5501 问答文章6001 问答文章6501 问答文章7001 问答文章7501 问答文章8001 问答文章8501 问答文章9001 问答文章9501

excel如何打印奇数页?

发布网友 发布时间:2022-12-19 23:25

我来回答

1个回答

热心网友 时间:2023-09-22 23:30

我们在word中可以选择奇偶页打印文件,在excel要实现这个功能,我们必须使用宏\x0d\x0a \x0d\x0a单击菜单工具→宏→录制新宏\x0d\x0a\x0d\x0a在弹出的录制新宏对话框中设定新的宏名``随便``自己知道是啥就行\x0d\x0a将宏保存在个人宏工作_中\x0d\x0a单击确定后,按停止录制宏按钮\x0d\x0a按“Alt+F11”进入MicrosoftVisual Basic编辑器。在编辑器中新建模块1,在我们刚才录制的手动双面打印宏命令中输入如下代码\x0d\x0a----------------------------------------------------------------------------------------------------------\x0d\x0aSub 手动双面打印()\x0d\x0a Dim Pages As Long\x0d\x0a Dim myBottonNum As Integer\x0d\x0a Dim myPrompt1 As String\x0d\x0a Dim myPrompt2 As String\x0d\x0a myPrompt1 = "在打印时发生错误,请检查你的打印机设置"\x0d\x0a myPrompt2 = "请将出纸器中已打印好一面的纸取出并将其放回到送纸器中,然后按下""确定"",继续打印"\x0d\x0a Pages =ExecuteExcel4Macro("Get.Document(50)") '统计总页数\x0d\x0a \x0d\x0a On Error Resume Next\x0d\x0a \x0d\x0a If (Pages = 0) Then '如果为零,说明没有可打印内容,退出程序\x0d\x0a MsgBox "Microsoft Excel 未发现任何可以打印的内容", 0 + 48\x0d\x0a Exit Sub\x0d\x0a End If\x0d\x0a \x0d\x0a If (Pages = 1) Then '判断是否只有一页,如果是,只打印第一页,然后退出\x0d\x0a ActiveSheet.PrintOut\x0d\x0a If Err.Number = 1004 Then\x0d\x0a MsgBox myPrompt1, 0 + 48 '提示用户发生打印错误\x0d\x0a End If\x0d\x0a Exit Sub\x0d\x0a End If\x0d\x0a \x0d\x0a For i = 1 To Pages Step2 '设置循环,打印奇数页\x0d\x0a ActiveSheet.PrintOut From:=i, To:=i\x0d\x0a If Err.Number = 1004 Then\x0d\x0a MsgBox myPrompt1, 0 + 48\x0d\x0a Exit Sub\x0d\x0a End If\x0d\x0a Next i\x0d\x0a \x0d\x0a myBottonNum = MsgBox(myPrompt2, 1 + 48) '提示用户取出纸张,确认后继续打印\x0d\x0a \x0d\x0a If (myBottonNum = 1) Then\x0d\x0a For j = 2 To Pages Step2 '打印偶数页\x0d\x0a ActiveSheet.PrintOut From:=j, To:=j\x0d\x0a Next j\x0d\x0a End If\x0d\x0aEnd Sub\x0d\x0a\x0d\x0a不用管他了``“按Alt+Q”返回到工作表窗口,单击菜单“工具”→“自定义”,在弹出的自定义对话框中选择“命令”选项卡,在命令选项卡中选择“宏”→“自定义按钮”。\x0d\x0a\x0d\x0a拖动自定义按钮道任务栏上(也就是那个笑脸),右键单击自定义按钮图标,在弹出的对话框中将“自定义按钮(&C)”更名为“手动双面打印(&C)”,然后再单击“指定宏”\x0d\x0a\x0d\x0a在弹出的“指定宏”对话框中选择我们刚才创建的宏\x0d\x0a\x0d\x0a所有工作已全部完成,随便打开任意工作_单击刚创建的按钮试试,程序就会自动先打印所有奇数页,然后提示你取出纸张,确认后再打印所有偶数页,就像在使用Word的手动双面打印一样方便。
声明声明:本网页内容为用户发布,旨在传播知识,不代表本网认同其观点,若有侵权等问题请及时与本网联系,我们将在第一时间删除处理。E-MAIL:11247931@qq.com
宁波社保卡办理需要什么材料 宁波社保卡如何申领 有什么高性价比的隔离霜可以推荐? 防晒效果好的隔离霜有哪些值得入手? 下雨天经常爬在房子墙上的那种软体动物,不是蜗牛没壳的,可以在墙上把身... 原来是美男啊里面插曲、主题曲都有哪些? 请问下各位大虾,我在外地用外地农行卡网上转账到本地邮政卡星期六转账的... 为什么用支付宝买东西明明我余额足够,付款时却说我余额不足?2个... 萍乡烛式过滤器品牌 衡水烛式过滤器品牌推荐 微店商城年费有退的吗 简单气质淡雅的温柔网名 好听昵称简短温柔 简约而又温柔的网名 昵称简短好听温柔 简约而又温柔的网名推荐 中金所调整股指期货手续费 服务器租用价格很贵吗 服务器为什么比普通电脑贵好多? 360账号怎么才能叫对方收到短信解除绑对方手机号 优奢易拍可以做奢侈品真伪司法鉴定吗? 昆明中检集团奢侈品鉴定中心地址 "狗是不穿衣服的",用英语怎么说 不穿衣服等你英文翻译 电脑硬盘怎么作u盘用? 电脑硬盘作u盘用讲解 梦见买菜付了57.5元什么意思啊 梦见我去买菜卖菜的多找我100块钱什么意思? 支付宝退款一般要多久 写一份请示 售前工程师属于研发人员吗 粤式鸡汤火锅的家常做法大全怎么做好吃视 形容荷花和露珠的诗句 名爵mg6保养灯怎么归零 14年名爵6保养灯无法归零 管家婆辉煌版不能自动生成商品编码吗?商品太多手动设置编码太麻烦了??求专家帮忙解决一下 速达5000怎么设置,能够新增货品时根据仓库类别自动生成货品编码 我的电信卡是老卡,金属片更大!剪成nano卡会剪到金属,这样剪了能行嘛? 病毒中的五碳糖是否属于糖类 熟牛肉怎么做红烧牛肉面 请问一下柿子发霉了能吃吗? 执业医师考试单元内容分布 手势舞和课桌舞的区别 谁有华夏人寿踏浪手语操视频,是有一个戴眼镜中年男人领舞的版本,不是女的领舞的。 qq群私聊别人看不到我发的链接 Hilamg我跟他聊天的信息对方看不到是什么原因 异性朋友最好状态是什么? 人失踪了公安用什么手段查找 失踪警察如何找人 派出所能帮忙查失散的亲人吗 派出所怎么处理人口失踪 绿联的hdmi线影院布线款和锌合金款的区别 h61的主板能配置什么显卡?