excel怎么打印都有目录

Excel表格打印目录的方法包括：使用工作表中的超链接、创建索引工作表、使用VBA代码、Excel的页眉页脚功能。这些方法可以帮助用户在打印时生成和包含目录，使文档结构更加清晰。下面将详细介绍如何使用其中的一种方法——使用VBA代码。

一、工作表中的超链接

在Excel中，创建目录最简单的方法之一是使用超链接。这种方法适用于工作表较少的情况。用户可以在一个独立的工作表中创建超链接，直接链接到其他工作表。

创建目录工作表：首先创建一个新的工作表，将其命名为“目录”。
插入超链接：在“目录”工作表中列出所有工作表的名称，并为每个名称添加超链接，指向相应的工作表。右键单击单元格，选择“超链接”，然后选择要链接的工作表。
格式化目录：为了使目录看起来更专业，可以对文字和单元格进行格式化，例如加粗、调整字体大小和颜色。

二、创建索引工作表

这种方法类似于创建超链接，但适用于工作表数量较多的情况。用户可以通过编写简单的VBA代码自动生成索引工作表。

启用开发者选项卡：在Excel中，点击“文件”>“选项”>“自定义功能区”，勾选“开发工具”，点击“确定”。
插入模块：点击“开发工具”选项卡，选择“Visual Basic”，在VBA编辑器中插入一个新模块。
编写代码：在模块中输入以下代码：

Sub CreateIndex()
    Dim ws As Worksheet
    Dim indexSheet As Worksheet
    Dim i As Integer
    ' 删除已有的索引工作表
    On Error Resume Next
    Set indexSheet = ThisWorkbook.Sheets("目录")
    Application.DisplayAlerts = False
    indexSheet.Delete
    Application.DisplayAlerts = True
    On Error GoTo 0
    ' 创建新的索引工作表
    Set indexSheet = ThisWorkbook.Sheets.Add
    indexSheet.Name = "目录"
    ' 插入工作表名称和超链接
    i = 1
    For Each ws In ThisWorkbook.Sheets
        If ws.Name <> "目录" Then
            indexSheet.Cells(i, 1).Value = ws.Name
            indexSheet.Hyperlinks.Add Anchor:=indexSheet.Cells(i, 1), Address:="", SubAddress:="'" & ws.Name & "'!A1", TextToDisplay:=ws.Name
            i = i + 1
        End If
    Next ws
End Sub

运行代码：关闭VBA编辑器，返回Excel工作表，在“开发工具”选项卡中点击“宏”，选择“CreateIndex”并点击“运行”。这将自动生成一个名为“目录”的工作表，并包含所有工作表的名称及超链接。

三、使用VBA代码

除上述方法外，还可以编写更复杂的VBA代码，实现更高级的目录功能，例如包含页码、自动更新等。

编写VBA代码：插入新的模块，并输入以下代码：

Sub CreateAdvancedIndex()
    Dim ws As Worksheet
    Dim indexSheet As Worksheet
    Dim i As Integer
    Dim pageNumber As Integer
    ' 删除已有的索引工作表
    On Error Resume Next
    Set indexSheet = ThisWorkbook.Sheets("目录")
    Application.DisplayAlerts = False
    indexSheet.Delete
    Application.DisplayAlerts = True
    On Error GoTo 0
    ' 创建新的索引工作表
    Set indexSheet = ThisWorkbook.Sheets.Add
    indexSheet.Name = "目录"
    ' 插入工作表名称、超链接和页码
    i = 1
    pageNumber = 1
    For Each ws In ThisWorkbook.Sheets
        If ws.Name <> "目录" Then
            indexSheet.Cells(i, 1).Value = ws.Name
            indexSheet.Hyperlinks.Add Anchor:=indexSheet.Cells(i, 1), Address:="", SubAddress:="'" & ws.Name & "'!A1", TextToDisplay:=ws.Name
            indexSheet.Cells(i, 2).Value = "第 " & pageNumber & " 页"
            pageNumber = pageNumber + 1
            i = i + 1
        End If
    Next ws
End Sub

运行代码：同样，运行“CreateAdvancedIndex”宏，这将创建一个包含工作表名称、超链接和页码的目录。

四、Excel的页眉页脚功能

Excel的页眉页脚功能可以帮助用户在每个页面上添加目录信息，这在打印时尤其有用。

设置页眉页脚：点击“页面布局”选项卡，选择“页眉页脚”。
插入内容：在页眉或页脚中插入文本或字段，例如“页码”、“文件路径”等。
格式化页眉页脚：根据需要调整格式，使其符合文档的整体风格。

五、其他技巧和注意事项

定期更新目录：如果工作表内容频繁更新，建议定期运行VBA代码或手动更新目录，以确保信息准确。
使用命名范围：如果工作表中有特定部分需要重点标记，可以使用命名范围，并在目录中添加链接。
打印预览：在打印前，使用打印预览功能检查目录和其他页面的布局，确保打印效果符合预期。

通过以上几种方法，用户可以在Excel中创建和打印包含目录的专业文档。根据具体需求选择适合的方法，可以显著提高文档的可读性和使用效率。