Skip to Content
0
Former Member
Mar 31, 2008 at 06:31 PM

Help with GET_PRINT_PARAMETERS

577 Views

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