Prikazi cijelu temu 06.11.2016 09:31
Registrovan od:22.03.2012
Lokacija:-


Predmet:Re: Isticanje dela teksta u izvestaju
Stavio sam da se samo deo teksta ističe i za to prepravio kod. Mogu menjati veličinu fonta, boju fonta ali pozicija ostaje zakucana ma kako menjao vrednosti Me.CurrentX = 10 i Me.CurrentY = 110. Takođe i vrsta fonta ostaje ista. Evo kako izgleda kod

Private Sub Detail_Print(Cancel As Integer, PrintCount As Integer)
Dim DuzTeksta As Single
Dim DuzinaPapira As Single
Dim StartX As Integer
Dim StartY As Integer
Dim Tekst As String

DuzinaPapira = Me.Width
Me.FontName = TimesNewRoman
Me.ForeColor = 0
Me.FontSize = 18
Me.FontBold = True
Me.CurrentX = 10
Me.CurrentY = 110
Tekst = "prezentacija.gov.rs/svs/HTML/inspekcijski%20nadzor2.html "
Me.CurrentY = 110
Print Tekst

End Sub