如何在Excel中打印工作表名称或工作表名称列表？

默认情况下，您很难分辨哪个打印输出来自哪个工作表，因为默认情况下Excel不会打印工作表名称。本文将向您展示如何打印带有工作表名称的工作表，以及如何打印工作表名称列表。

通过更改打印页面设置来打印工作表名称
使用Kutools for Excel在单元格中插入工作表名称以打印工作表名称
使用VBA代码打印工作表名称列表
使用Kutools for Excel打印工作表名称列表

通过更改打印页面设置来打印工作表名称

您可以通过将工作表名称添加到工作表的页眉/页脚中来更改打印页面设置，然后进行打印。

1. 单击文件 > 打印 > 打印设置。参见截图：

在Excel 2007中，请单击Office按钮 > 打印 > 打印预览。然后在打印预览选项卡下点击页面设置。

2. 在页面设置对话框中，转到页眉/页脚选项卡。如果要将工作表名称插入页眉，请单击自定义页眉按钮；如果要将工作表名称插入页脚，请单击自定义页脚按钮。这里我单击自定义页眉按钮。参见截图：

3. 在页眉对话框中，单击左侧部分框，然后单击插入工作表名称按钮，最后单击确定按钮。参见截图：

注意：您还可以根据需要将工作表名称插入页眉的居中部分或右侧部分。

4. 当返回到页面设置对话框时，单击确定按钮。然后在打印工作表时会打印出工作表名称。

使用Kutools for Excel在单元格中插入工作表名称以打印工作表名称

Kutools for Excel的插入工作簿信息工具可以帮助您快速将活动工作表名称插入到单元格中，然后您可以根据需要手动打印工作表名称。请按照以下步骤操作。

1. 单击Kutools Plus > 插入工作簿信息。

2. 在插入工作簿信息对话框中，在信息部分勾选工作表名称选项，在区域框中选择要插入工作表名称的单元格，然后单击确定按钮。

3. 打印您的工作表。

注意：您可以通过勾选页眉或页脚选项将工作表名称插入工作表的页眉或页脚中。

使用VBA代码打印工作表名称列表

如果您需要打印整个工作簿的所有工作表名称列表，则需要先使用以下VBA代码列出所有工作表名称。本节将指导您如何使用VBA列出所有工作表名称。

1. 按Alt + F11打开Microsoft Visual Basic for Applications窗口。

2. 在Microsoft Visual Basic for Applications窗口中，单击插入 > 模块，然后复制并粘贴以下VBA代码到编辑器中。

VBA：列出所有工作表名称

Sub GetSheets()
	Dim Rng As Range
	Dim WorkRng As Range
	On Error Resume Next
	xTitleId = "KutoolsforExcel"
	Set WorkRng = Application.Selection
	Set WorkRng = Application.InputBox("Out put to (single cell)", xTitleId, WorkRng.Address, Type: = 8)
	Set WorkRng = WorkRng.Range("A1")
	xNum = Application.Sheets.Count
	For i = 1 To xNum
		WorkRng.Value = Application.Sheets(i).Name
		Set WorkRng = WorkRng.Offset(1, 0)
	Next
End Sub

4. 按F5键运行代码。在弹出的KutoolsforExcel对话框中，选择一个单元格用于定位工作表名称列表，然后单击确定按钮。

5. 然后所有工作表名称都会被填充，现在您可以打印它了。

使用Kutools for Excel打印工作表名称列表

如果您想打印当前工作簿中的工作表名称列表，Kutools for Excel的创建链接表工具可以帮您忙。

1. 单击Kutools Plus > 工作表 > 创建链接表。

2. 在创建链接表对话框中，指定如下截图所示的设置，然后单击确定按钮。

然后会创建一个新的工作表来列出当前工作簿中的所有工作表名称，然后您可以打印它。

相关文章：

• 如何在Excel中打印显示单元格公式的Excel工作表？