怎么把MSFFlexGrid控件中的内容全部打印出来，我现在只能打印一页

Question

    Printer.ScaleMode = vbCentimeters
    Printer.PaintPicture MSFCommon.Picture, 2, 2
    Printer.EndDoc
为什么用这个办法打印时只能打印一页，不能实现全部打印，怎么解决？

Answer 1

1、用DataReport作报表2、直接写入printer对象，循环MSFFlexGrid的行、列即可

Answer 2

你可以使用Vsview3.0，打印grid,绝了，若是这样我可以帮你

Answer 3

用PRINTER打印图片的时候如果一页纸打不下,不会自动分页,其他的页就不打印了,没办法.

Answer 4

谁说的，你可以先得出图片的高度然后按每页存放多少高度，来计算做一个循环就可以
比如： 
    k=msflcommon.picture
    a=k\26cm
    b=k mod 26cm
    if b>0 then a=a+1
    for i=0 to a-1
    Printer.ScaleMode = vbCentimeters
    Printer.PaintPicture MSFCommon.Picture, 2, 2,0,0,0,26*i
    printer.newpage
    next i
    Printer.EndDoc