Bosna i Hercegovina



#1 05.11.2016-11:00
MOZEBITIPONOVO Offline
Clan
Registrovan/a od: 22.03.2012-09:17
Komentari: 139


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

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

#2 05.11.2016-11:14
zxz Offline
Administrator
Registrovan/a od: 03.02.2009-16:22
Komentari: 9,676


Subject: 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.
Pozdrav
↑  ↓

#3 05.11.2016-13:39
MOZEBITIPONOVO Offline
Clan
Registrovan/a od: 22.03.2012-09:17
Komentari: 139


Subject: 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.
↑  ↓

#4 05.11.2016-14:40
zxz Offline
Administrator
Registrovan/a od: 03.02.2009-16:22
Komentari: 9,676


Subject: 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.
Pozdrav
↑  ↓

#5 06.11.2016-08:31
MOZEBITIPONOVO Offline
Clan
Registrovan/a od: 22.03.2012-09:17
Komentari: 139


Subject: 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
↑  ↓

#6 06.11.2016-10:52
zxz Offline
Administrator
Registrovan/a od: 03.02.2009-16:22
Komentari: 9,676


Subject: 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.
Pozdrav
↑  ↓

#7 06.11.2016-14:05
MOZEBITIPONOVO Offline
Clan
Registrovan/a od: 22.03.2012-09:17
Komentari: 139


Subject: 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.
↑  ↓

Stranice (1): 1


All times are GMT +01:00. Current time: 26.05.2018-12:59.