Classe HPageBreaks (Excel VBA)

A coleção de quebras de página horizontais dentro da área de impressão. Para usar uma variável de classe HPageBreaks, ela primeiro precisa ser instanciada por exemplo

For Each

Aqui está um exemplo de processamento dos itens HPageBreaks em uma coleção.

Dim shts As Sheets: Set shts = 
Dim hpgbr As HPageBreak
For Each hpgbr In shts.HPageBreaks
	With hpgbr
		
	End With
Next hpgbr

Add

Adiciona uma quebra de página horizontal.

Add (Before)

Before: Um objeto Range . O intervalo acima do qual a nova quebra de página será adicionada.

With Worksheets(1) 
 .HPageBreaks.Add .Range("F25") 
 .VPageBreaks.Add .Range("F25") 
End With

Count

Retorna um valor Long que representa o número de objetos na coleção.

Dim hpbs As HPageBreaks: Set hpbs = 
Dim lngCount As Long
lngCount = hpbs.Count

Item

Retorna um único objeto de uma coleção.

Item (Index)

Index: O número de índice do objeto.

Dim hpbs As HPageBreaks: Set hpbs = 
Dim hpgbrItem As HPageBreak
Set hpgbrItem = hpbs(Index:=1)