Prikazi cijelu temu 16.05.2012 14:32
pmiroslav Van mreze
Clan
Registrovan od:02.02.2009
Lokacija:Osijek


Predmet:Re: Problem sa uredjivanjem Reporta
Imam i to na vrhu, nisam zaboravio, samo nisam naveo u primjeru.

PreuzmiIzvorni kôd (Visual Basic):
  1. Option Compare Database
  2. Option Explicit
  3. Dim Brojac As Integer
  4.  
  5.  
  6.  
  7.  
  8. Private Sub ReportFooter_Print(Cancel As Integer, PrintCount As Integer)
  9. Me.fontsize = 12
  10. Me.ForeColor = 13209
  11. Brojac = Brojac + 1
  12. Select Case Brojac
  13. Case 1
  14. Print "EOP (Robno knjigovodstvo)"
  15. Case 2
  16. Print "Skladište primatelja"
  17. Case 3
  18. Print "Skladište izdavatelja"
  19. Case 4
  20. Print "Predavatelj"
  21. Case 5
  22. Print "Arhiva"
  23. End Select
  24. End Sub
Pozdrav
Ovaj post je ureden 1 puta. Posljednja izmjena 16.05.2012 14:34 od strane pmiroslav.