چاپ جدول با سطرهای متمایز

[M.T.P]

با سلام :قلب:
یه برنامه حسابداری دارم که تابع ساخت جدوله صورت حسابش رو اینجا میزارم شاید بدردتون بخوره.
البته کیفیت چاپ فوق العاده ست ، عکس زیر یک نمایی از اون هست.
با دادن مختصات به چاپگر میتونید تو سطرهاش رکورد چاپ کنید.

http://barnamenevis.org/forum/attachment.php?attachmentid=55128&stc=1&d=1283268664

کد:


Private Sub PrintTable()
Dim P As Printer
Dim C As Integer
Dim C2 As Integer
Set P = Printer
For C = 2400 To 2900 Step 1
P.Line (500, C)-(P.Width - 500, C), &HE0E0E0
Next C
For C = 3200 To 14900 Step 300
For C2 = 0 To 300 Step 1
P.Line (500, C + C2)-(P.Width - 500, C + C2), 16250871
Next C2
C = C + 300
Next C
P.Line (500, 2400)-(P.Width - 500, 2400) 'Ofogi 1
P.Line (500, 2900)-(P.Width - 500, 2900) ' Ofogi 2
P.Line (500, 14900)-(P.Width - 500, 14900) 'Ofogi3
P.Line (500, 2400)-(500, 14900)
P.Line (800, 2400)-(800, 14900)
P.Line (1800, 2400)-(1800, 14900)
P.Line (2900, 2400)-(2900, 14900)
P.Line (4000, 2400)-(4000, 14900)
P.Line (10000, 2400)-(10000, 14900)
P.Line (11000, 2400)-(11000, 14900)
P.Line (P.Width - 500, 2400)-(P.Width - 500, 14900)

P.RightToLeft = True
P.CurrentX = 600: P.CurrentY = 2500: P.Print "*"
P.CurrentX = 1200: P.CurrentY = 2500: P.Print "تاريخ"
P.CurrentX = 4500: P.CurrentY = 2500: P.Print "شرح"
P.CurrentX = 8200: P.CurrentY = 2500: P.Print "بدهکار"
P.CurrentX = 9300: P.CurrentY = 2500: P.Print "طلبکار"
P.CurrentX = 10400: P.CurrentY = 2500: P.Print "مانده"
P.EndDoc
End Sub

امیدوارم استفاده کنید.