18/04/2009, 13:12
18/04/2009, 14:31
yapabilir
boş bir rapora kodu kopyala
Private Sub Ayrıntı_Format(Cancel As Integer, FormatCount As Integer)
Dim renk As Long
Dim ust As Single, sol As Single
Dim en As Single, yuksek As Single
ScaleMode = 3
ust = 100
sol = 200
en = 400
yuksek = 300
renk = RGB(255, 0, 0)
Line (ust, sol)-(en, yuksek), renk, B
End Sub
300x400 lük dikdörtgen
aslında burada çizilen dikdörtgen değildir.sadce sol üstten sağ alta belirtilen miktarda uzayan bir eğik çizgidir.biz bunu kalın bir çizgi haline B komutu ile getirdiğimiz için kare veya dikdörtgen görüyorsun
Oyas belirtilen ölçülerde kare veya dikdörtgeni çizmek için Line (ust, sol)-(en, yuksek), renk komutundaki en ve yükseklik ayarları ile ust ve sol değerlerini değiştirirrek
toplam 4 satır kod yazarak elde edebiliriz
boş bir rapora kodu kopyala
Private Sub Ayrıntı_Format(Cancel As Integer, FormatCount As Integer)
Dim renk As Long
Dim ust As Single, sol As Single
Dim en As Single, yuksek As Single
ScaleMode = 3
ust = 100
sol = 200
en = 400
yuksek = 300
renk = RGB(255, 0, 0)
Line (ust, sol)-(en, yuksek), renk, B
End Sub
300x400 lük dikdörtgen
aslında burada çizilen dikdörtgen değildir.sadce sol üstten sağ alta belirtilen miktarda uzayan bir eğik çizgidir.biz bunu kalın bir çizgi haline B komutu ile getirdiğimiz için kare veya dikdörtgen görüyorsun
Oyas belirtilen ölçülerde kare veya dikdörtgeni çizmek için Line (ust, sol)-(en, yuksek), renk komutundaki en ve yükseklik ayarları ile ust ve sol değerlerini değiştirirrek
toplam 4 satır kod yazarak elde edebiliriz
18/04/2009, 14:50
Elbette, örnek rapor ektedir.
(Kodları Access'in Visual Basic Help kısmından aldım)
(Kodları Access'in Visual Basic Help kısmından aldım)
Kod:
Private Sub Detail_Print(Cancel As Integer, PrintCount As Integer)
' Call the Drawline procedure
DrawLine
End Sub
Sub DrawLine()
Dim rpt As Report, lngColor As Long
Dim sngTop As Single, sngLeft As Single
Dim sngWidth As Single, sngHeight As Single
Set rpt = Reports!KareCizenRapor
' Set scale to pixels.
rpt.ScaleMode = 3
' Top inside edge.
sngTop = rpt.ScaleTop + 5
' Left inside edge.
sngLeft = rpt.ScaleLeft + 5
' Width inside edge.
sngWidth = rpt.ScaleWidth - 10
' Height inside edge.
sngHeight = rpt.ScaleHeight - 10
' Make color red.
lngColor = RGB(255, 0, 0)
' Draw line as a box.
rpt.Line (sngTop, sngLeft)-(sngWidth, sngHeight), lngColor, B
End Sub04/05/2009, 16:32
Sayın, Seruz ve yurdakul arkadaşlar ilginiz için çok teşekkür ediyorum. uzun zamandır dışardaydım yeni cevap yazabiliyorum. burada benim sorum bir form da vereceğimiz ölçüler doğrultusunda kare çizdirmekti. yinede çok teşekkür ediyorum. sağolun. iyiki varsınız.
04/05/2009, 17:44
Alıntı:burada benim sorum bir form da vereceğimiz ölçüler doğrultusunda kare çizdirmekti.
O zaman bir dahaki sefere konu başlığını yazarken daha dikkatli olun.
Çünkü konu başlığınız aynen şöyle:
Alıntı:ACCESS raporda Çizim Yapılabilirmi
05/05/2009, 16:13
kusura bakmayın internet ve forum olaylarına pek hakim değilim. Afedersiniz.