السلام عليكم ..لذي مشكله في كود الطباعة عن طريق (print objects) مثلا لذي بيانات في الفلكس
جريد تستوعب 10 صفحات الكود التالي يطبع لي فقط صفحه واحده ..كيف نحل هذه المشكله لطباعه باقي الصفحات
وشكر
الكود هو :
جريد تستوعب 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