【GCEXCEL】通过页面关键字实现精确分页

收藏

GCExcel提供了导出PDF的功能，我们可以以此将Excel文件导出为PDF报告在一些场景下，由于报告中每页的内容高度并不相同，如果使用GCExcel自己的分页功能，并不是我们最终想要的结果，这个时候通过代码判断对Sheet进行分割来达到分页的效果是一个不错的选择

以下是一个使用产品较多的质量检测行业，导出质检报告的例子。
下图是报告结果内容示例，可以看到这个sheet中实际内容是3页检测结果，且每页的内容高度不同，如果直接导出pdf，分页会发生混乱。

无标题.jpg

但是可以看到由于检测报告每页的内容有相同的地方，比如每页结果部分都是以“证书编号”作为头部开始，通过这个关键字来进行定位，分割每页的区域到一个新的sheet，然后进行打印，就实现了精确分页
下面是具体的代码以及项目附件，此dmeo以.NET版本为例，JAVA版页可以进行参考

SplitReportPage.zip (2.22 MB, 下载次数: 184)

2022-3-31 09:44 上传

点击文件名下载附件

using GrapeCity.Documents.Excel;
using System.Diagnostics;
Workbook workbook= new Workbook();
workbook.Open("Result.xlsx");
var innersheet = workbook.Worksheets[0];
int usedrow = innersheet.UsedRange.LastRow;
int usedCol = innersheet.UsedRange.LastColumn;
IRange startrange = innersheet.Range["A1"];
IRange endrange = innersheet.Range["A1"];
int FirstCnoRow = 0; //第一个找到编号字符的行
int FindTime = 0; //查找次数
//根据'证书编号'关键字分页，
string pageSeparateKeyword = "证书编号";
int pagenum = 1;
while (true)
{
startrange = endrange;
endrange = innersheet.UsedRange.Find(pageSeparateKeyword, endrange);
if (FindTime == 0)
{
FirstCnoRow = endrange.Row;
}
FindTime++;
if (endrange == null)
{
//复制到新的Sheet后删除多余部分，此Page页成为一个单独sheet
var lastsheet = innersheet.Copy();
if (startrange.Row - (FirstCnoRow) > 0)
{
lastsheet.Range[(FirstCnoRow), 0, startrange.Row - (FirstCnoRow), 1].EntireRow.Delete();
}
//设置该sheet的页面属性，自适应以确保会打印到1页中
lastsheet.PageSetup.IsPercentScale = false;
lastsheet.PageSetup.FitToPagesTall = 1;
lastsheet.PageSetup.FitToPagesWide = 1;
pagenum++;
break;
}
if (startrange.Row != 0)
{
//复制到新的Sheet后删除多余部分，此Page页成为一个单独sheet
var lastsheet = innersheet.Copy();
if (usedrow - (FirstCnoRow) > 0)
{
lastsheet.Range[endrange.Row, 0, usedrow - endrange.Row, 1].EntireRow.Delete();
}
if (startrange.Row - (FirstCnoRow) > 0)
lastsheet.Range[(FirstCnoRow), 0, startrange.Row - (FirstCnoRow), 1].EntireRow.Delete();
//设置该sheet的页面属性，自适应以确保会打印到1页中
lastsheet.PageSetup.IsPercentScale = false;
lastsheet.PageSetup.FitToPagesTall = 1;
lastsheet.PageSetup.FitToPagesWide = 1;
pagenum++;
}
}
//删除原有的完整Sheet
innersheet.Delete();
//替换实际页码
for(int i = 0; i <workbook.Worksheets.Count;i++)
{
workbook.Worksheets[i].UsedRange.Replace("&P", i+1);
workbook.Worksheets[i].UsedRange.Replace("&N", workbook.Worksheets.Count);
}
workbook.Save("XXX质检报告结果.pdf");
Process.Start(Path.Combine( Environment.CurrentDirectory, "XXX质检报告结果.pdf"));

复制代码

		自动登录	找回密码
密码			立即注册

【GCEXCEL】通过页面关键字实现精确分页

0 个回复

SpreadJS 认证

SpreadJS 高级认证

讲师达人

悬赏达人