Drucken im Hintergrund mit geänderten Parametern

Drucken im Hintergrund mit geänderten Parametern

Hi, ich habe ein Problem, das mich nun schon seit Tagen beschäftigt.

Unsere Schweser-Gesellschaft verfügt zum Formulardruck über ein Tool, daß besser (ist ja nicht schwer) als SmartForms ist.

Nun soll ich die Daten im Ascii-Format an einen Drucker im SAP-System schicken, von wo aus dieses Formular-Tool sich die Daten dann abholt.

Soviel zur Vorgeschichte. Nun das Problem.

ich habe einen kleinen Report geschrieben, der die Daten als ALV (reuse_alv_grid_display_lvc) an diesen Drucker senden soll.

Hier der Quelltext:

*&---------------------------------------------------------------------*
*& Report ZPRINTSST *
*& *
*&---------------------------------------------------------------------*
*& *
*& *
*&---------------------------------------------------------------------*

REPORT zprintsst .

DATA: indxkey LIKE indx-srtfd VALUE 'KEYVALUE',
indx_wa TYPE indx,
gt_print TYPE TABLE OF zlosst,
gs_print LIKE LINE OF gt_print,
valid TYPE c,
pripar TYPE pri_params.



IMPORT gt_print = gt_print
FROM SHARED BUFFER indx(st) ID indxkey TO indx_wa.


CALL FUNCTION 'GET_PRINT_PARAMETERS'
EXPORTING
im_parameters = pripar
immediately = ' '
no_dialog = 'X'
IMPORTING
out_parameters = pripar
valid = valid
EXCEPTIONS
archive_info_not_found = 1
invalid_print_params = 2
invalid_archive_params = 3
OTHERS = 4.
IF sy-subrc <> 0.
MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.

pripar-primm = ' '.
pripar-pdest = 'FOSC'.
pripar-prcop = '001'.
pripar-pexpi = '8'.
pripar-prsap = 'D'.
pripar-prdsn = 'LIST1S'.
pripar-ptype = 'TEXT'.
pripar-armod = '1'.
pripar-priot = '5'.
pripar-prunx = 'D'.
pripar-prkeyext = ' 31914'.
pripar-prchk = ' 68546'.




CALL FUNCTION 'GET_PRINT_PARAMETERS'
EXPORTING
* im_parameters = pripar
destination = 'FOSC'
no_dialog = 'X'
immediately = ' '
mode = 'CURRENT'
draft = 'X'
IMPORTING
out_parameters = pripar
valid = valid
EXCEPTIONS
archive_info_not_found = 1
invalid_print_params = 2
invalid_archive_params = 3
OTHERS = 4.
IF sy-subrc <> 0.
MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.




IF valid <> space.
NEW-PAGE PRINT ON PARAMETERS pripar.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY_LVC'
EXPORTING
i_structure_name = 'ZLOSST'
* IS_LAYOUT_LVC =
TABLES
t_outtab = gt_print
EXCEPTIONS
program_error = 1
OTHERS = 2
.
IF sy-subrc <> 0.
MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.

ENDIF.

Dieser Report wird mittels submit and return aus einem Dialogprogramm aufgerufen.

Ich komme aber nicht in meine Dialogtransaktion zurück, sondern lande in der Spoolverwaltung.

Im Anhang habe ich die Bildschirme die nach dem Submit gesendet werden mal angehängt.

Vieleicht kann mir ja jemand helfen (hoffentlich)