MOZEBITIPONOVO 05.11.2016 12:00
Predmet:Isticanje dela teksta u izvestaju

Приказао сам један пример неког поља у извштају. Може ли се неки део текста истаћи (болд или италик фонтом) или неким другим фонтом или рецимо поље [Text13] чији се садржај уписује у ово поље.

="Састављен дана " & Format([Datum_Sastavljanja_Zap];"dd.mm.yyyy") & " године у " & Format([Vreme_Sastavljanja_Zap];"hh,nn") & " часова у просторијама Управе , ул Масарикова бр. 12, у предмету вршења редовног канцеларијског и теренског инспекцијског надзора у погледу надзора над спровођењем прописаних мера заштите од пожара, у складу са " & [Text13]

zxz 05.11.2016 12:14
Predmet:Re: Isticanje dela teksta u izvestaju

Najbolje bi bilo da napravis neki primjer.
Nije mi bas do kraja jasno sta zelis i u kom slucaju.
Da mozes svaki tekst box formatirati odnosno mijenjati boju i font to sigurno znas.
Bojim se da tebi ne treba da u datom rekordsetu (redu) na osnovu nekog podatka zelis da promijenis boju ili fornt ili pak da dopises neki tekst pored toga ili ga ubacis.
Nosam bas skroz siguran ali vjerujem sto god htio da se moze napraviti.

MOZEBITIPONOVO 05.11.2016 14:39
Predmet:Re: Isticanje dela teksta u izvestaju

Ideja mi je da se deo teksta iz ponuđenog u prvom postu npr Управе , ул Масарикова бр. 12 ispiše boldirano ili italikom, a takođe da li je moguće da se i sadržaj polja kao na kraju ponuđen [Text13] takođe ispiše kao bold ili italik.

zxz 05.11.2016 15:40
Predmet:Re: Isticanje dela teksta u izvestaju

Evo jedan mali primjer.
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(5) As String
Dim i As Integer


DuzinaPapira = Me.Width
Me.ForeColor = 255
Me.FontSize = 15
Me.FontBold = True
Me.CurrentX = 0
Me.CurrentY = 10
Tekst(0) = "Sastavljen dana:"
Tekst(1) = Me.Datum
Tekst(2) = "Godine u:" & Time
Tekst(3) = "Časova u prostorijama uprave"
For i = 0 To 3
If i = 0 Then

ElseIf i = 0 Then
Me.ForeColor = 255
Me.FontItalic = False
Me.FontBold = False
ElseIf i = 1 Then
Me.ForeColor = 0
Me.FontItalic = True
Me.FontBold = False
ElseIf i = 2 Then
Me.ForeColor = 0
Me.FontItalic = False
Me.FontBold = False
ElseIf i = 3 Then
Me.ForeColor = 16711680
Me.FontItalic = False
Me.FontBold = True
End If
Me.CurrentY = 10
Print Tekst(i)
Next
End Sub

Currentx i currnet y su koordinate mjesta gdje ce se pojaviti.
ako imas i jedan podata citanja iz tekst polja koje ima control source ponavljat ce se onoliko puta koliko imas rekorda.

MOZEBITIPONOVO 06.11.2016 09:31
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

zxz 06.11.2016 11:52
Predmet:Re: Isticanje dela teksta u izvestaju

DuzinaPapira = Me.Width- Ovo ti nicemu ne koristi.
Ja sam tamo stavio da vidis da mozes iscitati pa da mozes napraviti prelom teksta ako je veci od duzine strane.
Me.CurrentY = 110- ovo je viska ili dole drugo.
Tekst = "prezentacija.gov.rs/svs/HTML/inspekcijski%20nadzor2.html "
Me.CurrentY = 110
Print Tekst
Sve vrijednosti se odnose na tekst a ne na dio teksta da bi bilo na dio trebalo bi:
tekst1="prezentacija.gov.rs/svs/HTML"
tekst2="/inspekcijski%20nadzor2.html "
Me.FontName = TimesNewRoman
Me.ForeColor = 0
Me.FontSize = 18
Me.FontBold = True
Me.CurrentX = 10
Me.CurrentY = 110
print tekst1
' esad postavke za drugi dio teksta
Me.FontName = TimesNewRoman
Me.ForeColor = 0
Me.FontSize = 10
Me.FontBold = false
Me.CurrentY = 110
print tekst2

zato sto je Currenty isti tekst ce se nastviti u isto redu.

MOZEBITIPONOVO 06.11.2016 15:05
Predmet:Re: Isticanje dela teksta u izvestaju

To je to. Pošto u izveštaju imam različitih tekstova u zavisnosti od uslova malo sam se igrao dok nisam podesio svaki prikaz u odnosu na uslov. Hvala lepo.