Harley,
Try something like this. I'm not one of the experts, but this worked for me. Adapt as necessary.

Option Explicit
Private Sub PrintArea()
Dim LngLastRow As Long

LngLastRow = ActiveSheet.Range("G65536").End(xlUp).Row
ActiveSheet.Range("A1:G" & LngLastRow).Select

With ActiveSheet.PageSetup
.PrintArea = ("A1:G" & LngLastRow)
.FitToPagesWide = 1
.FitToPagesTall = False

End With
End Sub

HTH