what is wrong with my code

[thunder_anger]

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
.PrintTitleRows = Selection.Rows("5:7")
Selection.PrintOut From:=2, To:=lPages
.PrintTitleRows = ""
End With
End Sub

 

[DanteAmor]

It must be like that

.PrintTitleRows = "$5:$7"

Then:

Sub printonlyselection()
    Dim lPages As Long
    lPages = Application.ExecuteExcel4Macro("GET.DOCUMENT(50)")
    With ActiveSheet.PageSetup
        .PrintTitleRows = ""
        Selection.PrintOut From:=1, To:=1
         .PrintTitleRows = "$5:$7"
        Selection.PrintOut From:=2, To:=lPages
        .PrintTitleRows = ""
    End With
End Sub

Regards Dante Amor

 

[thunder_anger]

It must be like that

.PrintTitleRows = "$5:$7"

Then:

Sub printonlyselection()
    Dim lPages As Long
    lPages = Application.ExecuteExcel4Macro("GET.DOCUMENT(50)")
    With ActiveSheet.PageSetup
        .PrintTitleRows = ""
        Selection.PrintOut From:=1, To:=1
         .PrintTitleRows = "$5:$7"
        Selection.PrintOut From:=2, To:=lPages
        .PrintTitleRows = ""
    End With
End Sub

Regards Dante Amor

it took from the 5th to the 7th rows of the active sheet
i want it to take from the 5th to the 7th rows of my selection

 

[DanteAmor]

With this:

Sub printonlyselection()
    Dim lPages As Long
    lPages = Application.ExecuteExcel4Macro("GET.DOCUMENT(50)")
    With ActiveSheet.PageSetup
        .PrintTitleRows = ""
        Selection.PrintOut From:=1, To:=1
        '
        Set r = Selection.Rows("5:7")
        ini = r.Cells(1, 1).Row
        fin = r.Rows.Count + ini - 1
        '
        .PrintTitleRows = "$" & ini & ":$" & fin
        Selection.PrintOut From:=2, To:=lPages
        .PrintTitleRows = ""
    End With
End Sub