Not printing hyperlinks

M

mark1

Is there a way to print the page without the hyperlinks
showing up on the printout? I know you can with objects,
but don't know about hyperlinks.

Thanks!!
 
R

Ron de Bruin

Hi mark1

With a macro it is possible

Sub test2()
Dim hyp As Hyperlink
For Each hyp In ActiveSheet.UsedRange.Hyperlinks
hyp.Range.Font.ColorIndex = 2
Next hyp

ActiveSheet.PrintOut

For Each hyp In ActiveSheet.UsedRange.Hyperlinks
hyp.Range.Font.ColorIndex = 5
Next hyp
End Sub
 
Top