Sub WhiteHyperlinks()
'
' WhiteHyperlinks Macro
'
'
With ActiveDocument
Selection.EndKey Unit:=wdLine, Extend:=wdExtend
Selection.Font.Color = -603914241
' **** change the name of the active printer by replacing the text between the quotes below ****
ActivePrinter = "HP Photosmart 8400 Series"
Application.PrintOut FileName:="", Range:=wdPrintAllDocument, Item:= _
wdPrintDocumentContent, Copies:=1, Pages:="", PageType:=wdPrintAllPages, _
ManualDuplexPrint:=False, Collate:=True, Background:=True, PrintToFile:= _
False, PrintZoomColumn:=0, PrintZoomRow:=0, PrintZoomPaperWidth:=0, _
PrintZoomPaperHeight:=0
Selection.Font.Color = -587137025
Selection.HomeKey Unit:=wdStory
End With
End Sub