Hi Christine,
I think this one would be beyond the macro recorder's capabilities. Try the following:
Code:
Sub PartPrint()
Application.ScreenUpdating = False
Dim RngPrn As Range, RngClr As Range
With ActiveDocument
Set RngPrn = .GoTo(What:=wdGoToPage, Name:=.Range.Information(wdActiveEndPageNumber))
Set RngPrn = RngPrn.GoTo(What:=wdGoToBookmark, Name:="\page")
Set RngClr = RngPrn
With RngPrn
.End = Selection.Range.Start
.Font.Color = wdColorWhite
Application.PrintOut Range:=wdPrintCurrentPage
End With
.Undo
End With
Application.ScreenUpdating = True
End Sub
For installation instructions, see:
http://www.gmayor.com/installing_macro.htm
If you add the macro to Word's 'Normal' template it will be available for use with any document. To use, simply press Alt-F8 and choose 'part print'. It will only print the current page and any type preceding the current insertion point will not be printed (unless you've got a coloured paper and white ink!)