How do I format macro for printview.

[Glenn]

I have the macro to print a worksheet. But can I change it to offer the
printview before printing?

Sub TIRE()
'
' TIRE Macro
' Macro recorded 12/2/2006 by Ridgeland Finance
'
' Keyboard Shortcut: Ctrl+Shift+T
'

With ActiveWorkbook.Worksheets("TIRE")
szSheet = .Visible
..Visible = xlSheetVisible
..PrintOut
..Visible = szSheet
End With
'
End Sub