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

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


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



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

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

2022-3-31 09:44 上传

点击文件名下载附件

1. 
   
2. using GrapeCity.Documents.Excel;
   
3. using System.Diagnostics;
   
4. 
   
5. Workbook workbook= new Workbook();
   
6. workbook.Open("Result.xlsx");
   
7. 
   
8. var innersheet = workbook.Worksheets[0];
   
9. int usedrow = innersheet.UsedRange.LastRow;
   
10. int usedCol = innersheet.UsedRange.LastColumn;
    
11. IRange startrange = innersheet.Range["A1"];
    
12. IRange endrange = innersheet.Range["A1"];
    
13. 
    
14. int FirstCnoRow = 0;  //第一个找到编号字符的行
    
15. int FindTime = 0;  //查找次数
    
16. 
    
17. //根据'证书编号'关键字分页，
    
18. string pageSeparateKeyword = "证书编号";
    
19. int pagenum = 1;
    
20. 
    
21. 
    
22. while (true)
    
23. {
    
24. 
    
25.     startrange = endrange;
    
26.     endrange = innersheet.UsedRange.Find(pageSeparateKeyword, endrange);
    
27. 
    
28.     if (FindTime == 0)
    
29.     {
    
30.         FirstCnoRow = endrange.Row;
    
31.     }
    
32.     FindTime++;
    
33. 
    
34.     if (endrange == null)
    
35.     {
    
36.         //复制到新的Sheet后删除多余部分，此Page页成为一个单独sheet
    
37.         var lastsheet = innersheet.Copy();
    
38.         if (startrange.Row - (FirstCnoRow) > 0)
    
39.         {
    
40.             lastsheet.Range[(FirstCnoRow), 0, startrange.Row - (FirstCnoRow), 1].EntireRow.Delete();
    
41.         }
    
42. 
    
43.         //设置该sheet的页面属性，自适应以确保会打印到1页中
    
44.         lastsheet.PageSetup.IsPercentScale = false;
    
45.         lastsheet.PageSetup.FitToPagesTall = 1;
    
46.         lastsheet.PageSetup.FitToPagesWide = 1;
    
47. 
    
48.   
    
49.         pagenum++;
    
50. 
    
51.         break;
    
52.     }
    
53.     if (startrange.Row != 0)
    
54.     {
    
55.         //复制到新的Sheet后删除多余部分，此Page页成为一个单独sheet
    
56.         var lastsheet = innersheet.Copy();
    
57.         if (usedrow - (FirstCnoRow) > 0)
    
58.         {
    
59.             lastsheet.Range[endrange.Row, 0, usedrow - endrange.Row, 1].EntireRow.Delete();
    
60.         }
    
61.         if (startrange.Row - (FirstCnoRow) > 0)
    
62.             lastsheet.Range[(FirstCnoRow), 0, startrange.Row - (FirstCnoRow), 1].EntireRow.Delete();
    
63. 
    
64.         //设置该sheet的页面属性，自适应以确保会打印到1页中
    
65.         lastsheet.PageSetup.IsPercentScale = false;
    
66.         lastsheet.PageSetup.FitToPagesTall = 1;
    
67.         lastsheet.PageSetup.FitToPagesWide = 1;
    
68. 
    
69. 
    
70.         pagenum++;
    
71.     }
    
72. }
    
73. //删除原有的完整Sheet
    
74. innersheet.Delete();
    
75. 
    
76. //替换实际页码
    
77. for(int i = 0; i <workbook.Worksheets.Count;i++)
    
78. {
    
79.     workbook.Worksheets[i].UsedRange.Replace("&P", i+1);
    
80.     workbook.Worksheets[i].UsedRange.Replace("&N", workbook.Worksheets.Count);
    
81. }
    
82. 
    
83. 
    
84. workbook.Save("XXX质检报告结果.pdf");
    
85. Process.Start(Path.Combine( Environment.CurrentDirectory, "XXX质检报告结果.pdf"));
    
86. 
    
87. 
    

复制代码