Restrict no. of lines before printing on layput

[Former Member]

Hi sap guru's

I am creating Consolidated Tax Invoice Layout I want to print detail on body of layout I want to fix the no. of lines e.x only 30 lines i want to print ...rest of the lines should print on next page so please tell me what should i do in smart forms

thanx in advance

[naimesh_patel]

Instead of this set your window height to 30 LN.

It will print only 30 lines in the first page and for more rows, next page will be called.

Regards,

Naimesh Patel

[Former Member]

Thanx Naimesh

but can u tell me how to set window size for 30 lines..

only increasing and decreasing size of window ....

[Former Member]

Hi Ateeque Shaikh,

In print program,

you can declare one variable type integer.

increment one by one after print each record.

if local variable = 30.

call function '

exporting

element = 'newpage'

.......

reassign local variable to zer0.

In addtion, add below code in script editor,

/E newpage

ph NEW-PAGE

let me know if any problem.

Thanks

jayasunder

[Former Member]

Thanx Jayasundara Reddy

I tried what u said but there is no option like elemrnt in function module

can u tell me briefly and where should i use that option i am sending my code so plz can u suggest me.....

&----

---

*& Report ZCONSOLIDATE_INVOICE_P

*&

&----

---

*& Request Key No. IEDK901893

*&

&----

---

REPORT ZCONSOLIDATE_INVOICE_P

NO STANDARD PAGE HEADING.

----

---

*T A B L E S

----

---

tables:kna1, "General Data in Customer Master

zcon_invoi, "Z table for consolidate invoice

konv. "Conditions (Transaction Data)

----

---

• Structure

----

---

• TYPES: BEGIN OF s_header,

• gnum TYPE zcon_invoi-gnum,

• kunnr TYPE zcon_invoi-kunnr,

• fkdat TYPE zcon_invoi-fkdat,

• arktx LIKE vbrp-arktx,

• fkimg TYPE zcon_invoi-fkimg,

• gkbetr TYPE zcon_invoi-gkbetr,

• name1 TYPE kna1-name1,

• stras TYPE kna1-stras,

• ort01 TYPE kna1-ort01,

• pstlz TYPE kna1-pstlz,

• land1 TYPE kna1-land1,

• total TYPE zcon_invoi-gkbetr,

• KBETR TYPE konv-KBETR, "Rate & Price

• END OF s_header.

**TYPES: BEGIN OF s_header,

• gnum TYPE zheader_con2-gnum,

• kunnr TYPE zheader_con2-kunnr,

• fkdat TYPE zheader_con2-fkdat,

• arktx LIKE zheader_con2-arktx,

• fkimg TYPE zheader_con2-fkimg,

• gkbetr TYPE zheader_con2-gkbetr,

• name1 TYPE zheader_con2-name1,

• stras TYPE zheader_con2-stras,

• ort01 TYPE zheader_con2-ort01,

• pstlz TYPE zheader_con2-pstlz,

• land1 TYPE zheader_con2-land1,

• total TYPE zheader_con2-total,

• KBETR TYPE zheader_con2-kbetr, "Rate & Price

• END OF s_header.

**

**TYPES: BEGIN OF s_item,

• gnum TYPE zitem_con2-gnum,

• vbeln TYPE zitem_con2-vbeln,

• vbeln1 TYPE zitem_con2-vbeln1,

• lfdat TYPE zitem_con2-lfdat,

• fkdat TYPE zitem_con2-fkdat,

• fkimg TYPE zitem_con2-fkimg,

• kunnr TYPE zitem_con2-kunnr,

• arktx TYPE zitem_con2-arktx,

• gkwert TYPE zitem_con2-gkwert,

• g2kwert TYPE zitem_con2-gkwert,

• g3kwert TYPE zitem_con2-gkwert,

• g4kwert TYPE zitem_con2-gkwert,

• g5kwert TYPE zitem_con2-gkwert,

• g6kwert TYPE zitem_con2-gkwert,

• END OF s_item.

**

TYPES: BEGIN OF s_item1,

gnum TYPE zitem_con3-gnum,

vbeln TYPE zitem_con3-vbeln,

• vbeln1 TYPE zcon_invoi-vbeln1,

lfdat TYPE zitem_con3-lfdat,

• fkdat TYPE zcon_invoi-fkdat,

fkimg TYPE zitem_con3-fkimg,

• kunnr TYPE zcon_invoi-kunnr,

• arktx TYPE zcon_invoi-arktx,

• gkwert TYPE zcon_invoi-gkwert,

• g2kwert TYPE zcon_invoi-gkwert,

• g3kwert TYPE zcon_invoi-gkwert,

• g4kwert TYPE zcon_invoi-gkwert,

• g5kwert TYPE zcon_invoi-gkwert,

• g6kwert TYPE zcon_invoi-gkwert,

END OF s_item1.

TYPES: BEGIN OF s_kna1,

