[Ahmed_Mansoor]

اهلا , جرب التعديل التالي :

كود :

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