Changing print settings within single worksheet

Sub ChangePrintSettings()
    Rows("1:42").Select 'Change rows so it finds the rows that you want on your first page
    With ActiveSheet.PageSetup
        .Orientation = xlPortrait
    End With
    Selection.PrintOut Copies:=1

    Rows("43:84").Select 'Change rows so it finds the rows that you want on your second page
    With ActiveSheet.PageSetup
        .Orientation = xlPortrait
    End With
    Selection.PrintOut Copies:=1

    Rows("85:126").Select 'Change rows so it finds the rows that you want on your third page
    With ActiveSheet.PageSetup
        .Orientation = xlPortrait
    End With
    Selection.PrintOut Copies:=1

    Rows("127:168").Select 'Change rows so it finds the rows that you want on your third page
    With ActiveSheet.PageSetup
        .Orientation = xlLandscape
    End With
    Selection.PrintOut Copies:=1
End Sub

The sheet actually prints out as multiple pages because it's too wide. Can I adjust the column width per page? Also, the first 3 columns are frozen panes that need to be printed on each of the four pages.