تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
من لديه طريقة طباعة عنوان من خلال امر في فجوال بيسك 6
#1
السلام عليكم ..من لديه كود طباعة عنوان مع تضبيط الخط والحجم من خلال فجوال بيسك 6

مثلا انا لدي هذا الكود لطباعة ال flexgrid  حيث يحوله الي صوره ثم يطبعه .لكن اريد ان اضع عنوان فوق الفلكس قريد

هذا هو الكود:

Printer.ScaleLeft = -0.5 * 1440
   Printer.ScaleTop = -1.5 * 1440
   Printer.CurrentX = 0
   Printer.CurrentY = 0

Dim OldWidth As Integer
OldWidth = MSFlexGrid1.Width
MSFlexGrid1.Width = Printer.Width
Printer.PaintPicture MSFlexGrid1.Picture, 0, 0
Printer.EndDoc
MSFlexGrid1.Width = OldWidth
الرد }}}}
تم الشكر بواسطة:
#2
اهلا , جرب التعديل التالي :

كود :
Printer.CurrentX = 200
Printer.CurrentY = 200

Printer.FontSize = 14
Printer.FontBold = True
Printer.FontTransparent = True
Printer.ForeColor = vbRed

Printer.Print "عنوان الصفحة"

Dim OldWidth As Integer

OldWidth = MSHFlexGrid1.Width

MSHFlexGrid1.Width = Printer.Width

Printer.PaintPicture MSHFlexGrid1.Picture, 200, 700

Printer.EndDoc
DoEvents

MSHFlexGrid1.Width = OldWidth
الرد }}}}
تم الشكر بواسطة: Amir_alzubidy , billal03
#3
شكرا لك جزيلا يا اخي
اشتغل الكود ..اكثر من رائع
الرد }}}}
تم الشكر بواسطة: Ahmed_Mansoor


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  طباعة الاستعلام في activeReport كنونو 2 55 28-11-16, 05:19 AM
آخر رد: كنونو
  [سؤال] ما هي افضل طريقة لعمل نسخة تجريبية لبرنامج مبيعات sendbad100 2 97 19-11-16, 12:45 PM
آخر رد: sendbad100
  نقل سجل من flexgrid1 الى flexgrid2اخر من خلال dblclick كنونو 2 74 14-11-16, 05:25 PM
آخر رد: كنونو
  [سؤال] هل من طريقة فعالة لتسجيل ادوات Vb iisys 2 86 08-11-16, 05:07 AM
آخر رد: iisys
  [vb6.0] مساعدة عاجلة من الاخوة الكرام (ادارج صورة من فيجوال بيسك الى ملف وورد) sher 1 229 08-11-16, 02:32 AM
آخر رد: AL_BRNS
  برنامج فجوال ستوديو 6 اسلام الكبابى 5 139 05-11-16, 11:10 PM
آخر رد: اسلام الكبابى
  [vb6.0] ما هي طريقة تسجيل أدوات ocx في الفيجوال بيسك - iisys 4 141 13-10-16, 01:53 PM
آخر رد: Ashraf Elafify
Lightbulb لمن لديه تجربة صغيرة في الكريستال ريبورت CrystalReport sniperjawadino 15 1,571 10-10-16, 11:54 PM
آخر رد: اسلام الكبابى
  [سؤال] مشكلة في تنصيب وعمل فيجوال بيسك على نظام ويندوز 7 hend amir 3 2,551 04-10-16, 04:59 AM
آخر رد: iisys
  [vb6.0] ممكن نسخة فيجوال بيسك 6 كاملة iisys 2 116 03-10-16, 08:30 PM
آخر رد: iisys

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم