Option Compare Database
Option Explicit
Dim Brojac As Integer
Private Sub PageFooter_Print(Cancel As Integer, PrintCount As Integer)
Me.FontSize = 12
Me.ForeColor = 13209
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
Brojac = Brojac + 1
End Sub