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 pagina, ya que no habría siguiente y se podía cerrar con un guion, como por ejemplo:

Pag: xxxx Pag. Sig. -

1 Respuesta

Respuesta
1

Te dejo un vídeo para poner las hojas en el pie de página,

https://www.dropbox.com/s/2llg2u2csyx6sf4/FreeScreenVideoRecorderVideo.avi

Saludos. Dam
Si es lo que necesitas.

Hola este paso que esta en tu video lo hago sin problemas

pero añadir fórmulas, es posible ??

Puedes utilizar una macro como esta

Sub Macro1()
'Utilizar fórmulas en la impresión
With ActiveSheet.PageSetup
.PrintTitleRows = ""
.PrintTitleColumns = ""
End With
ActiveSheet.PageSetup.PrintArea = ""
With ActiveSheet.PageSetup
.LeftHeader = ""
.CenterHeader = ""
.RightHeader = ""
.LeftFooter = ""
.CenterFooter = 20 * 50 '"&N"
.RightFooter = "&P"
.LeftMargin = Application.InchesToPoints(0.787401575)
.RightMargin = Application.InchesToPoints(0.787401575)
.TopMargin = Application.InchesToPoints(0.984251969)
.BottomMargin = Application.InchesToPoints(0.984251969)
.HeaderMargin = Application.InchesToPoints(0)
.FooterMargin = Application.InchesToPoints(0)
.PrintHeadings = False
.PrintGridlines = False
.PrintComments = xlPrintNoComments
.PrintQuality = 600
.CenterHorizontally = False
.CenterVertically = False
.Orientation = xlPortrait
.Draft = False
.PaperSize = xlPaperLetter
.FirstPageNumber = xlAutomatic
.Order = xlDownThenOver
.BlackAndWhite = False
.Zoom = 100
.PrintErrors = xlPrintErrorsDisplayed
End With
ActiveWindow.SelectedSheets.PrintPreview
End Sub

En estas líneas puedes poner una fórmula

.LeftFooter = ""
.CenterFooter = 20 * 50 '"&N"
.RightFooter = "&P"

En el ejemplo puse la fórmula 20 * 50, en la impresión verás el resultado = 1000

Saludos. Dam

Si es lo que necesitas.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

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

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

Personalizar dimensiones de Tamaño de Papel en Excel

Dam, Estoy organizando una Macro y una de sus tareas no he logrado concluirla. Necesito generar la instrucción que me permita dar dimensiones específicas de Alto = 21,59 cms y de Ancho = 32,56 cms La que más se aproxima es la de tamaño oficio que es...
1 respuesta

Macro para Imprimir hoja en impresora que no es la predeterminada.

Me podrían ayudar a generar una macro para imprimir una un archivo en dos paginas y mandarla a otra impresora que no es la predeterminada, Tengo varias impresoras en red y la que uso predeterminada es una impresora matriz, el tema es que el reporte...
1 respuesta

Encabezados y pie de página en excel

Me podrían informar como puedo dejar definido para todos mis nuevos libros los encabezados o pie de página al imprimir. Ahora tengo que configurar hoja por hoja y libro por libro
1 respuesta

Macro especificaciones de impresión

Quiero saber cómo crear macro que establezca las condiciones de impresión: calidad borrador, ambas caras, desde la última hoja, etc.
1 respuesta

Macro para imprimir selecciones diferentes en hojas diferentes

Necesito ayuda con una macro que debería ser sencilla y me esta causando problemas, necesito imprimir de una hoja de excel 2 selecciones diferentes en hojas diferentes y de otra hoja 1 selección, me explico: lo que hago normalmente es en la "hoja 1"...
1 respuesta

Código VBA para Encabezados y Pie de Página

Hace algunos días ando con una inquietud, sin resolver hasta ahora: Lo que persigo es que, así como "InputBox(" o "UCase(" permiten introducir desde VBA (a una variable o a una celda) la información que desee el usuario, yo necesito conocer la...
1 respuesta

Celda en pie de página

Mi duda es si se puede y de que manera se puede poner una referencia de celda en un pie de página. Por ejemplo que el valor del contenido en la celda "A1" sea "Armando". Entonces el pie de página se visualice "Armando". Claro el valor de la celda es...
1 respuesta

Ajustar margenes de una hoja de excel desde VB

Si recuerdas la última vez te pregunte acerca de cambiar la orientación de una hoja de cálculo desde VB y el formato de una celda. Ambas sugerencias tuyas me sirvieron de maravilla. Pero ahora mi pregunta es: ¿Desde VB es posible ajustar las márgenes...
1 respuesta