+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+---- قسم : قسم أسئلة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=28)
+---- الموضوع : من لديه طريقة طباعة عنوان من خلال امر في فجوال بيسك 6 (/showthread.php?tid=12576)
من لديه طريقة طباعة عنوان من خلال امر في فجوال بيسك 6 - scsi7000 - 23-06-15
السلام عليكم ..من لديه كود طباعة عنوان مع تضبيط الخط والحجم من خلال فجوال بيسك 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
RE: من لديه طريقة طباعة عنوان من خلال امر في فجوال بيسك 6 - Ahmed_Mansoor - 24-06-15
اهلا , جرب التعديل التالي :
كود :
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 = OldWidthRE: من لديه طريقة طباعة عنوان من خلال امر في فجوال بيسك 6 - scsi7000 - 24-06-15
شكرا لك جزيلا يا اخي
اشتغل الكود ..اكثر من رائع