次问题好像很麻烦，不过可以用TVSPrinter试试看。
IFieldCollectionPtr fieldCollectionPtr = (IFieldCollectionPtr)TVReport-> Fields;

TVPrint-> PaperHeight = 4300;
TVPrint-> PaperWidth = 4300;

for (long i = 0; i < fieldCollectionPtr-> Count ;i++)
{
Variant v = i;
VARIANT v1 =v;
FieldPtr fieldPtrTail = fieldCollectionPtr-> getItem( v1);
IVSReportPtr subReportPtr = fieldPtrTail-> getSubreport();
String strTailText = fieldPtrTail-> Name;
if ( strTailText.AnsiCompareIC( "name " ) == 0 )
{
fieldPtrTail-> setText(AnsiToOLESTR(serid.cstr()));
}
else if ( strTailText.AnsiCompareIC( "id " ) == 0 )
{
fieldPtrTail-> setText(AnsiToOLESTR(providername.cstr()));
}
else if ( strTailText.AnsiCompareIC( "address " ) == 0 )
{
fieldPtrTail-> setText(AnsiToOLESTR(consumername.cstr()));
}
else if ( strTailText.AnsiCompareIC( "age " ) == 0 )
{
fieldPtrTail-> setText(AnsiToOLESTR(amountsum.cstr()));
}
}
TVReport-> Render((LPDISPATCH)TVPrint-> ControlInterface);

用fastreport
3个grid就用3个userdataset

做个报表吧，不做报表就要打印有滚动数据的界面好像没听说过

可以直接打印窗体！如memo的文字，我得博克里有，参照着改一下就行了！