Changing print settings within single worksheet

[EMSchaja]

How do I change the print settings of individual pages within a worksheet. Specifically, I'd like my worksheet to print out 4 pages, the first as portrait and the remaining as landscape.

[allenz0rz]

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

[EMSchaja]

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.