The sub you would want to modify is FilePrintDefault. You can find
most of the default commands through the Word and modify
appropriately for Excel. Search for "Modifying a Word Command" in
the Word VBA Editor.
Sub FilePrintDefault()
'
' FilePrintDefault Macro
' Prints the active document using the current defaults
'
ActiveSheet.PrintPreview
End Sub