تقييم الموضوع :
  • 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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Question [vb6.0] هل يمكن من خلال البرامجة عمل قيمة افتراضية في Text ؟؟ Microformt 0 16 أمس, 02:46 PM
آخر رد: Microformt
Thumbs Down [vb6.0] نقاط ضعف الفيجوال بيسك hsunhdoveh81 3 81 19-05-17, 12:02 PM
آخر رد: alma2
  [vb6.0] طريقة استخلاص البحث من البحث larbihamri 13 257 06-05-17, 12:59 AM
آخر رد: Ahmed_Mansoor
  [سؤال] كيفية انشاء حقل من نوع ترقيم تلقائي بالفيجول بيسك 6 أبوسعود 6 170 27-04-17, 09:46 PM
آخر رد: أبوسعود
  [vb6.0] طريقة ترقيم عمود في الداتا قريد و حل مشكلة الترقيم التلقائي في قاعدة البيانات larbihamri 9 231 16-04-17, 08:28 PM
آخر رد: larbihamri
  [vb6.0] ممكن شرح طريقة ربط في قاعدة بيانات واحدة بجدولين MSHFlexGrid2+MSHFlexGrid1 عبدالقادرعواد 3 107 11-04-17, 06:08 PM
آخر رد: sendbad100
  [vb6.0] طريقة التحكم في عرض العمود الاول في الداتا قريد برمجيا larbihamri 1 105 10-04-17, 08:52 PM
آخر رد: Amir_alzubidy
  [سؤال] كيف اربط الفيجول بيسك مع الاكسل mera 7 224 03-04-17, 01:56 PM
آخر رد: mera
  إختيار السكاين من خلال الكومبوبوكس عبد العزيز البسكري 42 1,107 27-03-17, 03:32 AM
آخر رد: sendbad100
  تغيير الاعدادات الاقليمية للويندوز من خلال الفيجوال بيسيك 6 abosara 2 109 26-03-17, 12:50 AM
آخر رد: Ahmed_Mansoor

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


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