Jump to content
Sign in to follow this  
vetetista

Inserir nova linha no início de cada Página impressa

Recommended Posts

vetetista

Boas,

Pretendo inserir uma nova linha no inicio de cada folha impressa. Já tentei fazer de várias maneiras mas sempre sem sucesso.

1º Tentativa

Como sei quantas folhas são impressa pela função:

iHpBreaks = ActiveSheet.HPageBreaks.Count + 1

tentei em cada página contar o número de células existentes e na primeira célula inserir a linha pretendida. Mas como não consegui encontrar uma forma de contar as células , esta opção não teve sucesso.

2º Tentativa

Tentei através da área selecionada determinar as posição das células, mas está também foi sem sucesso.

'areaCount = iHpBreaks 'Selection.Areas.Count

'If areaCount <= 1 Then

'    MsgBox "The selection contains " & _

'        Selection.Rows.Count & " rows."

'Else

'    i = 1

'    For Each a In Selection.Areas

'        MsgBox "Area " & i & " of the selection contains " & _

'            a.Rows.Count & " rows."

'        i = i + 1

'    Next a

'End If

3º Tentativa

ActiveSheet.PivotTables("PivotTable4").PrintTitles = True

'.RepeatItemsOnEachPrintedPage = True

Mas como não sei usar o "pivottable" nem "RepeatItemsOnEachPrintedPage".

Será que me pode ajudar?

Só pretendo colocar a primeira linha sempre igual em todas as folhas, tipo cabeçalho.

Share this post


Link to post
Share on other sites
paulosemblano

Veja se este código te atende:

Sub TestHorizontal()

MsgBox Plan1.HPageBreaks.Count

For I = 1 To Plan1.HPageBreaks.Count

    On Error Resume Next

    MsgBox Plan1.HPageBreaks(I).Location.Row

    Plan1.Range("F1").Value = Plan1.HPageBreaks(I).Location.Row

Next I

End Sub

Enquanto não houver realmente uma quebra de página conta normalmente.

Se houver uma quebra de página inserida pelo usuário conta até ela. O restante dá erro.

Daí ter inserido On Error Resume Next

Para inserir uma quebra de página:

Sub Macro1()

Plan1.HPageBreaks.Add Before:=Range("A7")

End Sub

Para retirar todas as quebras de página:

Sub Macro2()

Plan1.ResetAllPageBreaks

End Sub

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
Sign in to follow this  

×
×
  • Create New...

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.