[Resolvido]Ajuda Sistema de ponto - Impressão de folha de ponto

Option Compare Database
Option Explicit
Dim z As Long
Dim rs As Recordset
Dim j()
Dim k As Long
 
'------------------------------------------------------------
Private Sub Report_Open(Cancel As Integer)
Set rs = CurrentDb.OpenRecordset(Me.RecordSource)
rs.MoveLast: rs.MoveFirst
k = rs.RecordCount
ReDim j(7, k)
j = rs.GetRows(k)
Set rs = Nothing
End Sub

Private Sub CabeçalhoDoGrupo1_Print(Cancel As Integer, PrintCount As Integer)
Static r As Long
Do While Not r >= k
    If z <> Me!Zona Then
        Me!Códigos = j(3, r)
        z = Me!Zona
        r = r + 1
    Else
        If Me!Zona <> j(2, r) Then
            Exit Do
        Else
            Me!Códigos = Me!Códigos & "   -   " & j(3, r)
            r = r + 1
        End If
    End If
Loop
End Sub

Assim fugimos da necessidade do usarmos a seção Detalhe do relatório.  Observe no exemplo que a seção Detalhe tem que ficar fechada.

Teste bastante para ter a certeza de nunhum tipo de falha, ok?!

Nota: Procure executar qualquer filtragem na consulta origem.

Veja como ficou o resultado:



Sucesso!