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

[csdnzhu]

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

[lihonggen0]

1、用DataReport作报表

2、直接写入printer对象，循环MSFFlexGrid的行、列即可

[liul17]

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

[射天狼]

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

[sanzi2001]

谁说的，你可以先得出图片的高度然后按每页存放多少高度，来计算做一个循环就可以
比如：
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