Q:

Printing With Custom Header

I have a macro that creates a document and at the end of the document I want to set the printing specifics as part of the macro.  
What I want is to fit all the columns to one page (but not the rows), and freeze the top 3 rows so when the second page prints the top 3 rows appear on the second page as well (this is the part I´m having issues with). 
My code (below) includes (what I believe to be) everything except the freezing of the top three rows part
With ActiveSheet.PageSetup
 .Orientation = xlLandscape
 .Zoom = False
 .FitToPagesWide = 1
 .FitToPagesTall = False
End With

A:

to add it to your current code use the following: 
With ActiveSheet.PageSetup
     .Orientation = xlLandscape
     .Zoom = False
     .FitToPagesWide = 1
     .FitToPagesTall = False
    .PrintTitleRows = "$1:$3"
End With

to manually do it do this:

Do this and you should get thwe results you are asking for: 
Go to Page Layout, then the sheets tab and set the Rows to repeat at top

