Private Sub ReportFooter_Print(Cancel As Integer, PrintCount As Integer)
Me.fontsize = 12
Me.ForeColor = 13209
Brojac = Brojac + 1
Select Case Brojac
Case 1
Print "EOP (Robno knjigovodstvo)"
Case 2
Print "Skladište primatelja"
Case 3
Print "Skladište izdavatelja"
Case 4
Print "Predavatelj"
Case 5
Print "Arhiva"
End Select
End Sub