Macro imprimir Varios Formatos de una hoja en excel

Quisiera su apoyo tengo en una hoja unos reportes que varían por mes son boletas de pago de remuneraciones quisiera una macro para que se pueda ajustar automáticamente cada formato en cada hoja. Ejemplo: la primera boleta de pago seria en el rango A1:R36, y que la segunda tendría el mismo tamaño, sucesivamente hasta ahora solo tengo el código para el área de impresión dinámica:

Sub Impresion1()
Range(Range("a1"), Range("p65656").End(xlUp).Offset(0, 1)).Select
ActiveSheet.PageSetup.PrintArea = Selection.Address
Range("t1").Value = Can1
End Sub