• 0
alhootti

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

سؤال

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

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

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) و يبدا يطبع اي بعد اربع طباعات ينزل مسافة افقي و هكذا حتى يكتمل العشرين

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

post-55192-1227610853_thumb.jpg

تم تعديل بواسطه alhootti
0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

6 إجابة على هذا السؤال .

  • 0

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

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

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

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

تحياتي

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

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

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

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

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

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

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

تحياتي

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

شكرا لكم

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

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

  • يستعرض القسم حالياً   0 members

    لا يوجد أعضاء مسجلين يشاهدون هذه الصفحة .