100分求MSHFlexGrid打印源程序!
[email protected]

解决方案 »

  1.   

    http://www.freewebs.com/progame/dllprint.htm
      

  2.   

    If MsgBox("你是否要打印?" & vbCrLf & "如果打印,请等待打印作业.....", 4 + 32 + 256, "打印") = vbYes Then
                    Printer.ScaleMode = vbCentimeters
                    Printer.PaintPicture MSHFlexGrid1.Picture, 2, 2
                    Printer.EndDoc
                End If
      

  3.   

    这方法msflexgrid也可以用吗?
    如果是msflexgrid该怎么办?
      

  4.   


    http://www.dapha.net/down/show.asp?classid=1&Nclassid=140
      

  5.   

    MSFlexGrid7.Width = old_width
             MSFlexGrid7.Width = Printer.Width
             Printer.PaintPicture MSFlexGrid7.Picture, 0, 0
             Printer.EndDoc
             MSFlexGrid7.Width = old_width
             old_width = 0