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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مشكلة عند فتح فاجوال بيسك 6 tamer2005 1 68 14-02-19, 11:14 PM
آخر رد: عبد العزيز البسكري
Question احتاج برنامج لضغط الصور بالفيجوال بيسك 6 ياقوتة 0 49 12-02-19, 06:34 PM
آخر رد: ياقوتة
  [vb6.0] المساعدة في طباعة شريط وزن تخرج رسالة خطا وادي العوضي 6 144 12-02-19, 12:47 AM
آخر رد: وادي العوضي
  طريقة كتابة المسار داخل قيمة في الريجيستري الرجل الرمادي 3 99 10-02-19, 08:05 PM
آخر رد: Amir_Alzubidy
  [سؤال] هل من طريقة فعالة لتسجيل ادوات Vb iisys 10 2,366 09-02-19, 10:28 AM
آخر رد: روج افا للبرمجيات
  من فضلكم طريقة رجو الكتابة الى اليمين في msflexgrid tighrmte 3 77 04-02-19, 05:48 PM
آخر رد: tighrmte
  [vb6.0] طريقة تعديل REG_BINARY في محرر الريجستري للويندوز الرجل الرمادي 2 117 03-02-19, 04:06 PM
آخر رد: الرجل الرمادي
  [سؤال] فتح ملف إكسل من خلال الفيجوال بيسك 6 Abdellah 6 1,256 13-01-19, 02:26 PM
آخر رد: aminou7
  طريقة فتح فورم من خلال قائمة منسدلة بالليبل مصمم هاوي 4 155 10-01-19, 12:10 AM
آخر رد: مصمم هاوي
  طباعة قيم مربعات نص غير مربوطة بقاعدة البيانات دهشوش1 4 199 30-11-18, 11:02 PM
آخر رد: دهشوش1

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


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