طلب تعديل في كود الطباعة

[alhootti 0]

بســم الله الـرحمــن الرحيــم

انا عندي الكود التالي:

Printer.ScaleMode = 7
Printer.FontName = "arial"
Printer.FontSize = 12
Printer.ScaleLeft = 5
Printer.RightToLeft = False
Dim i As Integer
CurX = 1
For i = 1 To Text3.Text
Printer.CurrentY = 0.7
CurX = CurX + 5
Printer.CurrentX = CurX
Printer.Print  Text1 
Next

المطلوب للتعديل:

انا عندي ورقة ملصقات حجم ِA4 (ملصقات باركود)

text3 عدد الكرار

text1 الجملة المراد تكرارها

انا اريد ان يتكرر طباعة text1 مثلا 20 مرة و بعد ما يطبع الجملة في المرة الرابعة ينزل مسافة انا احددها(CurX) و يبدا يطبع اي بعد اربع طباعات ينزل مسافة افقي و هكذا حتى يكتمل العشرين

يعني بالضبط الموجود في الصورة

تم تعديل 25 Nov 2008 بواسطه alhootti

[alhootti 0]

no body knows

:mad: :cry:

[alhootti 0]

لا احد يعرف !!!!

((فصبر جميل))

[omani 262]

اخي الكريم : بما انها ورقة A4 إذا ما المانع من استخدامك للتقرير .. فهو افضل من حيث التنسيق واسهل وبدون كود

تحياتي

[alhootti 0]

طيب يا اخي هل بالامكان استعمال داتا ريبورت

و كيف احدد عدد الملصقات ان اردت عدد معين للطباعة

[omani 262]

اخي ستجد امثلة مع اصدارة الكريستال تفيدك في كيفية انشاء عدد معين من السجلات

لا استطيع مساعدتك الان لارتباطي بالاختبارات

ولكن عندما تحين الفرصة سوف اقوم بتنزيل امثلة لكيفة التعامل مع تقارير الكريستال

تحياتي

[alhootti 0]

شكرا لكم

لقد حليت المشكلة بطريقتي :pwease: :clapping: