excel分页打印表头表尾几行每页需保留

《excel分页打印表头表尾几行每页需保留》由会员上传分享，免费在线阅读，更多相关内容在应用文档-天天文库。

1、EXCEL数扰分页打印实例在工作中经常会碰到EXCEL中的数据要分页打印且每页头几行和最后几行都必乡保留，还要有页码。这也是本人在铁塔工作过程中碰到的一种情况，与大家分享。一、实现工作目标将”订单打印版.xlsm”表中数据（如图1）分页打印(如图2)并隐藏第6行说明图1每页打印8行内容每页打印都包含此内容每页打印都包含此内容插入页脚分页图2一、实际操作步骤添加打印按钮，填加宏代码后指向该宏1.按如下图设置单元格：打印模板数据行数3、新建打印模板文件空白行数为8行，并设置好行高，列宽等第6行隐藏后没有张2页本行打印自动隐藏4、按ALT+F11将下列代码粘贴在代码窗口中：Sub订单打

2、印PDF()If[订单总数]=0ThenExitSubDimtwbAsWorkbookDimiAsIntegerDimjAsIntegerDimkAsIntegerDimmAsIntegerDimnAsIntegerDimMystr1AsStringDimMystr2AsStringSettwb=Application.Workbooks.Add(ThisWorkbook.Path&"DD_Mod.xlsx")Application.DisplayAlerts=FalseApplication.ScreenUpdating=Falsetwb.Sheets("铁塔需求订单确认表"

3、).Rows(6).Hidden=Truem=Int([订单总数]/8)n=[余数]Mystr1="第"Mystr2="页"Ifn=0ThenFork=1TomFori=1To8Forj=1To17twb.Sheets("铁塔需求订单确认表").Cells((i+6),j)=Sheet1.Cells((i+6+(k-1)*8),j)NextjNextitwb.Sheets("铁塔需求订单确认表").PageSetup.CenterFooter=Mystr1&k&Mystr2twb.Sheets("铁塔需求订单确认表").ActivateActiveWindow.SelectedS

4、heets.PrintOutCopies:=1,Collate:=TrueNextkElseIf[订单总数]<8ThenFori=1TonForj=1To17twb.Sheets("铁塔需求订单确认表").Cells((i+6),j)=Sheet1.Cells((i+m*8+6),j)NextjNextitwb.Sheets("铁塔需求订单确认表").PageSetup.CenterFooter=Mystr1&1&Mystr2twb.Sheets("铁塔需求订单确认表").ActivateActiveWindow.SelectedSheets.PrintOutCopies:=1,

5、Collate:=TrueElseFork=1TomFori=1To8Forj=1To17twb.Sheets("铁塔需求订单确认表").Cells((i+6),j)=Sheet1.Cells((i+6+(k-1)*8),j)NextjNextitwb.Sheets("铁塔需求订单确认表").PageSetup.CenterFooter=Mystr1&k&Mystr2twb.Sheets("铁塔需求订单确认表").ActivateActiveWindow.SelectedSheets.PrintOutCopies:=1,Collate:=TrueNextkSheets("铁塔需求

6、订单确认表").Range("a7:q14")=""Fori=1TonForj=1To17twb.Sheets("铁塔需求订单确认表").Cells((i+6),j)=Sheet1.Cells((i+m*8+6),j)NextjNextitwb.Sheets("铁塔需求订单确认表").PageSetup.CenterFooter=Mystr1&m+1&Mystr2twb.Sheets("铁塔需求订单确认表").ActivateActiveWindow.SelectedSheets.PrintOutCopies:=1,Collate:=TrueEndIfEndIftwb.Close

7、Settwb=NothingApplication.DisplayAlerts=TrueApplication.ScreenUpdating=TrueEndSub5.将宏代码窗口关闭，另存为启用宏的表格。6.将PDF打印设置成默认打印机。7．点击表格中的按钮“打印”就可以生成我们所需要的文件了。本文的讲解到此就结束了。谢谢！