Rotina para trazer qualquer window para 1º plano.
Tive que fazer esta rotina, pois quando imprimia para PDF ou exportava para Excel, ficava apenas a indicação na barra em baixo a piscar e tinha que fazer um click com o rato para abrir.

COBOL Código:
  1.  @OPTIONS NOALPHA
  2.  IDENTIFICATION DIVISION.
  3.  PROGRAM-ID.   WINDOWONTOP.
  4.  ENVIRONMENT DIVISION.
  5.  CONFIGURATION SECTION.
  6.  REPOSITORY.
  7.  DATA DIVISION.
  8.  WORKING-STORAGE SECTION.
  9.  01  OLE-TRUE                       PIC 1(1)  BIT VALUE B"1".                
  10.  01  FILLER                         PIC 1(7)  BIT.                           
  11.  01  OLE-FALSE                      PIC 1(1)  BIT VALUE B"0".                
  12.  01  FILLER                         PIC 1(7)  BIT.                           
  13.  01  S-INDEX                        PIC S9(4) COMP-5 VALUE 0.                
  14.  01  CONTALOOP                      PIC S9(9) COMP-5.                
  15.  01  MILISECONDS                    PIC S9(9) COMP-5 VALUE 0.
  16.  01  WINDOWCLASSE                   BINARY-LONG VALUE ZERO.
  17.  01  HWND                     BINARY-LONG.
  18.  01  SECONDS                        PIC S9(9) COMP-5.                
  19.  LINKAGE SECTION.
  20.  01  WINDOWNAME                     PIC X(064).
  21.  PROCEDURE DIVISION USING  WINDOWNAME.
  22.  MAIN SECTION.                                                               
  23.  MAIN-00.   
  24.      IF WINDOWNAME = SPACE GO TO MAIN-99.
  25.      MOVE 40 TO SECONDS.
  26.        COMPUTE S-INDEX = FUNCTION STORED-CHAR-LENGTH(WINDOWNAME).
  27.      ADD 1 TO S-INDEX.     
  28.      MOVE X"00"        TO WINDOWNAME(S-INDEX:1).
  29. *    DISPLAY WINDOWNAME. STOP " ".
  30.      MOVE ZERO TO CONTALOOP.
  31. *
  32.  MAIN-10.
  33.      CALL "FindWindowA" WITH STDCALL USING 
  34.                            BY VALUE WINDOWCLASSE
  35.                            BY REFERENCE WINDOWNAME  
  36.                         RETURNING HWND.
  37.      IF HWND > 0 GO TO MAIN-20.
  38.      IF CONTALOOP > SECONDS GO TO MAIN-99.
  39.      MOVE 500 TO MILISECONDS.
  40.      CALL "Sleep"        WITH STDCALL USING 
  41.                             BY VALUE MILISECONDS.
  42.      ADD 1 TO CONTALOOP.
  43.      GO TO MAIN-10.
  44.  MAIN-20.
  45.      CALL "SetForegroundWindow" WITH STDCALL USING 
  46.                            BY VALUE HWND.
  47. *
  48.  MAIN-99.
  49.  END PROGRAM WINDOWONTOP.  

Basta passar o nome correto da "Window" e esta fica em primeiro plano sobre todas as outras.
A utilização de "Sleep" tem a ver com o tempo de criação do PDF ou da Folha de Excel.
Espero que sirva para alguém.

Saludos,
Rui Pinto