Print CurrentRegion w/in BeforePrint Event

I am trying to print the current region of a worksheet within a before print event. Not sure what is wrong with my code. The error message is: unable to get the CurrentRegion property of the Range class.

Private Sub Workbook_BeforePrint(Cancel As Boolean) 
With ActiveSheet 
Range("A5").Select 
Selection.CurrentRegion.Select 
Selection.PrintOut Copies:=1, Preview:=True, Collate:=True 
Range("A5").Select 
End With 
End Sub