Print bestemt side i Excel

Hej
Jeg har brug for en let måde at lave printknapper i Excel.
Jeg har følgende kode, så jeg kan printe bestemte områder:
Sub PrintRpt3()                         
    With Worksheets("Sheet1").PageSetup 
        .CenterHorizontally = True
        .PrintArea = "$A$3:$F$15"
        .PrintTitleRows = ("$A$1:$A$2")
        .Orientation = xlPortrait
        .FitToPagesWide = 1
        .FitToPagesTall = 1
    End With
    Worksheets("Sheet1").PrintOut
End Sub
Det betyder at når jeg har 35 sider jeg vil have mulighed for at udskrive, så skal jeg lave en knap til hver side med egen kode på.
Er der ikke en lettere måde at gøre dette på?
Mvh