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?
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 ()
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 p>
Fin Sub