Não entendi!

Preciso que em toda pagina que for ser impressa saia as linhas a partir de "total acumulado", pois quando preeencho os itens do corpo da proposta as linhas excedem a impressão e sair só essa parte numa folha separada, e gostaria que fosse impresso tanto as linhas superior como as inferiores na impressão

Para separar impressão em folhas diferentes:

Mude o modo da planilha para "visualização de quebra de página"
no canto inferior direito da tela (próximo a ferramenta de zoom)

clique com o botão direito do mouse sobre a linha que você quer separar
Vá até o menu Inserir quebrar de página

É isso?

Não seria isso.

É assim, quando coloco muitas linhas na parte do orçamento a quebra de paginas desconfigura o layout da proposta, precisava manter a formatação original independente da quantidade de linhas.

Talvez seja mais facil entender assim: preciso que em toda impressão saia na parte inferior até a linha 12 e também que saia a parte "inferior" que é a partir da linha 33. Ou sejá, toda vida manter essa formatação na impressão sempre saindo a parte superior e inferior em cada folha, mesmo colocando qualquer quantidade de itens.

Acredito que com os ajustes necessários a rotina indicada no link abaixo ajude.

Excel planilha vba impressao personalizar uma pagina para impressao
http://www.microsoftexcel.com.br/index. ... essao.html

Se não for isto, pelo que entendi você irá acrescentar mais itens e com isto a impressão seria em mais de uma folha, desta forma temos como repetir as linhas do cabeçalho para repetir e as de baixo atraves de rotina, mas na minha opinião, o ideal é gerar mais de uma proposta separada, assim não tem de ficar mexendo na configuração de impressão.

[]s

Bom dia, Mauro.

É justamente isso que preciso, porém a rotina não funcionou ;/

Voce tem de eliminar as linhas de configuração referente ao tipo de página, margens e conteúdos do Cabeçalho e Rodapé e a rotna tem de ser executada no Modulo VBE da ABA uma vez que está setando ActiveSheet :

Tente assim :

Sub Organizando_personalizacao_impressao()
    Dim BotaoLinha As Integer, ImpData, CopiaW, LRodape, MontaRodape
    Dim vPaginas As Integer, vUltimaColuna
    vUltimaColuna = Application.CountA(ActiveSheet.Range("1:1"))
    BotaoLinha = Application.CountA(ActiveSheet.Range("A:A"))

'Alterado para que seja sempre RETRATO
    'observe nesta condição, se os dados for maior que coluna(6) imprime retrato, senão, paisagem
    'If vUltimaColuna >= 6 Then
vPaginas = 1 '1=xlPortrait (retrato)
    'Else
    'vPaginas = 2 '2=xlLandscape (paisagem)
    'End If

'============= personalize a impressao de suas páginas cabeçalhos e rodapés ==========
    'Eliminamos a Configuração Cabeçalho e Rodapé
    'MontaRodape = "&8" & Chr(34) & "Excel VBA" & Chr(34) & _
    " Reservado área de código dos Alunos SKY-XL-EVES®," & Chr(10) _
    & "Fone # 1-800-XL-EVES®" & Chr(10) & "Sorria, você esta em questão!!!"
    'ImpData = Application.Text(Now(), "dd/mm/yyyy HH:mm:ss")
    'CopiaW = Chr(169) & Year(Now())
    'LRodape = "&8" & "*=Saberexcel" & Chr(10) & CopiaW & _
    " Confidendencial Propridades dos Alunos Saberexcel"

Application.StatusBar = "Acertando um sistema de página"

'Como está indicando ActiveSheet, a rotina tem de ser executada dentro do modulo da aba
ActiveSheet.Range(Cells(2, 1), Cells(BotaoLinha, vUltimaColuna)).Select

    With ActiveSheet.PageSetup
            'Eliminamos a Configuração Cabeçalho e Rodapé
            '.LeftHeader = ""
            '.CenterHeader = "&""Arial,Bold""ABCDEFG Agenda Telefonica" _
            & Chr(10) & SpecialMsg
            '.RightHeader = ImpData
            '.LeftFooter = LRodape
            '.CenterFooter = "Pagina &P of &N"
            '.RightFooter = MontaRodape
        .LeftMargin = Application.InchesToPoints(0.75)
        .RightMargin = Application.InchesToPoints(0.75)
        .TopMargin = Application.CentimetersToPoints(1.5) 'alterado para centimetros
        .BottomMargin = Application.CentimetersToPoints(1.5) 'alterado para centimetros
        .HeaderMargin = Application.InchesToPoints(0.5)
        .FooterMargin = Application.InchesToPoints(0.5)
        .PrintHeadings = False
        .PrintGridlines = False
        .PrintNotes = False
        .CenterHorizontally = True
        .CenterVertically = False
        .Orientation = vPaginas 'Landscape or Portrait(Paisagem e retrato)
        .Draft = False
        ' .PaperSize = xlPaperLetter
        .FirstPageNumber = xlAutomatic
        .Order = xlDownThenOver
        .BlackAndWhite = False
        .Zoom = False
        .FitToPagesWide = 1 'força uma largura de página
        .FitToPagesTall = False 'Retorna ou define a altura, em número de páginas, pela qual a planilha será dimensionada quando impressa. Só se aplica a 'planilhas.
    End With

'ActiveWorkbook.Save
Application.StatusBar = ""
[H1].Select 'saida de macro

End Sub

Pesquise sobre os parametros de configurações e vá alterando até chegar no ideal.

OBS : se você configurar as Margens Superior e Inferior para 5 cm e o Tipo de Papel para A4, você conseguirá deixar em 01 (uma) página somente no máximo 21 itens

Margens Superior e Inferior :

        .TopMargin = Application.CentimetersToPoints(0.5) 'alterado para centimetros
        .BottomMargin = Application.CentimetersToPoints(0.5) 'alterado para centimetros

Tipo Papel :

.PaperSize = xlPaperA4

[]s