Red de conocimiento informático - Espacio del host - Quiero utilizar un formulario EXCEL para imprimir varias copias del mismo formulario. ¿Cómo se pueden generar automáticamente las configuraciones del número de página?

Quiero utilizar un formulario EXCEL para imprimir varias copias del mismo formulario. ¿Cómo se pueden generar automáticamente las configuraciones del número de página?

Se pueden utilizar macros para imprimir. Utilice una celda ubicada adecuadamente para colocar el número de página, y se incrementará automáticamente en uno cada vez que imprima una copia.

El siguiente código utiliza la celda I46 para almacenar el número de página. Si no es apropiado, reemplácelo con la ubicación de la celda que desee

Sub PrintPage ()

'Imprimir el número de copias de la impresión incremental del número de página

Dim i As Integer

Dim Ps As Integer

Dim Str1 As String

Str1 = InputBox("Ingrese el número de copias que desea imprimir:", "Número de copias a imprimir", "1")

Ps = Val(Str1)

Si Ps < 1 Entonces

MsgBox "Se ingresó un número incorrecto de copias impresas, vuelva a ingresar". VbInformation, "Consejo de EasyHealthLife.com"

Salir de Sub

Finalizar si

'Supongamos que la celda I46 contiene el número de página

Con ActiveSheet

Para i = 1 a Ps

. Rango("I46").Valor = i

.PrintOut

DoEvents

Siguiente

Finalizar con

Fin Sub