Microsoft Office Access
uređuje Branislav Mihaljev, MVP

Učinite izveštaj čitljivijim

Nivo:
NIVO 3 - Prilozi na ovom nivou su namenjeni naprednim korisnicima, onima koji se već dobro snalaze u programima i onima koji već imaju iskustva u naprednim tehnikama. Ovom nivou pripadaju preporuke i trikovi koje bi trebalo da savlada svako ko teži dugotrajnom i efikasnom radu u Office programima.

Jedna stvar je odštampati ogromni izveštaj, a sasvim druga i mnogo mučnija mučna stvar - čitati ga. Pomozite sebi i drugima: popravite izgled dosadnih listinga.

Štampani izveštaji su često naporni za čitanje, posebno ako sadrže duge nizove brojeva. Ako dugo traži vrednosti na širokom ispisu, korisnik se brzo umori i može da napravi grešku. Zbog toga izveštaje treba učiniti što čitljivijim. Ponekad se iza svakog reda štampa linija, ali to možda nije najsrećnije rešenje. Nudim vam moguće rešenje koje može da se primeni u nekoliko poslednjih verzija Accessa: iza svake pete linije izveštaja postavićemo praznu liniju.

Iskoristićemo dva svojstva sa logičkim vrednostima, koja Access dodeljuje događajima OnPrint i OnFormat prilikom pripreme izveštaja. To su svojstva NextRecord, koje određuje da li se štampa pomera ka sledećem slogu, i PrintSection, koje određuje da li će slog biti odštampan (postoji i treće svojstvo MoveLayout, koje nije upotrebljeno u ovom primeru, čijom upotrebom se vrši skok na novu stranicu). Kombinacijom ovih svojstava, može se precizno kontrolisati kad, gde i šta se štampa u izveštaju. U prilogu vidite rešenje koje je upravo takva kombinacija, povezana uz odgovarajuće događaje. Rešenje pretpostavlja da se štampa prost izveštaj, koji osim zaglavlja sadrži samo detaljne redove, dakle ne postoji složenija struktura izveštaja.

' Kod za kontrolu događaja u pripremi izveštaja
' Postavljanje praznog reda iza svakog petog sloga izveštaja
' ------------------------------
' sledeći kod se postavlja u sekciju deklaracija
'
Option Compare Database
Option Explicit

' Sledeći red prazan? (True/False)
Dim fSledPrazan As Integer

' Brojač linija
Dim intBrojacLin As Integer


' ------------------------------
' sledeći kod se postavlja u sekciju Detail / Format
'
Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)

If FormatCount = 1 Then intBrojacLin = intBrojacLin + 1
If fSledPrazan Then
    Me.PrintSection = False
    Me.NextRecord = False
    fSledPrazan = False
Else
    Me.PrintSection = True
    Me.NextRecord = True
    If intBrojacLin Mod 5 = 0 Then fSledPrazan = True
    End If
End If

End Sub


' ------------------------------
' sledeći kod se postavlja u sekciju PageHeader / Format
'
Private Sub PageHeader_Format(Cancel As Integer, _
   FormatCount As Integer)

' Reset brojača linija na vrhu stranice
intBrojacLin = 0

' Nikad ne štampaj prvi red stranice kao prazan
fSledPrazan = False

End Sub

Otvorite pripremljeni izveštaj za izmene (režim Design) i pozovite operaciju Build Event; izaberite opciju Code Builder. U odgovarajuće sekcije unesite priloženi kod i sačuvajte izmene.