Установиьт формат печати

Ich Will

Есть ALV отчет. Ипользую фунции REUSE*
При его печати по умолчанию стоит не тот формат, подскажите как проставить формат печати ?

Пробовал:

Code:

1.
 CALL FUNCTION 'SET_PRINTPARAMETER_VALUE'
  EXPORTING
    name                   = 'LAYOUT'
    value                   = 'Z_90_120'.

2.
 CALL FUNCTION 'SET_PRINT_PARAMETERS'
  EXPORTING
    layout                  = 'Z_90_120'.


3.
и вот так 
* User command
FORM user_comm USING r_ucomm     LIKE sy-ucomm
                     ls_selfield TYPE slis_selfield.

  DATA: params LIKE pri_params,
        valid.

  IF r_ucomm EQ '&PRINT'.
    CALL FUNCTION 'GET_PRINT_PARAMETERS'
         EXPORTING
              layout         = 'Z_90_120'
         IMPORTING
              out_parameters = params
              valid          = valid.

    IF sy-ucomm EQ 'PRIN'.
      break beketov.
      CALL FUNCTION 'PRINT_REPORT'
           EXPORTING
                report = sy-repid.
    ENDIF.
  ENDIF.

ENDFORM.

ничего не помогло

Stepan

Попробуй поиграться с
NEW-PAGE PRINT ON
PARAMETERS parms
NO DIALOG .
Истина где-то рядом

Ich Will

Спасибо попробую....

T

Можно попробовать в layout прописать
min_linesize = 120.
max_linesize = 120.

Глядишь он и сам выберет нужный тебе формат..

(имеется в виду параметр is_layout в REUSE_ALV_GRID_DISPLAY)

Ich Will

Что то я совсем запутался...

давайте попробуем на примере

есть такой простой код .... интересно что нужно сюда добавиьт чтобы
формат сменился :?:

Code:

REPORT zprint_test.

DATA: lt_sflight  TYPE TABLE OF sflight.

INITIALIZATION.
  CALL FUNCTION 'SET_PRINT_PARAMETERS'
       EXPORTING
            immediately = 'X'
            layout      = 'Z_90_120'.

START-OF-SELECTION.
  SELECT * FROM sflight INTO TABLE lt_sflight.
  CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
       EXPORTING
            i_structure_name = 'SFLIGHT'
       TABLES
            t_outtab         = lt_sflight[].

T

Я имел в виду без SET_PRINT_PARAMETERS

Code:

data: ls_layo type slis_layout_alv.

ls_layo-min_linesize = 120. 
ls_layo-max_linesize = 120. 

  CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY' 
       EXPORTING 
            i_structure_name = 'SFLIGHT' 
            is_layout        = ls_layo
       TABLES 
            t_outtab         = lt_sflight[].

Ich Will

Спасиб, но к сожалению не помогает.
Формат остался без изменения.

T

BCALV_TEST_FULLSCREEN
В этом примере эти параметры есть на экране, когда я их меняю, подбирается подходящий по ширине формат.

Там есть ещё опция "Без изменения параметров печати". Это само по себе не поможет, но может если ещё к этому что-то добавить

Ich Will

Спасибо большое, пример смотрел, но так и не понял вроде испольуют
тотже самый механизм...

Насчет флажка - "Без изменения параметров печати" так он должен быть - 'X' а у меня он ' ' я в отладчике сматрел

T

Ich Will написал:

Насчет флажка - "Без изменения параметров печати" так он должен быть - 'X' а у меня он ' ' я в отладчике сматрел

В смысле "должен быть X"? Как я понял, REUSE* умеет подгонять формат печати под получившийся список. И если эту галку поставить, то он небудет ничего подгонять. Другой вопрос, что при этом он будет использовать..

Ich Will

Это мысль

сейчас посморим

Ich Will

Нет.... к сожалению берет какой-то дефолтный...

T

Ich Will написал:

Нет.... к сожалению берет какой-то дефолтный...

Так я ж говорил, что это само по себе не поможет.
Нужны ещё какие-то действия..

Ich Will

посмотрел я хорошенько BCALV_TEST_FULLSCREEN позапускал .....
не устанавливает он формат печати ...

T

Если тебя устроит вот такое извращение (у меня работает..):

Code:

INITIALIZATION.

  CALL FUNCTION 'SET_PRINT_PARAMETERS'
       EXPORTING
            immediately = 'X'
            layout      = 'Z_90_120'.

  perform set_default_print_params.

  ...

FORM set_default_print_params.

  TYPES:
    BEGIN OF PARAM_ENTRY,    "Tabelle fќr reportspez. Druckparameter
      PROGRAM LIKE SY-REPID,
      PARAMS  TYPE PRI_PARAMS,
      PARAMS_EXT TYPE PRIPAR_EXT,
    END   OF PARAM_ENTRY,
    PARAM_TABLE TYPE PARAM_ENTRY OCCURS 0.

  DATA:
    LIST_DEF_PAR   TYPE PARAM_TABLE   "Liste der Default-Druckparameter
                   WITH HEADER LINE.

  DATA: MEMKEY(20)  TYPE C.

  MOVE sy-uname TO MEMKEY(12).
  MOVE '#%!' TO MEMKEY+12(3).

  IMPORT LIST_DEF_PAR FROM MEMORY ID MEMKEY.
  if sy-subrc <> 0.

*   В принципе можно не проверять sy-subrc и каждый раз отправлять
*   новую таблицу (если требуется менять формат на лету)
*   Тогда можно просто делать EXPORT без IMPORT
*
*   А сейчас, если в памяти уже что-то будет, то не отправляем

    LIST_DEF_PAR-program = sy-repid.
    move-corresponding %_print to LIST_DEF_PAR-PARAMS.
    append LIST_DEF_PAR.

    EXPORT LIST_DEF_PAR TO MEMORY ID MEMKEY.

  endif.

ENDFORM.                    " set_default_print_params

Можно ещё какие-нибудь опции менять перед export.

Звать эти вещи можно откуда угодно до печати. Необязательно в INITIALIZATION.

Правила форума

Установиьт формат печати

Кто сейчас на конференции