مشكلة فى اتجاه الطباعة printer
السلام عليكم ورحمة الله وبركاته
اسوى برنامج عربى ويعمل بشكل جيد مع التقارير واتجاه الطباعة من اليمين الى اليسار ولكن اردت عمل تقرير عن طريق استخدام الكائن printer.print واليكم جزء من الكود
Code:
--------------------------------------------------------------------------------
If Rs.EOF = True And Rs.BOF = True Then
MsgBox "لا يوجد حركة فى ملف الحسابات ", vbOKOnly + vbCritical, "خطأ"
Exit Sub
End If
Dim IncreaseY As Integer
Dim iRow As Integer
Printer.RightToLeft = True
Printer.Orientation = vbPRORLandscape
Printer.ScaleMode = 6
Printer.PrintQuality = -4
Printer.CurrentX = 9
Printer.CurrentY = 10
Printer.Line (9, 10)-(9, 200)
Printer.Line (59, 10)-(59, 200)
Printer.Line (109, 10)-(109, 200)
Printer.Line (124, 10)-(124, 200)
Printer.Line (174, 10)-(174, 200)
Printer.Line (214, 10)-(214, 200)
Printer.Line (254, 10)-(254, 200)
Printer.Line (269, 10)-(269, 200)
Printer.Line (9, 10)-(269, 10)
Printer.Line (9, 200)-(269, 200)
Printer.Line (9, 29)-(269, 29)
Printer.CurrentX = 10
Printer.CurrentY = 20
Printer.Print "رقم الحساب"
Printer.CurrentX = 60
Printer.CurrentY = 20
Printer.Print "اســــــــــم الحــــســــــــــــاب"
Printer.CurrentX = 110
printer.enddoc
--------------------------------------------------------------------------------
المشكلة عند الطباعة تكون اتجاه الطباعة من اليسار الى اليمين وليس من اليمين الى اليسار مع اننى استخدمت الخاصية printer.RightToLeft = true
فى البداية علما اننى اجرب هذا الكود على طابعة hp deskjet 640 C
هل من احد عند اجابه لهذا السؤال .
مع العلم اننى عند طباعة التقارير المصممة بالداتاريبورت يطبع التقرير من اليمين الى اليسار والفورم الى اسوى من خلالها هذا الكود ايضا من اليمن الى اليسار
ولكم تحياتي