Excel.Tips.Net Welcome toExcel.Tips.Net

Helpful Links

Tips.Net Home
ExcelTips Home
Ask an Excel Question
Make a Comment

Tips.Net Store

ExcelTips FAQ
ExcelTips Premium

Learn Access Now
Free Printable Forms

Beauty Tips
Car Tips
Cleaning Tips
Cooking Tips
ExcelTips (menu)
ExcelTips (ribbon)
Family Tips
Gardening Tips
Health Tips
Home Tips
Legal Tips
Money Tips
Organizing Tips
Pest Tips
Pet Tips
School Tips
Wedding Tips
WordTips (menu)
WordTips (ribbon)

Advertise on the
ExcelTips Site

Newest Tips

Ctrl+V Pasting is Flakey

Working with Imperial Linear Distances

Counting Unique Values

Incomplete and Corrupt Sorting

Quickly Removing a Toolbar Button

Returning the MODE of a Range

Deriving High and Low Non-Zero Values

 

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

ExcelTips is your source for cost-effective Microsoft Excel training. This tip (2491) applies to Microsoft Excel versions: 97 | 2000 | 2002 | 2003 | 2007

Got the Time? Understanding the ins and outs of working with times and dates can be confusing. Remove the confusion--ExcelTips: Times and Dates is an invaluable resource for learning how best to work with times and dates.
 
Check out ExcelTips: Times and Dates today!