How to print 2 or more copies of record group

R

RM

Hello All,
I am using Access 2000. I have a report based on a table and it's records
are grouping by three fields. Group have header, detail and footer sections.
I'm using code:

Private Sub GroupHeader3_Print(Cancel As Integer, PrintCount As Integer)

Dim intKopSk As Integer
If Me.txtKopSk = "P" Then
intKopSk = 3
ElseIf Me.txtKopSk = "D" Then
intKopSk = 2
Else
intKopSk = 1
End If
If PrintCount < intKopSk Then
Me.MoveLayout = True
Me.NextRecord = False
Me.PrintSection = True
End If
End Sub

But it repeat's only this one section. I need to do repetitions of all
sections of group. How to solve this problem?
Thanks
 
Top