[scsi7000]

السلام عليكم ..لذي مشكله في كود الطباعة عن طريق (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 = OldWidth

[Ahmed_Mansoor]

أهلا أخي الكريم , لماذا لاتصمم التقرير على شكل الفليكس قريد وبهذه الطريقة تحل مشكلتك وتريح نفسك .