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