跳到主要内容

如何仅在Excel中打印偶数/奇数页?

在Excel工作中,您通常可能需要打印页面,默认情况下,您可以打印选择内容,打印整个工作簿或打印指定的页面,例如从第1页到第3页,但是您知道如何仅打印偶数页面或活动工作簿的奇数页? 在本文中,我将介绍一些技巧,以帮助您仅在Excel工作簿中仅打印偶数页或奇数页。

仅使用VBA打印偶数/奇数页

使用 Kutools for Excel 打印特定页面 好主意3

使用 Kutools for Excel 打印每个工作表的第一页 好主意3


箭头蓝色右气泡 仅使用VBA打印偶数/奇数页

在Excel中,如果只想打印偶数页或奇数页,则可以应用VBA来完成。

1。 按 Alt + F11键 打开钥匙 Microsoft Visual Basic应用程序 窗口。

2.然后点击 插页 > 模块,然后将以下VBA代码粘贴到新 模块 窗口。

VBA:仅打印偶数页或奇数页

Sub PrintOddEven()
'UpdatebyKutoolsforExcel20160105
    Dim xPages As Long
    Dim xFPage As Variant
    Dim Page As Integer
    xPages = Application.ExecuteExcel4Macro("GET.DOCUMENT(50)")
    xFPage = Application.InputBox("Enter 1 for odd pages, enter 2 for even pages", "Kutools for Excel", , , , , , 1)
    If TypeName(xFPage) = "Boolean" Then Exit Sub
    If xFPage > 0 Then
        xFPage = Abs((xFPage Mod 2) - 2)
        For Page = xFPage To xPages Step 2
            ActiveSheet.PrintOut Page, Page
        Next
    End If
End Sub

3。 按 F5 执行VBA,然后输入 1 打印所有奇数页,或输入 2 打印弹出的所有偶数页 Kutools for Excel 对话。 看截图:
doc打印偶数1

4。 点击 OK,只有奇数页或偶数页正在打印。


箭头蓝色右气泡 使用 Kutools for Excel 打印特定页面

如果您不熟悉VBA代码,则可以申请 Kutools for Excel's 打印特定页面 实用程序,它可以仅根据需要快速打印特定页面,例如仅打印奇数/偶数页面,仅打印5-12页。

Kutools for Excel, 与超过 300 方便的功能,使您的工作更加轻松。 

安装后 Kutools for Excel,请执行以下操作:(立即免费下载 Kutools for Excel!)

点击 Kutools 加 > 印刷 > 打印特定页面,然后在弹出的对话框中选中 奇数页 or 偶数页 您需要的选项。 看截图:
doc打印偶数4

点击 Ok。 然后仅打印奇数页或偶数页。

备注:如果要打印某些页面,例如第2页到第5页,则可以选中“自定义范围”选项,然后在文本框中输入2-5。 看截图:
doc打印偶数4

小费。 如果您想免费试用“打印特定页面”功能, 请去免费下载 Kutools for Excel 首先,然后按照上述步骤进行操作。




箭头蓝色右气泡 使用 Kutools for Excel 打印每个工作表的第一页

如果打开的工作簿中有多个工作表,而现在您只想打印每个工作表的所有第一页,那么在这种情况下,您可以应用 打印每个工作表的第一页 实用程序 Kutools for Excel 快速完成它。

安装后 Kutools for Excel,请执行以下操作:(立即免费下载 Kutools for Excel!)

启用要打印每张纸第一页的工作簿,然后单击 Kutools 加 > 印刷 > 打印每个工作表的第一页。 看截图:
doc打印偶数5

然后,将打印每张纸的所有第一页。


相关文章:

最佳办公生产力工具

热门特色: 查找、突出显示或识别重复项   |  删除空白行   |  合并列或单元格而不丢失数据   |   不使用公式进行四舍五入 ...
超级查询: 多条件VLookup    多值VLookup  |   跨多个工作表的 VLookup   |   模糊查询 ....
高级下拉列表: 快速创建下拉列表   |  依赖下拉列表   |  多选下拉列表 ....
列管理器: 添加特定数量的列  |  移动列  |  切换隐藏列的可见性状态  |  比较范围和列 ...
特色功能: 网格焦点   |  设计图   |   大方程式酒吧    工作簿和工作表管理器   |  资源库 (自动文本)   |  日期选择器   |  合并工作表   |  加密/解密单元格    按列表发送电子邮件   |  超级筛选   |   特殊过滤器 (过滤粗体/斜体/删除线...)...
前 15 个工具集12 文本 工具 (添加文本, 删除字符,...)   |   50+ 图表 类型 (甘特图,...)   |   40+ 实用 公式 (根据生日计算年龄,...)   |   19 插入 工具 (插入二维码, 从路径插入图片,...)   |   12 转化 工具 (小写金额转大写, 货币兑换,...)   |   7 合并与拆分 工具 (高级组合行, 分裂细胞,...)   |   ... 和更多

使用 Kutools for Excel 增强您的 Excel 技能,体验前所未有的效率。 Kutools for Excel 提供了 300 多种高级功能来提高生产力并节省时间。  单击此处获取您最需要的功能...

kte选项卡201905


Office Tab 为 Office 带来选项卡式界面,让您的工作更加轻松

  • 在Word,Excel,PowerPoint中启用选项卡式编辑和阅读,发布者,Access,Visio和Project。
  • 在同一窗口的新选项卡中而不是在新窗口中打开并创建多个文档。
  • 每天将您的工作效率提高50%,并减少数百次鼠标单击!
Comments (1)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Its awesome. Really Thank u verymuch
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations