EXCEL分页打印表头表尾几行每页需保留.docx

EXCEL数扰分页打印实例在工作中经常会碰到EXCEL中的数据要分页打印且每页头几行和最后几行都必乡保留，还要有页码。这也是本人在铁塔工作过程中碰到的一种情况，与大家分享。一、 实现工作目标将”订单打印版.xlsm”表中数据（如图1）分页打印(如图2)并隐藏第6行说明图1每页打印8行内容 每页打印都包含此内容每页打印都包含此内容 插入页脚分页图2二、 实际操作步骤添加打印按钮，填加宏代码后指向该宏1.按如下图设置单元格：打印模板数据行数3、新建打印模板文件空白行数为8行，并设置好行高，列宽等第6行隐藏后没有张2页本行打印自动隐藏4、按ALT+F11将下列代码粘贴在代码窗口中：Sub 订单打印PDF() If 订单总数 = 0 Then Exit Sub Dim twb As Workbook Dim i As Integer Dim j As Integer Dim k As Integer Dim m As Integer Dim n As Integer Dim Mystr1 As String Dim Mystr2 As String Set twb = Application.Workbooks.Add(ThisWorkbook.Path & DD_Mod.xlsx) Application.DisplayAlerts = False Application.ScreenUpdating = False twb.Sheets(铁塔需求订单确认表).Rows(6).Hidden = True m = Int(订单总数 / 8)n = 余数Mystr1 = 第Mystr2 = 页If n = 0 Then For k = 1 To m For i = 1 To 8 For j = 1 To 17 twb.Sheets(铁塔需求订单确认表).Cells(i + 6), j) = Sheet1.Cells(i + 6 + (k - 1) * 8), j) Next j Next i twb.Sheets(铁塔需求订单确认表).PageSetup.CenterFooter = Mystr1 & k & Mystr2 twb.Sheets(铁塔需求订单确认表).Activate ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True Next kElse If 订单总数 8 Then For i = 1 To n For j = 1 To 17 twb.Sheets(铁塔需求订单确认表).Cells(i + 6), j) = Sheet1.Cells(i + m * 8 + 6), j) Next j Next i twb.Sheets(铁塔需求订单确认表).PageSetup.CenterFooter = Mystr1 & 1 & Mystr2 twb.Sheets(铁塔需求订单确认表).Activate ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True Else For k = 1 To m For i = 1 To 8 For j = 1 To 17 twb.Sheets(铁塔需求订单确认表).Cells(i + 6), j) = Sheet1.Cells(i + 6 + (k - 1) * 8), j) Next j Next i twb.Sheets(铁塔需求订单确认表).PageSetup.CenterFooter = Mystr1 & k & Mystr2 twb.Sheets(铁塔需求订单确认表).Activate ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True Next k Sheets(铁塔需求订单确认表).Range(a7:q14) = For i = 1 To n For j = 1 To 17 twb.Sheets(铁塔需求订单确认表).Cells(i + 6), j) = Sheet1.Cells(i + m * 8 + 6), j) Next j Next i twb.Sheets(铁塔需求订单确认表).PageSetup.CenterFooter = Mystr1 & m + 1 & Mystr2 twb.Sheets(铁塔需求订单确认表).Activate ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True End IfEnd If twb.Close Set twb = Nothing Application.DisplayAlerts = True Application.Sc