打印到热敏打印机（使用Forms 6i）

Question

我正在使用oracle表单6i并想在热敏打印机上打印我的POS发票。我已经在点阵打印机上直接进行“连续”打印，我通过text_io包打开我的LPT端口并根据要求生成发票。

现在，客户希望在热敏打印机上生成发票。假设，我想在打印机页面上打印9行，然后必须停止9行打印。

我的代码如下：

declare 
 pvf_file text_io.file_type; 
 vs_prn_port varchar2(128) :='LPT1'; 
begin 
 lpt1:= Text_IO.Fopen(vs_prn_port,'a'); 
 text_io.put_line('This is a first line.' ); 
 text_io.fclose(lpt1); 
end;

如果您有任何想法，请指导我。