表单合计与打印问题

QQ图片20140721144101.jpg (67.54 KB, 下载次数: 163)

2014-7-21 15:02 上传

点击文件名下载附件
图例

一、请问在VB.NET中如何实现图例中所显示的样式：1、合计在最后一行，可设置公式求列和；2、合计上面的行默认22行，但当录入行超出22行时，点击‘增行’来增加，但表单显示长度不变，而是以纵向滚动条来上下查看或编辑每一行；即使行不断增加，但合计行永远求之上所有行之和。
二、如何设置打印时每页固定的打印行数，超出后自动分页。比如设置每页打印10行，并在每一分页都打印页小计与合计从每11到20行自动分页打印到第二张上，依此类推。
三、如何设置打印预览时只显示指定区域，比如只画框或有文字的部分。无内容部分不预览也不打印。

请写出代码实例，谢谢！

回复 1楼tangshanman的帖子

问题1， 可以通过 ColumnFooter 实现：

1. 
   
2.         private void Form1_Load(object sender, EventArgs e)
   
3.         {
   
4.             this.fpSpread1.ActiveSheet.Cells[0, 0].Value = 10;
   
5.             this.fpSpread1.ActiveSheet.Cells[1, 0].Value = 10;
   
6.             this.fpSpread1.ActiveSheet.ColumnFooter.Visible = true;
   
7. 
   
8.             int rowCount = this.fpSpread1.ActiveSheet.RowCount;
   
9.             fpSpread1.Sheets[0].ColumnFooter.SetAggregationType(0, 0, FarPoint.Win.Spread.Model.AggregationType.Sum);
   
10.         }
    

复制代码

问题二
分页打印可以通过以下代码实现

1. 
   
2. FarPoint.Win.Spread.Row r;
   
3. r = fpSpread1.ActiveSheet.Rows[0, 3];
   
4. r.PageBreak = true;
   

复制代码

分页合计目前还无法支持
问题三
如果空白的单元格确实不需要使用，可以通过以下代码设置行数：

1. 
   
2. fpSpread1.ActiveSheet.GetLastNonEmptyRow(FarPoint.Win.Spread.NonEmptyItemFlag.Data)
   

复制代码