23-06-15, 07:43 PM
السلام عليكم ..من لديه كود طباعة عنوان مع تضبيط الخط والحجم من خلال فجوال بيسك 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
مثلا انا لدي هذا الكود لطباعة ال 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