Cómo numerar hojas para imprimir un mismo formato
Tengo un formato y lo quiero imprimir con numeración continua. O sea repetir una misma hoja pero numerad de 1 a 25 por ejemplo
2 Respuestas
Respuesta de Dante Amor
1
Si quieres poner el número de hoja en el pie de página:
Sub PrintHoja() 'Por.Dante Amor veces = 25 For i = 1 To veces ActiveSheet.PageSetup.LeftFooter = "" ActiveSheet.PageSetup.CenterFooter = "Hoja " & i & " de " & veces ActiveSheet.PrintOut Next End Sub
Cambia en la macro el 25 por el número de copias que necesites.
Saludos. Dante Amor
Respuesta
1
2 Opciones:
- Copiar el mismo formato para que efectivamente ocupe las 25 páginas que quieres (y le incluyes el número al pie de página)
- Defines una celda (digamos que A1) donde irá el contador, luego copia el siguiente módulo dentro del entorno de VBA:
Sub imprimirFormato()
Dim cantCopias As Integer, i As Integer
cantCopias = InputBox("Ingrese la cantidad de copias que desee: ", "Ingreso de parámetros", 25)
If Not IsNumeric(cantCopias) Then
MsgBox "Proceso cancelado"
Exit Sub
End If
For i = 1 To cantCopias
Range("A1").Value = i
ActiveSheet. PrintOut 'asegurate de tener bien configurado el área de impresión, impresora, etc
Next i
End Suby luego te queda invocar a esta macro para que se ejecute