Currenty Active or currently in "view"?
This will do current active:
Sub PrintCurrent()
'
' PrintCurrent Macro
'
'
ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,2,,,TRUE,,FALSE)"
End Sub
Or you can record it yourself. Record MAcro File > Print > Select options you want > Print > Stop Recording
Customize ribbon/Toolbar. Select macro from pulldown menu . Add to workspace.