특정프로그램 내에서 프린터로 직접 프린트 하려면
'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해주시면 바로 출력가능합니다.
댓글 8
-
양키
2010.04.20 22:54
자료 감사합니다. -
흙
2010.04.27 20:04
필요할때 요긴하게 잘 쓰겠습니다. -
DIB
2010.05.05 21:41
좋은정보 감사해요~^^&
-
밥~~
2010.12.01 02:02
이런방법이 있네요.. 감사합니다..
-
은하수
2011.01.03 17:16
감사합니다.
-
봉봉
2011.05.17 18:21
감사합니다~
-
디카초올~
2011.12.05 22:41
감사합니다.
-
김효상
2013.11.27 22:31
감사합니다.