Hi Jordan2322,

Here's an old one of mine - you'll want to experiment with the orientation and the lines per page:

Sub SetPA(): Dim i As Integer, t As Integer, PA As String: t = 2
i = Range("A" & Rows.count).End(xlUp).row: PA = "$A$1:$J" & i
t = Int(i / 68) + 1
With ActiveSheet.PageSetup
         .PrintArea = PA: .Orientation = xlLandscape
        .CenterHorizontally = True: .Zoom = False
        .FitToPagesWide = 1: .FitToPagesTall = t
End With: End Sub