Sem testar, mas experimente:

Sub Imprime()

uLinha = Sheets("Bd_Funcs").Cells(Rows.Count, 1).End(xlUp).Row
With Sheets("Convite")
For x = 2 To uLinha Step 10
    .Range("E6") = Sheets("Bd_Funcs").Range("A" & x)
    .Range("Q6") = Sheets("Bd_Funcs").Range("A" & x + 1)
    .Range("E21") = Sheets("Bd_Funcs").Range("A" & x + 2)
    .Range("Q21") = Sheets("Bd_Funcs").Range("A" & x + 3)
    .Range("E36") = Sheets("Bd_Funcs").Range("A" & x + 4)
    .Range("Q36") = Sheets("Bd_Funcs").Range("A" & x + 5)
    .Range("E51") = Sheets("Bd_Funcs").Range("A" & x + 6)
    .Range("Q51") = Sheets("Bd_Funcs").Range("A" & x + 7)
    .Range("E66") = Sheets("Bd_Funcs").Range("A" & x + 8)
    .Range("Q66") = Sheets("Bd_Funcs").Range("A" & x + 9)
     ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
        IgnorePrintAreas:=False
Next
End Sub

Perfeito meu amigo!
Show de bola!

Obrigado