Sub PrintDocumentsCollection()

Dim numDocuments As Integer

Dim count As Integer

numDocuments = Documents.count

count = 1

' Prints out every document currently opened

Do While (count <= numDocuments)

' Each document is numbered from 1 to 'numDocuments'

' The loop will step through each number (a number

' stands for a document) and print out that document

Documents.Item(count).PrintOut

MsgBox("printing " & Documents.Item(count).Name)

count = count + 1

Loop

End Sub