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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [vb6.0] طريقة تصدير بيانات الداتا ريبورت datareport لصيغة pdf hamada salah90 6 1,479 19-01-24, 07:59 PM
آخر رد: hamada salah90
Question [vb6.0] معلومة هامه في ActiveReport هل تريد طباعة على وجهين انظر الى الصوره المرفقه Microformt 0 107 07-01-24, 11:32 PM
آخر رد: Microformt
  اريد طريقة تصدير بيانات الاكتف ريبورت لملف اكسل scsi7000 0 299 03-11-23, 10:41 AM
آخر رد: scsi7000
  اريد طريقة لطباعة مستند مكون من صفحتين علي ورقة وحدة من الجهتين scsi7000 2 371 25-10-23, 07:38 PM
آخر رد: scsi7000
Question [vb6.0] هل هناك ادوات جديده يمكن استخدمها في تصميم برنامجي بدل ادوات فجوال البيسك ؟ Microformt 0 220 21-10-23, 07:34 PM
آخر رد: Microformt
  [سؤال] كود تشغيل استعلامين معمولين في قاعدة بيانات اكسس من واجهة البرنامج من خلال زر امر وادي العوضي 16 1,450 04-07-23, 03:26 PM
آخر رد: وادي العوضي
  طريقة حماية البرنامج برقم المعالج layan2000 76 99,452 09-06-23, 09:20 PM
آخر رد: fouadhdfouad
  اهدي اليكم طريقة اتصال واستيراد واضافة موظف في جهاز البصمة ahmed1900 2 806 13-05-23, 12:55 PM
آخر رد: scsi7000
  تفسير في كريستال ريبور مع فيجوال بيسك و الاكسيس tighrmte 3 644 12-02-23, 02:40 PM
آخر رد: tighrmte
Question [vb6.0] هل دالة Dcount ضمن دوال بيسك 6 ؟؟ Microformt 0 308 04-01-23, 08:33 PM
آخر رد: Microformt

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


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