当您将工作簿放在一起时，Excel会跟踪很多信息，这些信息统称为工作簿属性。您可以通过简单地从“文件”菜单中选择“属性”选项来查看Excel维护的不同属性。

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

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

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

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

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培训的来源。

本技巧（2491）适用于Microsoft Excel 97、2000、2002和2003。可以在以下功能区中为Excel的功能区界面（Excel 2007及更高版本）找到本技巧的版本：

打印工作簿属性。