Sayın arkadaşlar merhaba,
Forumdan aşağıdaki kodu aldım ve raporlarımda çizelge şeklinde raporlar oluşturmak için kullanıyorum. benim öğrenmek istediğim, rapordaki çizgilerin kalınlık ve renklerini kontrol edebilmek için aşağıdaki kodda ne gibi değişiklikler yapmalıyım. (Aşağıdaki haliyle ince ve siyah çizgi çiziyor) (anlayabildiğim kadarıyla rakamların üzerinde değişiklikler denedim ancak istediğim neticelere ulaşamadım)
KOD
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
Forumdan aşağıdaki kodu aldım ve raporlarımda çizelge şeklinde raporlar oluşturmak için kullanıyorum. benim öğrenmek istediğim, rapordaki çizgilerin kalınlık ve renklerini kontrol edebilmek için aşağıdaki kodda ne gibi değişiklikler yapmalıyım. (Aşağıdaki haliyle ince ve siyah çizgi çiziyor) (anlayabildiğim kadarıyla rakamların üzerinde değişiklikler denedim ancak istediğim neticelere ulaşamadım)
KOD
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
Son düzenleme: