this code will print a selection
with title rows only from page 2
it stops at this
.PrintTitleRows = Selection.Rows("5:7")
Sub printonlyselection()
Dim lPages As Long
lPages = Application.ExecuteExcel4Macro("GET.DOCUMENT(50)")
With ActiveSheet.PageSetup
Selection.PrintOut From:=1, To:=1...