首页 > Office专区 > Excel教程 >

Excel每页中如何只打印固定行数

来源:互联网 2023-02-20 19:38:35 290

在生产环境下有时候有这样的需求,那就是Excel中每页只打印固定的行数,例如需要下发一份工作记录表,需要每人填写20行,为了方便尽量每人一页纸,如果数量较小的时候可以手动依次进行调整打印,若数量较多的时候则这个工作就显得无比繁琐,那么是否有什么更简单的办法呢,Soga容易,通过调整行高来实现,且OUT啦,此处即为大家简绍通过宏代码实现“Excel每页中如何只打印固定行数”;nea办公区 - 实用经验教程分享!

方法/步骤

  • 1

    如下一份Excel表格,页数众多且每行内容并不相同,由于生产所需,需要对该Excel表格进行打印每页都有表头并且每页只打印20行nea办公区 - 实用经验教程分享!

    Excel每页中如何只打印固定行数nea办公区 - 实用经验教程分享!

  • 2

    打开需要打印的Excel表格,依次单击“开始>选项”,在打开的excel选项对话框中单击左侧“自定义功能区”菜单,在右侧勾选“开发工具”选项,勾选完成后单击”确定”;nea办公区 - 实用经验教程分享!

    Excel每页中如何只打印固定行数nea办公区 - 实用经验教程分享!

  • 3

    完成上述设置后,依次单击“开发工具>录制宏”;nea办公区 - 实用经验教程分享!

    Excel每页中如何只打印固定行数nea办公区 - 实用经验教程分享!

  • 4

    在弹出的录制宏对话框保持默认选择单击“确定”;nea办公区 - 实用经验教程分享!

    Excel每页中如何只打印固定行数nea办公区 - 实用经验教程分享!

  • 5

    完成上述操作后,单击菜单中的“停止录制”;nea办公区 - 实用经验教程分享!

    Excel每页中如何只打印固定行数nea办公区 - 实用经验教程分享!

  • 6

    此时单击“宏”,在弹出的宏对话框中选择上步建立的宏选项单击“编辑”;nea办公区 - 实用经验教程分享!

    Excel每页中如何只打印固定行数nea办公区 - 实用经验教程分享!

  • 6该信息未经授权抓取自百度经验
  • 7

    在打开的宏编辑对话框中将下述代码粘贴到宏编辑对话框中;nea办公区 - 实用经验教程分享!

    Sub 分页()nea办公区 - 实用经验教程分享!

    Dim i, k As Integernea办公区 - 实用经验教程分享!

    k = Range("a65536").End(xlUp).Rownea办公区 - 实用经验教程分享!

    For i = 4 To knea办公区 - 实用经验教程分享!

    If i Mod 20 = 0 Then '当20行 分页nea办公区 - 实用经验教程分享!

    Cells(i 1, 1).Selectnea办公区 - 实用经验教程分享!

    ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=ActiveCellnea办公区 - 实用经验教程分享!

    End Ifnea办公区 - 实用经验教程分享!

    Nextnea办公区 - 实用经验教程分享!

    nea办公区 - 实用经验教程分享!

    End Subnea办公区 - 实用经验教程分享!

    Excel每页中如何只打印固定行数nea办公区 - 实用经验教程分享!

  • 8

    完成上述操作后依次关闭宏对话框;nea办公区 - 实用经验教程分享!

    Excel每页中如何只打印固定行数nea办公区 - 实用经验教程分享!

  • 9

    完成上述操作后单击宏,在宏对话框中选择上步骤中编辑好的宏“分页”选择“执行”;nea办公区 - 实用经验教程分享!

    Excel每页中如何只打印固定行数nea办公区 - 实用经验教程分享!

  • 10

    完成上述操作后依次单击“页面布局>打印标题”,在弹出的“页面设置”对话框中单击“顶端标题行”后的向上箭头;nea办公区 - 实用经验教程分享!

    Excel每页中如何只打印固定行数nea办公区 - 实用经验教程分享!

  • 11

    此时页面设置自动收缩,鼠标变成向右的箭头,此时选择标题行;nea办公区 - 实用经验教程分享!

    Excel每页中如何只打印固定行数nea办公区 - 实用经验教程分享!

  • 12

    选择完成后单击页面设置后的向下箭头;nea办公区 - 实用经验教程分享!

    Excel每页中如何只打印固定行数nea办公区 - 实用经验教程分享!

  • 13

    完成上述操作后在页面设置对话框中单击“确定”;nea办公区 - 实用经验教程分享!

    Excel每页中如何只打印固定行数nea办公区 - 实用经验教程分享!

  • 14

    完成上述操作后即可执行Ctrl P进行打印,结果如下每页20行并且带有表头;nea办公区 - 实用经验教程分享!

    Excel每页中如何只打印固定行数nea办公区 - 实用经验教程分享!

  • 以上方法由办公区教程网编辑摘抄自百度经验可供大家参考!nea办公区 - 实用经验教程分享!


    标签: excel打印固定

    办公区 Copyright © 2016-2023 www.bgqu.net. Some Rights Reserved. 备案号:湘ICP备2020019561号统计代码