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.

---