Macro - Impresión de nº de hojas

Buen día, de este sitio saque la siguiente macro
Sub ImprimeDD()
FstPageN = InputBox("Ingresa el número a asignar a la primera hoja:", "NUMERAR DESDE...", 1)
With ActiveSheet.PageSetup
.PrintTitleRows = "$3:$7"
.PrintArea = "A1:G549"
End With
iPages = ExecuteExcel4Macro("Get.Document(50)")
With ActiveSheet
For J = 1 To iPages
.PageSetup.LeftHeader = FstPageN + J - 1
.PrintOut From:=J, To:=J
Next J
End With
End Sub
La macro esta barbara, cuando la ejecutas, aparece un box e imprime las hojas numeradas a partir del numero que le indiques.
El problema es que yo necesito que adelante del nº salga "HOJA Nº", ¿cómo hago?
Busque en la ayuda y no lo pude encontrar.
Agradecería mucho si me pueden ayudar
Muchas gracias
Respuesta
1
Ajustá esta línea a la que le agregué el texto:
.PageSetup.LeftHeader = "HOJA Nº " & FstPageN + J - 1
Saludos y no olvides finalizar la consulta
Elsa
*No te pierdas las novedades en:
http://es.geocities.com/lacibelesdepunilla/manuales

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Macro para imprimir hoja

Necesito un código de macro para imprimir una planilla que tengo en una hoja de excel, el tema es que quiero que la planilla se ajuste a la totalidad de la hoja y este centrada,
2 respuestas

Mejora en impresión por medio de macro

Tengo este macro Private Sub imprimir() Application.ScreenUpdating = False Sheets("IMPRESION").Select Range("A:G" & j).Select Selection.PrintOut Copies:=1 Sheets("JUGADOS").Select Application.ScreenUpdating = True End Sub pero quiero que cuando...
1 respuesta

¿Cómo hago para copiar MACROS creadas en excel, en otra hoja de ese mismo libro de excel?

He Creado varias MACROS en una hoja de excel, que la tomo como modelo, ya que es de un mes, entonces, voy copiando esa hoja, en el mismo libro. Pero las MACROS que he creado, no se copian, es decir vuelven a la referencia de la primera hoja...
1 respuesta

Auto ajustar el contenido a una sola hoja en Excel

Necesito que me ayudes, necesito una macro en excel para que esta automaticamente ajuste el contenido de un libro para que este siempre se imprima en una sola hoja y no salga en dos. ¿Me podras ayudar en esto? Necesito que por ejemplo se reduzca el...
1 respuesta

Imprimir filas seleccionadas con multiselectextended de listbox e imprimirlas

Hace un par de días que estoy creando una macros para el inventario de bodega, tengo bastante avanzado todo esto, pero me quede pegado en la impresión de mis datos. Les cuento, existe una matriz de rango amplio que se muestra completa en el listbox,...
1 respuesta

Como bloquear el área de impresión en office 2007

Necesitaría poder bloquear el área de impresión de los archivos de Word y Excel, para que nadie me pueda modificar los parámetros, siempre se realizan las impresiones desde la misma impresora.
1 respuesta

Macro listar valores únicos y sumar

Necesito una macro para listar valores únicos de una lista y sumar los valores asociados a esos datos únicos. En la columna A está una lista de nombres, en la columna B están los saldos correspondientes a esos nombres. Lo que necesito es que mediante...
1 respuesta

Formulas en el encabezado o pie de pagina

Mi pregunta es si podemos insertar formulas en pie de pagina Por ejemplo: Pag: xxxx Pag. Sig. Xxxx+1 Ir Añadiendo una formula para decir cuando es la siguiente La duda que me ha surgido mientras te escribía, como se haría que supiese la ultima...
1 respuesta

Imprimir páginas de una hoja de excel según valor de celdas

Tengo una hoja de excel paginadas de 1 a 71 pero quisiera crear una macro que imprimiera las páginas según el valores de una celda C1 : PÁG inicial y C2 : Pág final Con el objetivo de que al ejecutar la macro tome los valores de las celdas y ese sea...
1 respuesta