Problemas con la impresión VBA y el número de serie

Método 1, evento previo a la impresión, suponiendo que el número de página se coloca en F12, el número de terminación se coloca en G12 (G12 no está en el área de impresión), el área de impresión es A1:F12, copie el siguiente código en la página de edición de código de macro e imprima. Ingrese a la página de inicio con F12, ingrese a la página final con G12, haga clic en Imprimir y se imprimirá 1 página por página automáticamente.Sub?Workbook_BeforePrint()

[F12]?=?[F12]? ?1

Si?[F12]?lt;=?[G12]?Then?Range("A1:F12").PrintOut

End?Sub

Método 2, independiente Cree una macro de impresión. Suponga que el área de impresión es A1: F12 y el número de página se coloca en F12. Copie el siguiente código de macro. la macro "imprimir", se le pedirá que ingrese los números de página inicial y final. Sub? Print()

n ?=?InputBox(prompt:="Ingrese el número de página inicial",? Predeterminado:=1,?Type:=1)

m?=?InputBox(prompt:="Ingrese el número de la página final" ,?Default：=1，?Type：=1)

For?i?=?n?To?m

[F12]?=?i

Rango("A1：F12").PrintOut

Siguiente

Fin?Sub

Las referencias las puedes modificar tú mismo. Si tienes alguna pregunta, puedes preguntar.