+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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)
+---- الموضوع : من يحل هذه المشكله والتي تتعلق بالطباعة من الفلكس الجريد (/showthread.php?tid=12885)
من يحل هذه المشكله والتي تتعلق بالطباعة من الفلكس الجريد - scsi7000 - 04-08-15
السلام عليكم ..لذي مشكله في كود الطباعة عن طريق (print objects) مثلا لذي بيانات في الفلكس
جريد تستوعب 10 صفحات الكود التالي يطبع لي فقط صفحه واحده ..كيف نحل هذه المشكله لطباعه باقي الصفحات
وشكر
الكود هو :
كود :
Printer.CurrentX = 10
Printer.CurrentY = 5
Printer.FontSize = 12
Printer.FontBold = True
Printer.FontUnderline = False
Printer.FontTransparent = True
Printer.ForeColor = vbBlack
Printer.Print ":طبعت بواسطة"
Printer.CurrentX = 10
Printer.CurrentY = 230
Printer.FontSize = 12
Printer.FontBold = True
Printer.FontUnderline = False
Printer.FontTransparent = True
Printer.ForeColor = vbBlack
Printer.Print txt_user.Text
Printer.CurrentX = 4500
Printer.CurrentY = 1000
Printer.FontSize = 25
Printer.FontBold = True
Printer.FontUnderline = True
Printer.FontTransparent = True
Printer.ForeColor = vbBlack
Printer.Print "قائمة الناجحين"
Printer.CurrentX = 6000
Printer.CurrentY = 15500
Printer.FontSize = 12
Printer.FontBold = True
Printer.FontUnderline = False
Printer.FontTransparent = True
Printer.ForeColor = vbBlack
Printer.Print ("صفحة" & CStr(Printer.Page))
Dim OldWidth As Integer
OldWidth = MSFlexGrid1.Width
MSFlexGrid1.Width = Printer.Width
Printer.PaintPicture MSFlexGrid1.Picture, 950, 1900
Printer.EndDoc
DoEvents
MSFlexGrid1.Width = OldWidthRE: من يحل هذه المشكله والتي تتعلق بالطباعة من الفلكس الجريد - Ahmed_Mansoor - 07-08-15
أهلا أخي الكريم , لماذا لاتصمم التقرير على شكل الفليكس قريد وبهذه الطريقة تحل مشكلتك وتريح نفسك .