Hello everyone:
I am using FM "get_print_parameters" to send data to spool and when I open the spool I see the report in "landscape format" but when I give to to Qa persion for testing it seems like it is displaying in "portrait" format! Here is my code:
DATA: params LIKE pri_params,
valid(1),
valid_spool(1),
l_wa TYPE T_RULE.
READ TABLE P_ITAB INTO l_wa INDEX 1.
CALL FUNCTION 'GET_PRINT_PARAMETERS'
EXPORTING
authority = space
immediately = space
new_list_id = 'X'
no_dialog = 'X'
user = sy-uname
IMPORTING
out_parameters = params
EXCEPTIONS
archive_info_not_found = 1
invalid_print_params = 2
invalid_archive_params = 3
OTHERS = 4.
IF sy-subrc NE 0.
CLEAR : params.
ELSE.
"params-pdest = v_dest.
params-prtxt = 'ZCFIGL10020'.
"params-paart = 'X_58_170'.
params-primm = space.
params-prrel = space.
NEW-PAGE PRINT ON PARAMETERS params NO DIALOG.
FORMAT INTENSIFIED ON.
WRITE: / 'Template:', l_wa-TEMPLATE,
30 'Reference:', l_wa-sref.
SKIP.
WRITE: /20 'Sender',
95 'Receiver'.
ULINE.
*-----Sender header
WRITE: / 'Seq',
10 'Ln',
20'CCntr',
33'CoCd',
40'GL Acct',
53'D/H',
59'Rate',
71'Assignment'.
*-----Receiver Header
WRITE: 95'CCntr',
108'CoCd',
115'GL Acct',
128'D/H',
134'Rate',
146'Assignment'.
FORMAT INTENSIFIED OFF.
LOOP AT P_ITAB .
*-----Sender Data
WRITE: / P_ITAB-SEQNUM,
10 P_ITAB-SUBSEQ,
20 P_ITAB-SKOSTL,
33 P_ITAB-SBUKRS,
40 P_ITAB-SHKONT,
53 P_ITAB-SZHKZG,
59 P_ITAB-SRATE,
71 P_ITAB-SASSIGN.
*-----Receiver data
WRITE:95 P_ITAB-RKOSTL,
108 P_ITAB-RBUKRS,
115 P_ITAB-RHKONT,
128 P_ITAB-RZHKZG,
134 P_ITAB-RRATE,
146 P_ITAB-RASSIGN.
ENDLOOP.
NEW-PAGE PRINT OFF.
clear: l_wa, params.
How should I resolve this issue?
Thanks.
Mithun
Bluesky
