PrintOut Method (Application, Document, and Window Objects) Example

This example prints the current page of the active document.

ActiveDocument.PrintOut Range:=wdPrintCurrentPage

This example prints all the documents in the current folder. The Dir function is used to return all file names that have the file name extension ".doc".

adoc = Dir("*.DOC")
While adoc <> ""
    Application.PrintOut FileName:=adoc
    adoc = Dir()
Wend

This example prints the first three pages of the document in the active window.

ActiveDocument.ActiveWindow.PrintOut _
    Range:=wdPrintFromTo, From:="1", To:="3"

This example prints the comments in the active document.

If ActiveDocument.Comments.Count >= 1 Then
    ActiveDocument.PrintOut Item:=wdPrintComments
End If

This example prints the active document, fitting six pages on each sheet.

ActiveDocument.PrintOut PrintZoomColumn:=3, _
    PrintZoomRow:=2

This example prints the active document at 75% of actual size.

ActiveDocument.PrintOut _
    PrintZoomWidth:=0.75*(8.5*1440), _
    PrintZoomHeight:=0.75*(11*1440)