[scsi7000]

السلام عليكم ..من لديه كود طباعة عنوان مع تضبيط الخط والحجم من خلال فجوال بيسك 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