VBA ¿Cómo encontrar la celda en la esquina superior derecha de cada página impresa en Excel?
Sub GetPBRightUp()
Dim pb As HPageBreak
Con Sheet3
Si .VPageBreaks.Count = 0 Entonces 'Hay dos situaciones: una es el símbolo de paginación vertical .
Para cada pb en .HPageBreaks
Debug.Print Cells(pb.Location.Row, Range(.PageSetup.PrintArea).SpecialCells(xlCellTypeLastCell) .Column()).Address
Siguiente
Else 'Hay dos situaciones: la segunda es que no hay salto de página vertical.
Para cada vb en .VPageBreaks
Para cada pb en .HPageBreaks
Depurar.Imprimir celdas (pb.Location.Row, vb.Location.Column( )).Dirección
Siguiente
Siguiente
Finalizar si
Terminar con
Fin Sub
'Prueba simple, si hay errores, puedes continuar haciendo preguntas.