当您将工作簿放在一起时，Excel会跟踪很多信息，这些信息统称为工作簿属性。您可以通过显示“属性”对话框来查看维护的不同属性。

如果需要，可以在Word中选择打印文档属性。

没有在Excel中打印工作簿属性的固有方法。

而是，您必须诉诸一个宏，该宏会将属性的名称和值放入工作表中。然后，您可以打印工作表并使工作簿属性以硬拷贝格式可用。

以下宏是将所有工作簿属性复制到可以打印的工作表的好方法的示例：

Public Sub WorksheetProperties()

Dim p As DocumentProperty     Dim iRow As Integer

'Built in Properties     iRow = 1     Cells(iRow, 1).Value = "Built-in Properties"

Cells(iRow, 1).Font.Bold = True     iRow = iRow + 1     Worksheets(1).Activate     For Each p In ActiveWorkbook.BuiltinDocumentProperties         On Error Resume Next         Cells(iRow, 2).Value = p.Name         'If no value then Excel causes an error so ignore!

Cells(iRow, 3).Value = p.Value         iRow = iRow + 1     Next     On Error GoTo 0

'Custom Properties     iRow = iRow + 1     Cells(iRow, 1).Value = "Custom Properties"

Cells(iRow, 1).Font.Bold = True     iRow = iRow + 1     For Each p In ActiveWorkbook.CustomDocumentProperties         On Error Resume Next         Cells(iRow, 2).Value = p.Name         Cells(iRow, 3).Value = p.Value         iRow = iRow + 1     Next     On Error GoTo 0 End Sub

注意：

如果您想知道如何使用此页面（或_ExcelTips_网站上的任何其他页面）中描述的宏，我准备了一个特殊页面，其中包含有用的信息。

点击此处在新的浏览器标签中打开该特殊页面。

_ExcelTips_是您进行经济高效的Microsoft Excel培训的来源。

本技巧（9149）适用于Microsoft Excel 2007、2010和2013。您可以在以下版本的Excel的较旧菜单界面中找到此技巧的版本：

打印工作簿属性。