Rapor Görüntüsü

[abone0069]

Merhabalar;

Arkadaşlarım hazırladığım programa ait Raporlarımda alt ve yan çizgiler (excel) görünüm gibi olmasını istediğimden bu şekli araç kutusundaki dikdörtgen ve düz çizgi ile vermeye çalışıyorum. Bu da çok zor oluyor zamanımı alıyor. Bunun bir kolay yönü yokmu yani excel görünümlü bir raporu nasıl hazırlarım.Yardımlarınız için çok teşekür ederim.

Not.: Kutucukların kenarlıklı yapmıyorum. Çünkü çok kutucuk var bir birbirine giriyor. Görünümleri güzel olmuyor.

 

[abkbek]

Sayın abone0069,
Aşağıdaki kodu modül olarak kaydet (Modüller bölümüne).

Varsayılan
Public Sub MakeBoxesGrow(ThisReport As Report)
Dim X1 As Single
Dim X2 As Single
Dim Y1 As Single
Dim Y2 As Single
Dim Offset As Single
Dim Color As Long
Dim ThisControl As Control
Dim MaxHeight As Single

For Each ThisControl In ThisReport.Section(acDetail).Controls
If ThisControl.Visible = True Then
If ThisControl.Height > MaxHeight Then
MaxHeight = ThisControl.Height
End If
End If
Next ThisControl

ThisReport.ScaleMode = 1

Offset = 0
ThisReport.DrawWidth = 3
Color = RGB(0, 0, 0) '

For Each ThisControl In ThisReport.Section(acDetail).Controls
If ThisControl.Visible = True Then

X1 = ThisControl.Left - Offset
Y1 = ThisControl.Top - Offset

X2 = ThisControl.Left + ThisControl.Width + Offset
Y2 = ThisControl.Top + MaxHeight + Offset

ThisReport.Line (X1, Y1)-(X2, Y2), Color, B
End If
Next ThisControl

Set ThisControl = Nothing
End Sub


yukarıdakini modül olarak kaydettikten sonra çizelgeli yapmak istediğin raporu tasarım görünümünde aç ve ayrıntı bölümünü tıkladıktan sonra farenin sağ tuşuna basarak özellikler sekmesini aç ve "yazıldığında" kısmının sağındaki ... üç noktaya basarak açılan pencereye aşağıdaki kodu yapıştır.


Private Sub Ayrıntı_Print(Cancel As Integer, PrintCount As Integer)
MakeBoxesGrow Me
End Sub

daha sonra tüm değişiklikleri kaydet ve raporu önizle istediğin çizgilerin rapordaki metin kutularına uygun olarak oluştuğunu göreceksin.

Rapordaki çizgi kalınlık ve renklerini isteğe göre ayarlamak için ise
bu kısım çizgi kalınlığı;
ThisReport.DrawWidth = 3
bu satır çizgi rengi;
Color = RGB(0, 0, 0) 'mavi RGB(0,0,255) yeşil RGB(0,255,0) kırmızı RGB(255,0,0) vs

eğer her raporda farklı kalınlık ve renk kullanacaksanız birinci uzun olan "Public" olan bölümde sadece public deyimini siliniz ve istediğiniz çizgi kalınlık renklerini ayarladıktan sonra raporun ayrıntı bölümüne de MakeBoxesGrow Me kodunu yazınız.

 

[abone0069]

Sn. abkbek

İlginiz için teşekkür ederim. Tamam oldu fakat yan taraflardaki boşlukları otamatik nasıl alabilirm. Saygılar...