kunnr LIKE kna1-kunnr,

name1 TYPE kna1-name1,

stras TYPE kna1-stras,

ort01 TYPE kna1-ort01,

pstlz TYPE kna1-pstlz,

END OF s_kna1.

DATA: it_header TYPE zheader_con2 OCCURS 0,

wa_header TYPE zheader_con2,

it_item TYPE ZITEM_CON2 OCCURS 0,

wa_item TYPE ZITEM_CON2,

it_item1 TYPE ZITEM_CON3 OCCURS 0,

wa_item1 TYPE ZITEM_CON3,

it_kna1 TYPE s_kna1 OCCURS 0,

wa_kna1 TYPE s_kna1.

DATA: line_cnt TYPE i,

v_fkimg TYPE ZCON_INVOI-FKIMG,"p DECIMALS 2,

v_amt TYPE p DECIMALS 2,

v_rate TYPE kwert."p DECIMALS 2.

DATA: fnam TYPE rs38l_fnam.

*DATA: var1 type i.

data : cntr1 type i,

var TYPE i.

----

---

• S E L E C T I O N S C R E E N

----

---

selection-screen begin of block s1 with frame TITLE text-001.

parameters: p_gnum TYPE zcon_invoi-gnum modif id m3 MATCHCODE OBJECT ZCON_GNUM.

selection-screen end of block s1.

START-OF-SELECTION.

IF p_gnum IS NOT INITIAL.

SELECT gnum

vbeln

vbeln1

lfdat

fkdat

fkimg

kunnr

arktx

gkwert

g2kwert

g3kwert

g4kwert

g5kwert

g6kwert

INTO CORRESPONDING FIELDS OF TABLE it_item

FROM zcon_invoi

WHERE gnum EQ p_gnum.

CLEAR line_cnt.

DESCRIBE TABLE it_item LINES line_cnt.

IF line_cnt GT 0.

CLEAR v_amt.

LOOP AT it_item INTO wa_item.

wa_item1-gnum = wa_item-gnum.

wa_item1-vbeln = wa_item-vbeln.

wa_item1-lfdat = wa_item-lfdat.

wa_item1-fkimg = wa_item-fkimg.

APPEND wa_item1 TO it_item1.

v_fkimg = v_fkimg + wa_item-fkimg.

v_amt = v_amt + wa_item-gkwert + wa_item-g2kwert + wa_item-g3kwert + wa_item-g4kwert + wa_item-g5kwert + wa_item-g6kwert.

ENDLOOP.

READ TABLE it_item INDEX 1 INTO wa_item.

wa_header-gnum = wa_item-gnum.

wa_header-fkdat = wa_item-fkdat.

wa_header-kunnr = wa_item-kunnr.

wa_header-fkimg = v_fkimg.

wa_header-arktx = wa_item-arktx.

wa_header-g5kwert = wa_item-g5kwert / 10.

SELECT SINGLE kunnr

name1

stras

ort01

pstlz

INTO CORRESPONDING FIELDS OF wa_kna1

FROM kna1

WHERE kunnr EQ wa_item-kunnr.

wa_header-name1 = wa_kna1-name1.

wa_header-stras = wa_kna1-stras.

wa_header-ort01 = wa_kna1-ort01.

wa_header-pstlz = wa_kna1-pstlz.

wa_header-total = v_amt.

IF v_fkimg GT 0.

v_rate = v_amt / v_fkimg.

ENDIF.

wa_header-gkbetr = v_rate.

APPEND wa_header TO it_header.

• BREAK-POINT.

*DESCRIBE TABLE it_header lines var1.

DESCRIBE TABLE it_header lines cntr1.

CALL FUNCTION '/1BCDWB/SF00000197'

EXPORTING

• ARCHIVE_INDEX =

• ARCHIVE_INDEX_TAB =

• ARCHIVE_PARAMETERS =

• CONTROL_PARAMETERS =

• MAIL_APPL_OBJ =

• MAIL_RECIPIENT =

• MAIL_SENDER =

• OUTPUT_OPTIONS =

• USER_SETTINGS = 'X'

QTY = v_fkimg

RATE = v_rate

CNTR1 = cntr1

• IMPORTING

• DOCUMENT_OUTPUT_INFO =

• JOB_OUTPUT_INFO =

• JOB_OUTPUT_OPTIONS =

TABLES

IT_HEADER = it_header

IT_ITEM1 = it_item

• 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 'SSF_FUNCTION_MODULE_NAME'

EXPORTING

formname = 'ZTAX_INVOICE_P'

• VARIANT = ' '

• DIRECT_CALL = ' '

IMPORTING

FM_NAME = fnam

• EXCEPTIONS

• NO_FORM = 1

• NO_FUNCTION_MODULE = 2

• OTHERS = 3

.

IF sy-subrc <> 0.

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

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

ENDIF.

ENDIF.

ENDIF.