主题：求助

1、自定义菜单栏上打印预览有问题；2、自定义菜单后，右下角的列合计没有了。

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:材料仓.table

右下角合计可以在项目的AfterSelRangChange事件中加如下代码解决：

Dim Sum,Average,Count As Double
With CurrentTable
    Sum = CurrentTable.Aggregate(AggregateEnum.Sum, .TopRow, .LeftCol, .BottomRow, .RightCol)
    Average = CurrentTable.Aggregate(AggregateEnum.Average, .TopRow, .LeftCol, .BottomRow, .RightCol)
    Count = CurrentTable.Aggregate(AggregateEnum.Count, .TopRow, .LeftCol, .BottomRow, .RightCol)
End With
StatusBar.Message3 ="    累计:" & Cstr(sum) & "    平均:" & Cstr(Average) & "    计数:"  & Cstr(Count) & "     "

谢谢。麻烦请圆整到整数；打印预览有什么问题？另外能否给一个右下角区域仓存的计算表达式（入仓之和-出仓之和）

整数这样就可以了。

Dim Sum,Average,Count As Integer
With CurrentTable
    Sum = .Aggregate(AggregateEnum.Sum, .TopRow, .LeftCol, .BottomRow, .RightCol)
    Average = .Aggregate(AggregateEnum.Average, .TopRow, .LeftCol, .BottomRow, .RightCol)
    Count = .Aggregate(AggregateEnum.Count, .TopRow, .LeftCol, .BottomRow, .RightCol)
End With
StatusBar.Message3 ="  累计:" & sum & "  平均:" & Average & "  计数:"  & Count

打印预览，在哪？

入仓减出仓不就等于仓存吗？直接显示仓存列的值就可以了。

看原材料仓明细,我想按型号规格筛选后右下角显示入仓列的和-出仓列的和(当前仓存)
打印预览在自定义菜单的快速访问栏中

可以在筛选按钮代码的最后加上：

StatusBar.Message3 ="仓存:" & Tables("原材料仓").Compute("Sum(仓存)")

打印的问题，重新设置一下纸张即可解决。