Predmet:Re: Abecedni popis u Reportu i oznake za pojedinu stranicu
Evo.
Mislim da nije potrebno nikakvo abjasnjenje jer sam uradio na tvom primjeru.
PreuzmiIzvorni kôd (Visual Basic):Dim OdS As String
Dim DoS As String
Private Sub PageFooterSection_Print(Cancel As Integer, PrintCount As Integer)
DoS = UCase(Left(Me.Radnik, 1))
Me.slovo = "Od: " & OdS & " do: " & DoS
OdS = DoS
End Sub
Private Sub Report_Activate()
If Format$(DoS) = "" Then
OdS = UCase(Left(Me.Radnik, 1))
End If
End Sub
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.