如何在HSSF源定义Java方法，在RPGLE中设置Excel打印纸张大小？

先理清楚给出的Java方法逻辑（翻译+解读） #

你贴的Java方法是POI库中XSSFPrintSetup类的纸张大小设置方法，翻译后如下：

XSSFPrintSetup.setPaperSize(...) 

/** 
 * 以枚举值形式设置纸张大小。
 * 
 * @param size 纸张大小对应的枚举值。
 */ 
public void setPaperSize(PaperSize size) { 
   setPaperSize((short) (size.ordinal() + 1)); 
} 

这个方法的核心逻辑很简单：接收一个PaperSize枚举对象，取它在枚举类里的序号（从0开始计数），加1转成short类型，再调用另一个接收short参数的重载方法完成最终设置。

步骤1：在HSSF源文件中定义方法原型 #

Scott Klement的Excel工具通过JNI桥接Java和RPGLE，你需要在HSSF的RPGLE原型定义源（比如HSSF成员）里添加对应方法的原型：

两种实现方式，推荐第二种更简单： #

• 方式一：对应枚举参数的方法（复杂，不推荐）
  要处理Java枚举对象，需要先在RPGLE中定义枚举的原型和获取枚举实例的方法，步骤繁琐，不建议用。

• 方式二：直接调用接收short参数的重载方法
  直接定义底层的setPaperSize(short)方法原型，跳过枚举处理，更适合RPGLE：

  // 定义XSSFPrintSetup.setPaperSize(short)的RPGLE原型
  D setPaperSize...
  D                 PR            EXTPROC(*JAVA: 'org.apache.poi.xssf.usermodel.XSSFPrintSetup': 'setPaperSize')
  D  size                        10I 0 VALUE  // short类型对应RPGLE的10I 0
  

  同时可以定义常用纸张大小的常量（对应枚举ordinal+1后的值）：

  DCL-C PAPER_A4         1;    // 对应PaperSize.A4的ordinal(0)+1
  DCL-C PAPER_LETTER     2;    // 对应PaperSize.LETTER的ordinal(1)+1
  DCL-C PAPER_A3         8;    // 对应PaperSize.A3的ordinal(7)+1
  // 其他纸张大小参考POI的PaperSize枚举自行补充
  

步骤2：在RPGLE程序中调用方法 #

第一步：获取XSSFPrintSetup对象 #

要设置打印纸张，首先得从你的XSSFSheet对象中拿到打印设置实例，先定义getPrintSetup的原型：

D getPrintSetup...
D                 PR              O   CLASS(*JAVA: 'org.apache.poi.xssf.usermodel.XSSFPrintSetup')
D                                 EXTPROC(*JAVA: 'org.apache.poi.xssf.usermodel.XSSFSheet': 'getPrintSetup')

然后调用获取对象：

DCL-PTR printSetup;
printSetup = getPrintSetup(yourSheetObj);  // yourSheetObj是你创建的XSSFSheet对象

第二步：调用setPaperSize设置纸张 #

直接传入对应纸张的常量值即可：

// 设置为A4纸
CALLP setPaperSize(printSetup: PAPER_A4);

// 或者直接传数值，比如设置为Letter纸
CALLP setPaperSize(printSetup: 2);

关键注意点 #

• POI的纸张大小数值和Windows的纸张编号一致，PaperSize枚举的ordinal()+1正好对应这个编号，如果你不确定某个纸张的数值，可以查POI官方文档里的PaperSize枚举定义，或者直接测试对应的数值。
• 如果你用的是HSSF（xls格式）而不是XSSF（xlsx格式），只要把类路径换成org.apache.poi.hssf.usermodel.HSSFPrintSetup即可，逻辑完全一致。

内容的提问来源于stack exchange，提问作者Maurice