PrintMsFlexG

Printer.PaintPicture MSFlexGrid_Name.Picture, 0, 0
Printer.EndDoc
Dim old_width as Integer
MSFlexGrid_Name.width=printer.width
MSFlexGrid_Name.width=old_width