Nešto sam pokušavao pa sam došao do sledećeg rešenja (nije nešto,ali završava posao).Naime textualno polje sam prilikom kreiranja izveštaja formatirao ovako- textwidh=2.4CM i fontsize 8,font name arial.E sad sa ovakvim setovanjem u ovom text polju stane 10 stringova (znakova,kakogod).I sada prilikom otvaranja izveštaja proveravam da li je dužina stringa veća od 10 i ako jeste onda postavljam da veličina fonta je u stvari 100/brojem stringova i to mu je to.Trebalo bi možda malo isprobavati pa doći do konkretnijeg rešenja,ali eto na brzinu.Pozdrav.Evo koda:
Code:
Private Sub Report_Open(Cancel As Integer)
Dim broj As Long
Dim strtext As String
strtext = DLookup("textpolje", "Table1")
broj = Len(strtext)
MsgBox "je " & broj
If broj > 10 Then
Me.text1.FontSize = 100 / broj
Else
End If
End Sub
gde je textpolje polje u tabeli1 koje je record source za text1 polje.Nadam se da sam bio jasan.
Jednog dana...