Macro imprimir varios recibos en Excel

Buenas Tardes

Mi problema es el siguiente. Tengo una macro en excel que me imprime todos los recibos de una nómina uno por una separadamente.

Mi pregunta es como hago para que se generen primero todos los recibos de todos los empleados y luego si imprima. Sino que se guarden todos en un mismo archivo pdf y luego si imprimirlos
Adjunto el código que estoy utilizando a ver si me pueden dar una mano. Agradecido por lo que puedan hacer por mi
Sub imprimir()
i = 9
Sheets("Hoja2").Select
While Sheets("Hoja1").Range("B" & i).Value <> ""
If TypeName(Sheets("Hoja1").Range("B" & i).Value) <> "String" Then
ActiveSheet.Range("G4") = Sheets("Hoja1").Range("B" & i).Value
ActiveSheet.PrintOut
End If
i = i + 1
Wend
End Sub

Agradezco toda la ayuda que me puedan dar

Gracias