ActiveReport 在打印时的二个问题？

1.要合计的地方加一个field，设置属性
with Field

1.用group把detail包含，groupfooter加一个field，设置属性
with Field
     datafield=要统计的字段
     summarytype=ddsmstotal
     summarygroup=groupheader1
     summanryrunning=ddsrgroup
end with
2.你可以在打印的时候动态改变纸张大小，然后在改回来，打印设置就没有变了

在detail_format事件中加代码
static no as longif no=20 then  '' display records per page
   .newpage=
   no=1
else
   .newpage
end if

1。我已经说得很清楚了，你可以看看activereport安装目录下Samples\Visual Basic Samples\EmployeeSalesByCountry的例子，上面用到了“合计” 2。预览:activereport.show打印：activereport.reportprint

powpow飞机：
我想你误会我意思了，我的意思是在每页最下面产生的“结止本页小计”，可是这行记录却不能紧贴着上面的记录!是这个问题我不会，并不是合计!
谢谢!

用group分页以后，就是那一页的小计了，加在pagefooter就是合计。看一下例子吧，肯定有的。

下面是正确的答案：
1、新增一带区 insert-report header/footer
Reportheader中空白
ReportFooter中放合计2、在Active 中预览后改纸张是不行的，可能是BUG。
解决，对于操作系统是98，在打印机中设置一个自定义的纸张，
对于2000，打印机－菜单服务器属性－建一个新的格式纸张，只有这样
发布的程序才可改纸张

梦龙：Repportheader 是报表脚，它不能在每页下面，只能打印完了才能有。飞机：你能不能帮我一下，怎么有Group分组，因为我想不出分组的条件!!!
不胜感激!!如果问题解决，本人将再次加分。谢谢!

不用分组条件，直接来一个Groupfooter就可以以，然后放一个files，用它来显示你的求和的字段。

我给你一个例子，就看看，不过没有数据，换成你的数据就可以了。这个工程还没有完工。而且是sqlserver，不好发。请查收。

注意：activerepots一共有3个。GroupFooter,PageFooter,ReportFooter,
如果按照我的方法加在ReportFooter加合计就是“全部数据的合计”，而且不管最后一页打了多少数据，合计都显示在最下面。
GroupFooter把Detail包含起来的话，合计也是“全部合计”，不过它是紧跟着最后一条记录打出来，
PageFooter就是你想要的东东了，显示每页合计！

对不起，我没有理解你的问题，powpow(飞机) 说的对。

PageFooter的合计是可以在每张纸下打印，可是页脚的位置对于每张纸是固定的，这样有时会出现跟上面记录不能紧贴在一起的情况，我问是这个情况！！！希望能赐教，谢！！！

建平.net 我给你发了封Email, 请查收!!!

那就加2个合计，一个pagefooter，一个groupfooter，summarytype记住选ddsmpagetotal.最后一页时将pagefooter的合计隐藏，就行了。（理论，没试过）

飞机：
合计我会做，我的意思是通过页脚pagefooter产生的“结止本页小计”，它的位置不能够紧贴着===每张纸====的最后一行记录(是每张纸的最后一行记录)，是这个意思!!!虽然我可以在某种纸型上调整细节的高度等方法来使“结止本页小计”紧贴每张纸的最后一行记录，可是一旦我变换纸型后就不行了!

建一个窗体：form1,代码如下
Public k As Integer     '用来记录报表有几页
Private Sub Command1_Click()
Arinpaper.Run False   '报表运行，但不显示
k = Arinpaper.Pages.Count '取得报表有几页
Unload Arinpaper      '卸载报表
Arinpaper.Show 1
End Sub
建报表：代码：
Private Sub ActiveReport_PageStart()
If Form1.k = Arinpaper.Pages.Count + 1 Then     '当报表是最后一页时将页脚的合计隐藏，这时只显示group的合计统计最后一页
    f3.Visible = False   '注：当报表初始话完一页时,pages.count才加一,所以这儿是pages.count+1
End If
End Sub注：报表detail加f1，pagefooter加f2，groupfooter加f3我将发一个完整的工程到你的信箱。

这个方法的缺点就是要运行2次，第一次用来确定有几页，然后unload报表，第二次判断当打印到最后一页的时候，隐藏pagefooter的合计，只显示groupfooter的合计。

飞机：你的Email 是什么？我把我的程序发给你!帮我看看，好吗？

网易现在有问题，一下载就出现非法请求，要不你发到[email protected]，我发的东西你收到没有？

1、RepportFoot有一个属性
printatbottom，为False即不在页尾
2、
如果要只是最后一页显示，Private bLastPage As BooleanPrivate Sub ActiveReport_FetchData(EOF As Boolean)
    bLastPage = rptado.Recordset.EOF
End Sub
Private Sub ReportFooter_Format()
    If Not bLastPage Then
        ReportFooter.Visible = False
    Else
        ReportFooter.Visible = True
    End If
End Sub

我说的是对的呀
新建一个带区叫
ReportHear
ReportFooter结止本页合计放在ReportFooter
中，printatbottom＝false就行了呀

梦龙：
ReportFooter是报表脚，是当报表全部打完时才会打印的，知道吗？
不是每纸纸都打印的!

调试易

ActiveReport 在打印时的二个问题？

解决方案 »