olmadı hocam yazı bir yerde kenarlıklar bir yerde
Sorun 3 tane metin kutusu olmasından kaynaklanıyor galiba, metin kutusunu 1 tane yapınca sorunsuz çalışıyor
evet hocam ama ben iki metin kutusunda bunu yapmaya çalışıyorum
Ozaman mecburen 23. mesajdaki örneği kullanacaksın, RTF2.ocx'i uygulamanın bilindiği klasöre ekle ve Araçlar/Activex denetimlerinden kaydet,
RTF2.ocx dosyasıyla ilgili herşeyi yaptım araç çubuğuna eklendi. ama forma girdiğimiz bilgileri raporda gösterirken yazı rapordaki alana sığmıyorsa yazının bir kısmı gözükmüyor. rtf control da büyüyebilir özelliği yok herhalde. metin kutusunda olduğu gibi bunu nasıl yaparız.
Raporda "Ayrıntı" (Detail) nın özelliklerinden büyüyebilir ve küçülebilir'i evet olarak belirle,
Ayrıntının biçimlendiğinde olayına aşağıdaki kodu yaz. (23. mesajdaki örnek)
Kod:
Dim Height As Integer
Height = Me.RTFcontrol.Object.RTFheight
If Height > 0 Then
If Height < 32000 Then
Me.RTFcontrol.Height = Height
End If
End If
Me.Section(acDetail).Height = Me.RTFcontrol.Height + Me.RTFcontrol.Top
If Me.RTFcontrol.Object.RTFheight > 0 Then
If Me.RTFcontrol.Object.RTFheight < 32000 Then
Me.RTFcontrol.Height = Me.RTFcontrol.Object.RTFheight
End If
End If