Prikazi cijelu temu 05.02.2012-11:49
zxz Offline
Administrator
Registrovan/a od: 03.02.2009-16:22
Lokacija: Tuzla


Subject: Razmak izmedju redova u izvjestaju
Ovo sam negdje nasao i mozda malo prepravio.
Ne sjecam se vise.
Ukoliko zelite napraviti razmak nakon odredjenog broja redova u izvjestaju koji je napravljena kao redovi i kolone, mozete pomocu koda ispod.
DownloadIzvorni kod (Visual Basic):
  1. Option Compare Database
  2. Option Explicit
  3.      Dim Prazno As Integer
  4.      Dim Brojac As Integer
  5.  
  6. Private Sub Detail_Print(Cancel As Integer, PrintCount As Integer)
  7. If PrintCount = 1 Then
  8. Brojac = Brojac + 1
  9. End If
  10. If Prazno Then
  11.     Me.PrintSection = False
  12.     Me.NextRecord = False
  13.     Prazno = False
  14. Else
  15.     Me.PrintSection = True
  16.     Me.NextRecord = True
  17.     Prazno = (Brojac Mod 3 = 0) ' koliko redova
  18. End If
  19. End Sub
  20.  
  21. Private Sub PageHeader_Format(Cancel As Integer, FormatCount As Integer)
  22.  Brojac = 0               'Reset brojaca
  23.     Prazno = False
  24. End Sub

Pozdrav