Macro to Print Selection

I've been using the following VBA to print worksheets where the print area remains constant.

Sub PrintTastic()
With ActiveSheet.PageSetup
        .PrintArea = "$A2:$C17"
        .CenterHorizontally = True
        .CenterVertically = True
    End With
        ActiveSheet.PrintOut: 
End Sub

What I need now is a macro that will print the selection instead of a static print area.

Any ideas?