Imprimir Folios

Con un conocimiento basico de Macros configura este codigo e imprime los folios que desees con un solo formato y evita crear cientos de ellos en una hoja de Excel para imprimirlos todos

Codigo

Sub imprimirfolios()

Do Until Range("Q2") = Range("B57").Value + 2

ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

Range("Q2").FormulaR1C1 = Range("Q2").Value + 2

Loop

MsgBox "El último folio impresión fue el número: " & Range("Q2").Value - 1 & "" & " y el siguiente que aún no se ha impreso es: " & Range("Q2").Value & "" & Chr(10) & "" & Chr(13) & "" & Chr(10) & "" & "" & " EL NUMERO DE FOLIO LIMITE A IMPRIMIR DEBE SER UN NUMERO MAYOR O IGUAL AL FOLIO ACTUAL"

End Sub