특정프로그램 내에서 프린터로 직접 프린트 하려면
'NEW-PAGE PRINT ON' 구문을 사용합니다.
Print On 이후 Write되는 모든 내용을 화면이 아닌 프린터 스풀로 보내버립니다.
'NEW-PAGE PRINT OFF' 구문으로 출력을 끝낼수 있구요.

CASE SY-UCOMM.
WHEN 'PRINT'.
PERFORM PRINT_RTN.
ENDCASE.

FORM PRINT_RTN.

NEW-PAGE PRINT ON
DESTINATION 'ZDEV'
IMMEDIATELY 'X'
KEEP IN SPOOL 'X'
LINE-COUNT 65
LINE-SIZE 128
LAYOUT 'X_65_132'
NO DIALOG
NO-HEADING.

LEAVE TO LIST-PROCESSING AND RETURN TO SCREEN 0.
PERFORM WRITE_HEADER.
PERFORM WRITE_BODY.

ENDFORM. " PRINT_RTN

위에 프린트 설정을 코딩상으로 해주신후 WRITE해주시면 바로 출력가능합니다.