printing problem in sap script

[Former Member]

Hi All

i have problem in printing sap script when i run printing program it shows printing window and when i click print button then it is not printing the form in print program im using folloing FM. , print program is running very well print preview is also ok but form is not printed ,

CALL FUNCTION 'OPEN_FORM'

EXPORTING

• APPLICATION = 'TX'

• ARCHIVE_INDEX =

• ARCHIVE_PARAMS =

DEVICE = 'PRINTER'

DIALOG = 'X'

• FORM = 'ZSCPT_HR_APPT'

LANGUAGE = SY-LANGU\

[Former Member]

Hi not printing in the sense you are getting total whilte paper or wht ?

check whether printer is configured in your system

[Former Member]

Hi,

Did you pass 'OPTIONS' :

Use parameter OPTIONS to set several options for print formatting. The parameter has the structure ITCPO. The user can change some of the defined settings on the print control screen.

Structure: ITCPO

Default value: SPACE

[Help Link|http://help.sap.com/saphelp_nw04/helpdata/en/d6/0dba1a494511d182b70000e829fbfe/frameset.htm]

Regards,

~Satya

[Former Member]

Hi,

can you please check this doc

https://www.sdn.sap.com/irj/scn/go/portal/prtroot/docs/library/uuid/90edfc78-dfc9-2b10-dcbe-d4612972...

Thanks and regards

Durga.K

[Former Member]

not printing in the sense script is not passed to the printer , so there is no blank page

[Former Member]

Hi ,

If your print preview is OK , then there are chances that your ouput has gone directly into the SPOOL .Please check your spool contents and.

Good Luck,

Varghese

[Former Member]

my coding is

&----

---

*& Report ZSCPT_HR_OPT_DRIVER

*&

&----

---

*&

*&

&----

---

REPORT ZSCPT_HR_OPT_DRIVER.

TABLES : pa0001,pa0000,pa0002,pa0006,pa0008,pa9001,hrp1000

,hrp1001,t500p,t522t,t247.

data : date(10) type c .

DATA : VAR1 TYPE SY-PAGNO.

TYPES: BEGIN OF wa_pa0000,

pernr TYPE pa0000-pernr,

endda TYPE pa0000-endda,

begda TYPE pa0000-begda,

massn TYPE pa0000-massn,

END OF wa_pa0000.

TYPES : BEGIN OF wa_pa0001,

pernr TYPE pa0001-pernr,

endda TYPE pa0001-endda,

begda TYPE pa0001-begda,

bukrs TYPE pa0001-bukrs,

werks TYPE pa0001-werks,

persg TYPE pa0001-persg,

persk TYPE pa0001-persk,

btrtl TYPE pa0001-btrtl,

orgeh TYPE pa0001-orgeh,

plans TYPE pa0001-plans,

stell TYPE pa0001-stell,

ename TYPE pa0001-ename,

END OF wa_pa0001.

types : begin of wa_pa0002,

pernr type pa0002-pernr,

subty type pa0002-subty,

objps type pa0002-objps,

sprps type pa0002-sprps,

nachn type pa0002-nachn,

vorna type pa0002-vorna,

anred type pa0002-anred,

midnm type pa0002-midnm,

end of wa_pa0002.

TYPES : BEGIN OF wa_pa0006,

pernr TYPE pa0006-pernr,

subty TYPE pa0006-subty,

name2 TYPE pa0006-name2,

stras TYPE pa0006-stras,

ort01 TYPE pa0006-ort01,

ort02 TYPE pa0006-ort02,

pstlz TYPE pa0006-pstlz,

locat TYPE pa0006-locat,

adr03 TYPE pa0006-adr03,

adr04 TYPE pa0006-adr04,

state TYPE pa0006-state,

END OF wa_pa0006.

TYPES : BEGIN OF wa_pa0008,

pernr TYPE pa0008-pernr,

lga01 TYPE pa0008-lga01,

bet01 TYPE pa0008-bet01,

lga02 TYPE pa0008-lga02,

bet02 TYPE pa0008-bet02,

lga03 TYPE pa0008-lga03,

bet03 TYPE pa0008-bet03,

lga04 TYPE pa0008-lga04,

bet04 TYPE pa0008-bet04,

lga05 TYPE pa0008-lga05,

bet05 TYPE pa0008-bet05,

lga06 TYPE pa0008-lga06,

bet06 TYPE pa0008-bet06,

lga07 TYPE pa0008-lga07,

bet07 TYPE pa0008-bet07,

lga15 TYPE pa0008-lga15,

bet15 TYPE pa0008-bet15,

lga22 TYPE pa0008-lga22,

bet22 TYPE pa0008-bet22,

END OF wa_pa0008.

TYPES : BEGIN OF wa_pa9001,

pernr TYPE pa9001-pernr,

location TYPE pa9001-location,

division TYPE pa9001-division,

department TYPE pa9001-department,

END OF wa_pa9001.

TYPES : BEGIN OF wa_hrp1000,

plvar TYPE hrp1000-plvar,

otype TYPE hrp1000-otype,

objid TYPE hrp1000-objid,

begda TYPE hrp1000-begda,

endda TYPE hrp1000-endda,

short TYPE hrp1000-short,

stext TYPE hrp1000-stext,

END OF wa_hrp1000.

TYPES : BEGIN OF wa_hrp1001,

otype TYPE hrp1001-otype,

objid TYPE hrp1001-objid,

plvar TYPE hrp1001-plvar,

begda TYPE hrp1001-begda,

endda TYPE hrp1001-endda,

END OF wa_hrp1001.

DATA : atext type t522t-atext,

name1 type t500p-name1.

DATA : pernr TYPE rp50g-pernr.

• types : amt_word1(255) type c.

DATA : wa_pa0000 TYPE wa_pa0000,

wa_pa0001 TYPE wa_pa0001,

wa_pa0002 TYPE wa_pa0002,

wa_pa0006 TYPE wa_pa0006,

wa_pa0008 TYPE wa_pa0008,

wa_pa9001 TYPE wa_pa9001,

wa_hrp1000 TYPE wa_hrp1000,

wa_hrp1001 TYPE wa_hrp1001.

DATA : TEXT TYPE CHAR8,

V_WORDS TYPE SPELL-WORD,

V_CONAMT TYPE I,

AMOUNT TYPE P,

STEXT TYPE HRP1000-STEXT,

ZJDATE TYPE Pb9011-ZJDATE,

ZCAMT TYPE PB9011-ZCAMT,

ZSAMT TYPE PB9011-ZSAMT,

C1 TYPE CHAR2,

C2 TYPE CHAR2,

C3 TYPE CHAR4,

C5 TYPE T247-LTX,

P_MONTH TYPE CHAR2,

P_YEAR TYPE CHAR4,

SOBID TYPE HRP1001-SOBID.

*data : amount(13) type c.

data : begin of it_final occurs 0,

ename like pa0001-ename,

frtxt like zappt_names-zformtext,

• stext like hrp1000-stext,

end of it_final.

DATA: struct TYPE ITCPO.

DATA: PDFTAB TYPE TABLE OF TLINE WITH HEADER LINE,

DATAB TYPE TABLE OF ITCOO WITH HEADER LINE.

DATA: BINFILESIZE TYPE I,

FILE_NAME TYPE STRING,

FILE_PATH TYPE STRING,

FULL_PATH TYPE STRING.

DATA : NES TYPE C.

***************************END OF DECLARATIONS**************************

To specify Printer name

*struct-tddest = 'LP01'.

To specify no Print Preview

struct-tdnoprev = ''.

To access the SAP Script output in OTF format

*struct-tdgetotf = 'X'.

***************Selection Screen**********************

selection-screen begin of block a with frame.

parameters:

p_name like zsignname-name, "matchcode object zform1 ,"obligatory,

p_desig like zsignname-desig," matchcode object zform.

• obligatory.

p_name1(30) TYPE c lower case ." like zsignname-name." defaul ' ' lower case.

selection-screen end of block a.

START-OF-SELECTION.

GET PARAMETER ID 'PER' FIELD PERNR.

call function 'CACS_DATE_GET_YEAR_MONTH'

exporting

i_date = sy-datum

importing

e_month = p_month

e_year = p_year.

p_year = sy-datum+2(2).

SELECT SINGLE * from pa0000 INTO

CORRESPONDING FIELDS OF wa_pa0000

WHERE pernr = pernr.

SELECT SINGLE * from pa0001 INTO

CORRESPONDING FIELDS OF wa_pa0001

WHERE pernr = pernr.

SELECT SINGLE * from pa0002 INTO

CORRESPONDING FIELDS OF wa_pa0002

WHERE pernr = pernr.

SELECT SINGLE * from pa0006 INTO

CORRESPONDING FIELDS OF wa_pa0006

WHERE pernr = pernr.

SELECT SINGLE * from pa0008 INTO

CORRESPONDING FIELDS OF wa_pa0008

WHERE pernr = pernr.

SELECT SINGLE * from pa9001 INTO

CORRESPONDING FIELDS OF wa_pa9001

WHERE pernr = pernr.

SELECT SINGLE * from hrp1000 INTO

CORRESPONDING FIELDS OF wa_hrp1000

WHERE objid = wa_pa0001-orgeh.

SELECT SINGLE * from hrp1001 INTO

CORRESPONDING FIELDS OF wa_hrp1001

WHERE objid = wa_hrp1000-objid.

select single atext from t522t client specified

into atext

where mandt = sy-mandt

and sprsl = sy-langu

and anred = wa_pa0002-anred.

date = wa_pa0001-begda.

c3 = date+0(04).

c1 = date+6(02).

c2 = date+4(02).

select single ltx from t247 into c5

where spras eq sy-langu

and mnr = c2 .

condense c1.

*DATA: amount1(10) TYPE p DECIMALS 2.

*amount = wa_pa0008-bet01.

*amount1 = amount.

CALL FUNCTION 'ZCFM_SPELL_AMOUNT_INR'

EXPORTING

amount = wa_pa0008-bet01

IMPORTING

text = v_words.

CALL FUNCTION 'OPEN_FORM'

EXPORTING

• APPLICATION = 'TX'

• ARCHIVE_INDEX =

• ARCHIVE_PARAMS =

DEVICE = 'PRINTER'

DIALOG = 'X'

• FORM = 'ZSCPT_HR_APPT'

LANGUAGE = SY-LANGU

OPTIONS = struct

• MAIL_SENDER =

• MAIL_RECIPIENT =

• MAIL_APPL_OBJECT =

• RAW_DATA_INTERFACE = '*'

• SPONUMIV =

• IMPORTING

• LANGUAGE = sy-langu

• NEW_ARCHIVE_PARAMS =

• RESULT =

• EXCEPTIONS

• CANCELED = 1

• DEVICE = 2

• FORM = 3

• OPTIONS = 4

• UNCLOSED = 5

• MAIL_OPTIONS = 6

• ARCHIVE_ERROR = 7

• INVALID_FAX_NUMBER = 8

• MORE_PARAMS_NEEDED_IN_BATCH = 9

• SPOOL_ERROR = 10

• CODEPAGE = 11

• OTHERS = 12

.

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 'START_FORM'

EXPORTING

• ARCHIVE_INDEX =

FORM = 'ZSCPT_HR_T1_T6'

LANGUAGE = SY-LANGU.

• STARTPAGE = ' '

• PROGRAM = ' '

• MAIL_APPL_OBJECT =

• IMPORTING

• LANGUAGE =

• EXCEPTIONS

• FORM = 1

• FORMAT = 2

• UNENDED = 3

• UNOPENED = 4

• UNUSED = 5

• SPOOL_ERROR = 6

• CODEPAGE = 7

• OTHERS = 8

• .

*IF sy-subrc <> 0.

• MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO

• WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

*ENDIF.

*if sy-pagno ne 1.

CALL FUNCTION 'WRITE_FORM'

EXPORTING

ELEMENT = 'REF'

• FUNCTION = 'SET'

TYPE = 'BODY'

WINDOW = 'WINDOW1'.

CALL FUNCTION 'WRITE_FORM'

EXPORTING

ELEMENT = 'FOOTER1'

• FUNCTION = 'SET'

TYPE = 'BODY'

WINDOW = 'WINDOW2'.

CALL FUNCTION 'WRITE_FORM'

EXPORTING

ELEMENT = 'HEADER2'

FUNCTION = 'SET'

TYPE = 'BODY'

WINDOW = 'WINDOW3'.

*

*

CALL FUNCTION 'WRITE_FORM'

EXPORTING

ELEMENT = 'FOOTER2'

FUNCTION = 'SET'

TYPE = 'BODY'

WINDOW = 'WINDOW4'.

CALL FUNCTION 'WRITE_FORM'

EXPORTING

ELEMENT = 'HEADER3'

FUNCTION = 'SET'

TYPE = 'BODY'

WINDOW = 'WINDOW5'.

CALL FUNCTION 'WRITE_FORM'

EXPORTING

ELEMENT = 'FOOTER3'

FUNCTION = 'SET'

TYPE = 'BODY'

WINDOW = 'WINDOW6'.

CALL FUNCTION 'WRITE_FORM'

EXPORTING

ELEMENT = 'MAIN'

• FUNCTION = 'SET'

TYPE = 'BODY'

WINDOW = 'MAIN'.

IF SY-SUBRC = 0.

ENDIF.

*

CALL FUNCTION 'END_FORM'.

CALL FUNCTION 'CLOSE_FORM'

TABLES

OTFDATA = datab[].

[Former Member]

solved