如何在Excel中设置底部标题行以便打印

HMZS

如何在Excel中设置底部标题行以便打印
由于工作需要，要打印一个较长的表格，分多页打印，需要每页底部有签字栏，想求一个可以设置底部标题行的办法或者插件，可以在打印时把底部设置好的签字栏，每页都出现

samniboy

方方格子有一个设置顶端/底端标题，不知道是不是适合你使用

cayuer

在Excel中打印顶端和底端标题行的步骤如下：

选中打印区域：

打开Excel文档，选中需要打印的区域，确保该区域包含顶端和底端标题行。
设置打印区域：

点击工具栏中的“页面布局”选项卡。
在“页面布局”中，点击“打印区域”按钮，然后选择“设置打印区域”。
进入打印界面：

点击Excel左上角的“文件”菜单。
在弹出的菜单中，选择“打印”。
设置页面设置：

在打印界面中，点击“页面设置”按钮。
在页面设置对话框中，可以设置顶端和底端标题行。这通常在“工作表”选项卡下进行设置，通过点击“顶端标题行”或“底端标题行”框，然后返回工作表选中相应的行。
预览并打印：

在页面设置对话框的右侧，可以看到预览效果，确保预览中显示了顶端和底端标题行。
确认无误后，点击“确定”返回打印界面。
最后，点击“打印”按钮进行打印。
注意：确保在设置顶端和底端标题行时，选中的行范围是正确的，以符合打印需求。

FFAE86

预览打印设置中有一个页眉页脚可以设置。

cayuer

s事实证明无底端标题行
楼主可以下载易用宝， EXCELHOME论坛的一个插件 。
里面有个功能目前是免费的
高级打印选型里就有底端标题打印

cioceo

参考下我之前的求助,有2种方案
1是用宏程序直接设置(这里只能在excel实现,wps不行)
2是用一个文件作为模板插入,我现在在用的

HMZS

cioceo 发表于 2025-11-4 17:52
参考下我之前的求助,有2种方案
1是用宏程序直接设置(这里只能在excel实现,wps不行)
2是用一个文件作为模 ...

大佬可以详细说下第二个办法吗？我看了一下你的帖子，但是没看明白怎么操作的

cioceo

HMZS 发表于 2025-11-4 18:11
大佬可以详细说下第二个办法吗？我看了一下你的帖子，但是没看明白怎么操作的

就是将一个空白或调整好打印格式的文档当模板,
使用宏程序复制这个修改好的文件到当前新建页,
新建页就有了之前设置好的打印样式,这个也是wps无法设置的曲线救国

[Patch] 纯文本查看 复制代码

Sub 领料单()
    Dim originalSheet As Worksheet
    Dim sourceWb As Workbook, targetWb As Workbook
    Dim sourceFile As String

    '保存原始工作表
    Set originalSheet = ActiveSheet
    Set targetWb = ActiveWorkbook
    
    Application.ScreenUpdating = False
    
    sourceFile = "C:\Users\领料单模板.xlsx"
    
    ' 判断文件是否存在
    If Dir(sourceFile) = "" Then
        ' 注意不要隐藏模版文件
        'MsgBox "源文件不存在，执行新建领料单程序。"
        Call 新建领料单
        Exit Sub
    End If
    
    ' 打开源工作簿
    Set sourceWb = Workbooks.Open(sourceFile)

    ' 复制第一个工作表到当前工作簿末尾
    sourceWb.Sheets(1).Copy After:=targetWb.Sheets(targetWb.Sheets.Count)
    
    ' 关闭源工作簿，不保存更改
    sourceWb.Close False
    
    '生成基础名称
    Dim baseName As String
    baseName = "领料单" & Format(Now, "yyyymmdd")
    
    '检查并生成唯一名称
    Dim i As Integer
    i = 0
    Do While WorksheetExists(baseName & IIf(i > 0, "-" & i, ""))
        i = i + 1
    Loop
    ActiveSheet.Name = baseName & IIf(i > 0, "-" & i, "")
    
    
    '跳转回原始工作表
    originalSheet.Activate
    
    Application.ScreenUpdating = True
    
End Sub

zw128799

我的方法是做一个图片的签字，在页眉页脚处，自定义图片页脚，效果很好

zw128799

自定义页脚里面可以插入图片，插在中间哪里，当然我的签字就是

制表人：                 审批：                 批准：
这种三级签，截个图放在桌面上然后自定义页脚把这个图片插入进去，一劳永逸