Chinaunix首页 | 论坛 | 博客
  • 博客访问: 685655
  • 博文数量: 194
  • 博客积分: 7067
  • 博客等级: 少将
  • 技术积分: 2008
  • 用 户 组: 普通用户
  • 注册时间: 2008-04-09 14:48
个人简介

我很好

文章分类

全部博文(194)

文章存档

2019年(1)

2018年(1)

2017年(3)

2015年(2)

2012年(2)

2011年(1)

2010年(27)

2009年(15)

2008年(142)

分类: WINDOWS

2008-08-19 09:57:29

There is a way to download smartform in PDF format. 

Please do the following: 
1. Print the smartform to the spool. 
2. Note the spool number. 
3. Download a PDF file (Acrobat Reader) version of the spool by running Program RSTXPDFT4 and entering the 
noted spool number. 

or use this program:

&---------------------------------------------------------------------
*& Report ZPDF_DNLD_TEST2 *
*& *
&---------------------------------------------------------------------
*& DEVK904540 *
*& *
&---------------------------------------------------------------------
REPORT ZPDF_DNLD_TEST2 .
data: i_otf LIKE itcoo OCCURS 100 WITH HEADER LINE,
i_pdf LIKE tline OCCURS 100 WITH HEADER LINE.
data: op_option type SSFCTRLOP,
job_output type SSFCRESCL.
op_option-getotf = 'X'.
CALL FUNCTION '/1BCDWB/SF00000005'
EXPORTING
ARCHIVE_INDEX = 
ARCHIVE_INDEX_TAB = 
ARCHIVE_PARAMETERS = 
CONTROL_PARAMETERS = op_option
MAIL_APPL_OBJ = 
MAIL_RECIPIENT = 
MAIL_SENDER = 
OUTPUT_OPTIONS = 
USER_SETTINGS = 'X' 
itab1 = itab1 
IMPORTING
DOCUMENT_OUTPUT_INFO = 
JOB_OUTPUT_INFO = job_output
JOB_OUTPUT_OPTIONS = 
EXCEPTIONS
FORMATTING_ERROR = 1
INTERNAL_ERROR = 2
SEND_ERROR = 3
USER_CANCELED = 4
OTHERS = 5
.
IF sy-subrc 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO 
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4. 
ENDIF.
CALL FUNCTION 'CONVERT_OTF'
EXPORTING
FORMAT = 'PDF'
MAX_LINEWIDTH = 132 
ARCHIVE_INDEX = ' ' 
COPYNUMBER = 0 
ASCII_BIDI_VIS2LOG = ' ' 
PDF_DELETE_OTFTAB = ' ' 
IMPORTING 
BIN_FILESIZE = 
BIN_FILE = 
TABLES
otf = job_output-otfdata
lines = i_pdf
EXCEPTIONS 
ERR_MAX_LINEWIDTH = 1 
ERR_FORMAT = 2 
ERR_CONV_NOT_POSSIBLE = 3 
ERR_BAD_OTF = 4 
OTHERS = 5 
.
IF sy-subrc 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO 
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4. 
ENDIF.
CALL FUNCTION 'GUI_DOWNLOAD'
EXPORTING
BIN_FILESIZE = 
filename = 'c:\test_pdf_sf.pdf'
FILETYPE = 'BIN'
tables
data_tab = i_pdf
FIELDNAMES = 
EXCEPTIONS
FILE_WRITE_ERROR = 1
NO_BATCH = 2
GUI_REFUSE_FILETRANSFER = 3
INVALID_TYPE = 4
NO_AUTHORITY = 5
UNKNOWN_ERROR = 6
HEADER_NOT_ALLOWED = 7
SEPARATOR_NOT_ALLOWED = 8
FILESIZE_NOT_ALLOWED = 9
HEADER_TOO_LONG = 10
DP_ERROR_CREATE = 11
DP_ERROR_SEND = 12
DP_ERROR_WRITE = 13
UNKNOWN_DP_ERROR = 14
ACCESS_DENIED = 15
DP_OUT_OF_MEMORY = 16
DISK_FULL = 17
DP_TIMEOUT = 18
FILE_NOT_FOUND = 19
DATAPROVIDER_EXCEPTION = 20
CONTROL_FLUSH_ERROR = 21
OTHERS = 22
.
IF sy-subrc 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO 
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4. 
ENDIF.
阅读(553) | 评论(0) | 转发(0) |
给主人留下些什么吧!~~