excel表格打印每页都有表头

excel#格#打印每页都有表头 篇一:excel表格打印怎么样设置能使每页都有表头 excel表格打印,怎么样设置能使每页都有表头 2008-12-24 13:16:20| 分类: 第4章表格信息加 | 标签: |字号大中小 订阅 已使用:文件?页面设置?“工作表”选项卡 ?打印标题下面的“顶端标题行”右边的箭头单击一下 选中表头，回车?然后确定 未测试:其他回答 从“文件”菜单中选“页面设置”，在最后一个选项卡“工作表”中有一个“打印标题”，再单击“顶端标题行”右端的切换按钮，在表格中选中需要的标题行，再单击切换按钮回到“页面设置”页面，最后单击“确定”按钮。然后通过“打印预览”观看实际效果。也可在“打印标题”下面的“顶端标题行”中输入“$1:$2”(不含引号)。 点击“文件”菜单中“页面设置”选择“工作表”项下的“顶端标题行”带红色箭头按钮，弹出“页面设置_顶端标题行”方框，拖动鼠标选择你要打印表头区域(行)，点击方框右侧按钮，点击“确定”搞定。(转载 1 于:www.XltkWJ.Com 小 龙文档 网:excel表格打印每页都有表头)但上面的方法只适用于纵向表格，不适合横向并列表格。 文件-〉页面设置-〉页眉/页脚 在这个里面设置“自定义页眉”就可以了 “文件”菜单中选“页面设置”，在最后一个选项卡“工作表”中有一个“打印标题”，再单击“顶端标题行”右端的切换按钮，在表格中选中需要的标题行，再单击切换按钮回到“页面设置”页面，最后单击“确定”按钮。然后通过“打印预览”观看实际效果。 视图---页眉/页脚---工作表---顶端标题行。。。。。。。。等答案的时间早乱点出来了。 如:第一行到第三行是表头 现在共有20页，每页需要表头 操作如: 文件------页面设置------工作表(标签)------在“顶端标题行” 输入公式: $a1.a3 篇二:【办公】Excel2007多行表头冻结,打印每页都有表头设置-JQM 设置多行表头冻结 1. 先点击要冻结N行下面的第N+1行，视图——窗口——拆分 2. 视图——窗口——冻结窗格——冻结拆分窗格() 2 例如我们要前2行固定冻结，那么需要选定第3行 点击“拆分”后的提示效果。 点击“冻结拆分窗格”后的效果，前2行将不会移动一直显示在屏幕上。便于查 看表头内容。 设置打印时每一页都有表头 1. 页面布局——页面设置——打印标题 2. 选择“顶端标题行( R) :” 点击开始设置区域 3. 选择要作为标题的表格区域，点击结束设置 4. 设置完成后的情况，点击打印预览即可验证每页均有显示标题即可。 篇三:EXCEL分页打印_表头表尾几行每页需保留 EXCEL数扰分页打印实例 在工作中经常会碰到EXCEL中的数据要分页打印且每页头几行和最后几行都必乡保留，还要有页码。这也是本人在铁塔工作过程中碰到的一种情况，与大家分享。 一、 实现工作目标 将”订单打印版.xlsm”表中数据(如图1)分页打印(如图2)并隐藏第6行说明 3 图1 二、 实际操作步骤 1.按如下图设置单元格: 3、新建打印文件 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 4 twb.Sheets(铁塔需求订单确认 表).PageSetup.CenterFooter = Mystr1 & k & Mystr2 twb.Sheets(铁塔需求订单确认表).Activate ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=TrueNext k Else 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:=TrueElse For k = 1 To m For i = 1 To 8For 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 5 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:=TrueEnd If End If twb.Close Set twb = Nothing Application.DisplayAlerts = True Application.ScreenUpdating = True End Sub 5.将宏代码窗口关闭，另存为启用宏的表格。 6.将PDF 打印设置成默认打印机。 7(点击表格中的按钮“打印”就可以生成我们所需要的文 件了。 本文的讲解到此就结束了。谢谢～ 相关热词搜索:都有 表头 每页 表格 打印 excel表格每 页加表头 excel每页都打印表头 6 7