bottom
Great ExcelTips!
         
Your e-mail address is safe!
Close Note

Tips.Net > ExcelTips Home > Printing > Printing Workbook Properties

Printing Workbook Properties

Summary: When you take a look at the Properties dialog box associated with any workbook, you’ll notice that Excel tracks quite a bit of information about the workbook itself. This tip shows how you can get this property information into a worksheet so you can print it out. (This tip works with Microsoft Excel 97, Excel 2000, Excel 2002, Excel 2003, and Excel 2007.)

When you are putting together a workbook, Excel tracks quite a bit of information that it collectively refers to as workbook properties. You can view the different properties maintained by Excel by simply choosing the Properties option from the File menu.

In Word you have the option to print document properties, if you desire. There is no intrinsic way to print workbook properties in Excel. Instead, you must resort to a macro that will place the names and values of the properties into a worksheet. You can then print the worksheet and have your workbook properties available in hardcopy format.

The following VBA macro is an example of a good way to copy all the workbook properties to a worksheet that can be printed:

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

Tip #2491 applies to Microsoft Excel versions: 97 | 2000 | 2002 | 2003 | 2007


Step Up and Take Control! Subscribers to ExcelTips know just how valuable a resource it is. ExcelTips Premium provides twice the number of exceptional, easy-to-understand tips every week in an ad-free newsletter, as well as substantial discounts on ExcelTips archives and e-books.
 
Check out ExcelTips Premium today!

Helpful Links

Ask an Excel Question
Make a Comment

Tips.Net Home

ExcelTips FAQ
ExcelTips Premium

Learn Access Now

Beauty Tips
Bugs and Pests Tips
Car Tips
Cleaning Tips
College Tips
Cooking Tips
Excel2007 Tips
ExcelTips
Family Tips
Gardening Tips
Health Tips
Home Tips
Money Tips
Organizing Tips
Pet Tips
Word2007 Tips
WordTips

Advertise on the
ExcelTips Site

 

Great Info!

Get tips like this every week in ExcelTips, a free productivity newsletter. Enter your e-mail address and click "Subscribe."
     
(Your e-mail address will never be shared with anyone, ever.)