AccessTr.neT
Raporlarda yazıyı iki yana yaslamak - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Raporlarda yazıyı iki yana yaslamak (/konu-raporlarda-yaziyi-iki-yana-yaslamak.html)

Sayfalar: 1 2 3 4 5 6 7


Cvp: Raporlarda yazıy iki yana yaslamak - askaskeri - 30/11/2008

olmadı hocam yazı bir yerde kenarlıklar bir yerde


Cvp: Raporlarda yazıy iki yana yaslamak - ozanakkaya - 30/11/2008

Sorun 3 tane metin kutusu olmasından kaynaklanıyor galiba, metin kutusunu 1 tane yapınca sorunsuz çalışıyor


Cvp: Raporlarda yazıy iki yana yaslamak - askaskeri - 30/11/2008

evet hocam ama ben iki metin kutusunda bunu yapmaya çalışıyorum


Cvp: Raporlarda yazıy iki yana yaslamak - ozanakkaya - 01/12/2008

Ozaman mecburen 23. mesajdaki örneği kullanacaksın, RTF2.ocx'i uygulamanın bilindiği klasöre ekle ve Araçlar/Activex denetimlerinden kaydet,


Cvp: Raporlarda yazıy iki yana yaslamak - apobaba77 - 03/07/2009

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.


Cvp: Raporlarda yazıy iki yana yaslamak - ozanakkaya - 03/07/2009

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