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. |