Red de conocimiento informático - Problemas con los teléfonos móviles - VBA ¿Cómo encontrar la celda en la esquina superior derecha de cada página impresa en Excel?

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.