To Print form the MSflexgrid in VB

Code to print form the flexgrid in VB

Dim d As Single

Printer.ScaleMode = vbTwips
d = CSng(Printer.ScaleWidth) / CSng(Me.MSFlexGrid1.Width)
Printer.Zoom = CInt(d * 100)
Printer.PaperSize = vbPRPSA3
'Printer.Orientation = vbPRORLandscape

Printer.PaintPicture MSFlexGrid1.Picture, 0, 0
Printer.EndDoc

Comments pls
Credits: Shreejith G