Ola Pessoal, consegui fazer com que a totalizacao ocorresse na quebra por Pedido, só não estou conseguindo fazer com que o cabecalho seja impresso em todas as paginas do relatorio, quem puder orientar-me neste sentido, fico grato a todos que postarem no auxilio, abraço

Obs. Gostaria que fosse impresso 50 registro por pagina.

Ola Pessoal, por gentileza, alguem saberia me ajudar com relação ao meu relatorio, estou precisando fazer com que seja impresso o cabecalho em todas as paginas e não sei que comando usar e tambem o numero das paginas, grato a todos que postarem no auxilio, obrg

Ola Pessoal, consegui resolver o problema que estava tendo com relação ao cabeçalho, aqui esta o código, inserir logo apos a linha sumTotal, segue abaixo, obrg a todos que postaram e orientaram, grato

 SumTotal = SumTotal + TabVendas.Cells(LINHATAB, 8)
          
      LINHAREL = LINHAREL + 1
      LINHACOUNT = LINHACOUNT + 1
             
      If LINHACOUNT Mod 10 = 0 Then
         'Cabecalho
         
         ActiveSheet.PageSetup.CenterHeader = "&lEmpresa: " _
          "&C  Data Emissão: " _
         & "&D" _
         & " &B&I &I&B&T &R" _
         & "  Pagina  &P "
            
        
         'Impressao do Rodape no relatorio
         Sheets("Relatorios").PageSetup.LeftFooter = "&l Usuario: " & Environ("USERNAME") & _
         "&R       " & "Página &P de &N"
         'ActiveSheet.PageSetup.RightFooter = "Página &P de &N"
         '& Range("a4").Value & ": " & Range("b3")
        'ActiveSheet.HPageBreaks.Add Before:=Rows(LINHACOUNT + 1)
         LINHACOUNT = 0
      End If
      
    End If
   
      LINHATAB = LINHATAB + 1
  Loop