ABAP通过OLE调用Excel打印预览后，如何判断用户是否点击打印按钮

作为常年和ABAP OLE打交道的老程序员，我太懂你这种卡在Excel对象模型细节上的烦恼了！确实Excel的Workbook对象没有直接的打印状态属性，但我们可以通过绑定Excel事件或者调整交互逻辑来解决这个问题，下面给你两个实用方案：

方案一：绑定Excel的BeforePrint事件（精准判断打印触发） #

Excel的Workbook对象有个BeforePrint事件，它会在用户点击PrintPreview里的「打印」按钮时触发——这正是我们需要的判断点。我们可以在ABAP里注册这个事件，用一个全局变量标记是否触发了打印操作。

代码示例 #

首先定义事件处理类和全局标记变量：

CLASS lcl_excel_events DEFINITION DEFERRED.

DATA: go_excel_events TYPE REF TO lcl_excel_events,
      gv_print_triggered TYPE abap_bool VALUE abap_false.

CLASS lcl_excel_events DEFINITION.
  PUBLIC SECTION.
    METHODS:
      before_print
        FOR EVENT beforeprint OF excel2007=>workbook
        IMPORTING cancel.
ENDCLASS.

CLASS lcl_excel_events IMPLEMENTATION.
  METHOD before_print.
    gv_print_triggered = abap_true. "标记用户触发了打印操作
  ENDMETHOD.
ENDCLASS.

然后在你的OLE逻辑里绑定事件并调用预览：

DATA: go_excel TYPE REF TO excel2007=>application,
      go_workbook TYPE REF TO excel2007=>workbook.

" 初始化Excel、打开目标工作簿的常规代码（此处省略）

" 创建事件处理实例并绑定到Workbook
CREATE OBJECT go_excel_events.
SET HANDLER go_excel_events->before_print FOR go_workbook.

" 调用打印预览
go_workbook->printpreview( ).

" 根据标记判断是否执行数据锁定
IF gv_print_triggered = abap_true.
  " 这里写你的数据锁定逻辑
  WRITE: / '用户触发打印，已锁定相关数据'.
ELSE.
  WRITE: / '仅查看预览，未锁定数据'.
ENDIF.

" 别忘了释放Excel对象，避免残留进程
go_workbook->close( savechanges = abap_false ).
go_excel->quit( ).
FREE go_workbook.
FREE go_excel.

注意点 #

• 这个事件会在用户点击打印按钮时触发，不管最终打印是否成功（比如打印机缺纸），如果业务需要严格判断打印完成，可能需要结合打印机状态的额外检查，但大部分场景下“触发打印”就足够作为锁定依据。
• 每次操作前要重置gv_print_triggered为abap_false，避免上次的标记干扰当前判断。

方案二：拆分预览和打印按钮（简单可控） #

如果觉得事件绑定太繁琐，也可以直接在ABAP程序的屏幕上做两个独立按钮：

• 「打印预览」：只调用printpreview( )，不做任何数据锁定操作
• 「直接打印」：调用printout( )执行打印，完成后直接锁定数据

这种方式逻辑更简单，用户交互也更清晰，适合对流程可控性要求高的场景，代码示例很简单：

" 直接打印按钮的逻辑
go_workbook->printout( ).
" 执行数据锁定
WRITE: / '已完成打印，锁定相关数据'.

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