Empty sapscript label is printed

Hello:
I have a problem with printing a label, the output label is empty.
I created it in BarOne, copy the code to a sapscript then I made a printing programm, here the code of the print program, the print form is the one have the main code, then the subroutines.
The sapscript is active an with the lines that BarOne generated.
Please any comment is very helpfull because I don't find the reason for the label is empty.
FORM itab_user_command
     USING whatcomm TYPE sy-ucomm whatrow TYPE slis_selfield.
  IF whatcomm = 'PRTLBL'.
    PERFORM print.
  ENDIF.
ENDFORM. "ITAB_user_command
*       FORM Print                                                    *
FORM print.
  DATA: bc_anln1(12) TYPE c.
  DATA: msg(100) TYPE c.
  CLEAR bc_anln1.
  NEW-PAGE PRINT ON
  NO DIALOG
  PARAMETERS pripar.
  msg = 'Labels printed / Etiquetas impresas'.
  LOOP AT it_out.
    IF it_out-flag = 'X'.
      bc_anln1 = it_out-anln1.
      PERFORM open_form.
      PERFORM start_form.
      PERFORM print_label.
      PERFORM end_form.
      MESSAGE msg TYPE 'I'.
    ENDIF.
  ENDLOOP.
  PERFORM CLOSE_FORM.
  NEW-PAGE PRINT OFF.
ENDFORM.                       "Print
* FORM PRINT_LABEL
FORM print_label.
  CALL FUNCTION 'WRITE_FORM'
    EXPORTING
      element = 'ETIKETT'.
  IF sy-subrc NE 0.
    text_zeile = text-002.
    REPLACE '$' WITH '''write_form''' INTO text_zeile.
    MESSAGE i181(ds) WITH text_zeile.
  ELSE.
    PERFORM save_printdate.
  ENDIF.
ENDFORM.                    "print_label
*       FORM open_form                                                *
FORM open_form.
  itcpo-tddest = tsp03l-lname.
  itcpo-tdimmed = 'X'.
  itcpo-tddelete = 'X'.
  CALL FUNCTION 'OPEN_FORM'
    EXPORTING
      form    = 'ZFISSM_ASSETS'
      device  = 'PRINTER'
      dialog  = 'X'
      OPTIONS = itcpo
    EXCEPTIONS
      OTHERS  = 1.
  IF sy-subrc NE 0.
    text_zeile = text-002.
    REPLACE '$' WITH '''open_form''' INTO text_zeile.
    MESSAGE i181(ds) WITH text_zeile.
  ENDIF.
ENDFORM.                    "open_form
*       FORM start_form                                               *
FORM start_form.
  CALL FUNCTION 'START_FORM'
    EXPORTING
      startpage = 'PAGE1'
    EXCEPTIONS
      OTHERS    = 1.
  IF sy-subrc NE 0.
    text_zeile = text-009.
    REPLACE '$' WITH '''start_form''' INTO text_zeile.
    MESSAGE i181(ds) WITH text_zeile.
  ENDIF.
ENDFORM.                    "start_form
*       FORM end_form                                                 *
FORM end_form.
  CALL FUNCTION 'END_FORM'
    EXCEPTIONS
      unopened                 = 1
      bad_pageformat_for_print = 2
      OTHERS                   = 3.
  IF sy-subrc NE 0.
    text_zeile = text-009.
    REPLACE '$' WITH '''end_form''' INTO text_zeile.
    MESSAGE i181(ds) WITH text_zeile.
  ENDIF.
ENDFORM.                    "end_form
*&      Form  SAVE_PRINTDATE
FORM save_printdate .
  UPDATE anlv
  SET vrsbg = sy-datum
  WHERE bukrs = it_out-bukrs
    AND anln1 = it_out-anln1
    AND anln2 = it_out-anln2.
ENDFORM.                    " SAVE_PRINTDATE
*&      Form  CLOSE_FORM
form CLOSE_FORM .
  CALL FUNCTION 'CLOSE_FORM'
    EXCEPTIONS
      unopened                 = 1
      bad_pageformat_for_print = 2
      OTHERS                   = 3.
  IF sy-subrc NE 0.
    text_zeile = text-009.
    REPLACE '$' WITH '''close_form''' INTO text_zeile.
    MESSAGE i181(ds) WITH text_zeile.
  ENDIF.
ENDFORM.                    "close_form

I forgot, the printer is a zebra. And sorry for the mess but the  marks didn't worked.

Similar Messages

  • Printing sapscript label using zebra printer

    Hi,
    Can anybody please help me regarding "printing sapscript label using zebra printer"?
    i hav set the following print default settings in the transaction mb90:
    output device :
    NO01
    device type: YZZX_ZEB
    but when i try to print ,i am getting error message stating that "the respective sapscript form is not active ".
    i hav also attached my print program for ur easy reference.
    ====================================================================*
    FORM open_form_slv.
    *'  Description:
    *'  Add information for the SAP spooler
    *'  Change the name of the standard customized form for Zebra print
    *'  Last Change Vers Programmer   Reason
    *1
      DATA: BEGIN OF print_infos.
              INCLUDE STRUCTURE itcpo.
      DATA: END OF print_infos.
      DATA: form_name(16) TYPE c, char1(1) TYPE c, ind_beg TYPE i.
      PERFORM itcpo_fuellen.
      MOVE-CORRESPONDING itcpo TO print_infos.
      WRITE sy-datum USING EDIT MASK '__.__.____'
                                               TO print_infos-tdcovtitle+1.
      WRITE sy-uzeit USING EDIT MASK '__:__:__'
                                              TO print_infos-tdcovtitle+12.
      CONCATENATE itcpo-tddest sy-uname ' PO'(001) ekpo-ebeln ' Doc.No'(002)
                                           mseg-mblnr print_infos-tdcovtitle
                              INTO print_infos-tdcovtitle SEPARATED BY space.
    form name from the table YZZM_GR_LABEL
      IF NOT g_fonam IS INITIAL.
        tnapr-fonam = g_fonam.
      ENDIF.
    if the used printer is a Zebra label printer, then the customized
    layout set name ???_???_XXX will be changed to ???_???_ZP
      SELECT SINGLE * FROM  tsp03d WHERE  padest  = nast-ldest.
      IF tsp03d-patype = 'YZZX_ZEB'.
        ind_beg := 15.
        WHILE ind_beg > -1.
          char1 := tnapr-fonam+ind_beg.     " substr(tnapr-fonam,ind_beg,1)
          IF char1 = '_'.
            form_name := tnapr-fonam(ind_beg).
            CONCATENATE form_name '_ZP' INTO tnapr-fonam.
            EXIT.
          ENDIF.
          ind_beg := ind_beg - 1.
        ENDWHILE.
      ENDIF.
      CALL FUNCTION 'OPEN_FORM'
        EXPORTING
          device   = 'PRINTER'
          language = language
          OPTIONS  = print_infos
          form     = tnapr-fonam
          dialog   = ' '.
      x_open := x.
      IF mseg-weanz = 0. mseg-weanz = 1. ENDIF.
      IF syst-tcode <> 'MB90'  AND  NOT g_flag_popup IS INITIAL.
    check for requirement of printing label and ask for gr-quantities (popup)
        SELECT SINGLE * FROM yzzm_gr_quantity WHERE ebeln = mseg-ebeln.
        CLEAR yzzm_gr_quantity-no_popup.
      ELSE.
    and ask not for gr-quantities
        IF syst-tcode = 'MB90'.
          yzzm_gr_quantity-erfmg := mseg-menge.
        ELSE.
          yzzm_gr_quantity-erfmg := mseg-menge / mseg-weanz.
        ENDIF.
        yzzm_gr_quantity-no_popup := x.
      ENDIF.
    determination inspection lot number
      CLEAR qals-prueflos.
      SELECT SINGLE * FROM qals WHERE mblnr = mseg-mblnr
                           AND zeile = mseg-zeile
                           AND mjahr = mseg-mjahr.
    determination vendor batch
      CLEAR mch1-licha.
      SELECT SINGLE * FROM mch1 INTO mch1 WHERE matnr = mseg-matnr
                                            AND charg = mseg-charg.
    ENDFORM.                    "open_form_label
    =================================================================== *
    FORM we01_print_slv.
    *'  Description:
    *'  print out of hazardous symbol
    *'  controls the Zebra printer
    *'  Last Change Vers Programmer   Reason
    *****26.09.2007 Starts
      DATA: l_objky TYPE nast-objky,"Object key
            l_vstat TYPE nast-vstat. "Processing status of message
    *****26.09.2007 Starts
      TABLES: mgef, t300.
      FIELD-SYMBOLS: .
      DATA: aux_index LIKE sy-index.
      DATA: count_haz_sym, position TYPE n, zw TYPE p DECIMALS 1.
      DATA: aux_value(5) TYPE c.
      DATA: txt(10) TYPE c, pos(5) TYPE c.
      t001w-werks = r_werks.
      t001w-name1 = r_name1.
      PERFORM read_address.
    *2
      SELECT SINGLE * FROM ekpo WHERE ebeln = mseg-ebeln
                                  AND ebelp = mseg-ebelp.
      CLEAR mara-stoff.
      SELECT SINGLE stoff INTO mara-stoff FROM mara WHERE matnr = mseg-matnr.
      IF NOT mara-stoff IS INITIAL.
        CLEAR t300.
        SELECT SINGLE * FROM t300 WHERE lgnum = mseg-lgnum.
        IF NOT sy-subrc IS INITIAL.
      for plants without warehouses try to use the country code
          CASE mseg-werks.
            WHEN 'BUP'.
              t300-regkz := 'US '.
          ENDCASE.
        ENDIF.
        CLEAR mgef.
        SELECT SINGLE * FROM mgef WHERE stoff = mara-stoff
                                  AND   regkz = t300-regkz.
      ENDIF.
    in case of more then one label, use for each a new output window
    (not only for the first)
      IF g_count > 1.
        CALL FUNCTION 'CONTROL_FORM'
          EXPORTING
            command = 'NEW-WINDOW'.
      ENDIF.
    Ausgabe Gefahrstoffsysmbole        Neustadt,  V.Hilgert  14.07.98
    *For output type YNL7, the hazardous warning symbol has to be printed at  the bottom of the label.So label is called before that.
      IF tnapr-kschl = 'YNL7'.
        CALL FUNCTION 'WRITE_FORM'
          EXPORTING
            element = 'LABEL'.
      ENDIF.
      count_haz_sym = 0. position = 0.
      WHILE count_haz_sym  = 'XN'.
    For output type YNL7, the width of the standard text is small.
          IF tnapr-kschl = 'YNL7'.
            zw = position * '0.2' + '0.1'. pos = zw.
          ELSE.
            zw = position * '1.3' + '0.1'. pos = zw.
          ENDIF.
          IF tsp03d-patype = 'YZZX_ZEB'. " device type for ZEBRA label priter
            aux_value := count_haz_sym.
          ELSE.
            aux_value := pos.              " HP/Kyocera or other laser printer
          ENDIF.
          CALL FUNCTION 'TEXT_SYMBOL_SETVALUE'
            EXPORTING
              name   = '&XPOS&'
              value  = aux_value
            EXCEPTIONS
              OTHERS = 1.
          CALL FUNCTION 'WRITE_FORM'
            EXPORTING
              element   =
              window    = 'MAIN'
            EXCEPTIONS
              element   = 1
              function  = 2
              type      = 3
              unopened  = 4
              unstarted = 5
              window    = 6
              OTHERS    = 7.
          IF sy-subrc = 0.
    *Varying the position for YNL7
            IF tnapr-kschl = 'YNL7'.
              position = position + 2.
            ELSE.
              position = position + 1.
            ENDIF.
          ENDIF.
        ENDIF.
      ENDWHILE.
      IF NOT mseg-vfdat IS INITIAL.
        am07m-mhtxt = text-105.
      ENDIF.
      IF NOT am07m-mhdat IS INITIAL.
        am07m-mhztx = text-106.
      ENDIF.
      IF ekko-bsart = 'UB'.
        am07m-litxt = text-101.
        am07m-libzg = ekko-reswk.
      ELSE.
        am07m-litxt = text-100.
        am07m-libzg = ekko-lifnr.
      ENDIF.
      belpos-mblnr = mkpf-mblnr.
      belpos-zeile = mseg-zeile.
      CONDENSE belpos NO-GAPS.
      am07m-belpos = belpos.
      IF t156-shkzg = h.
        am07m-hdlne = text-020.
      ELSE.
        am07m-hdlne = text-010.
      ENDIF.
    Ausgabe der Etiketten mit den ind. Mengen
      IF NOT g_flag_popup IS INITIAL.
        SELECT SINGLE * FROM yzzm_gr_quantity WHERE ebeln = mseg-ebeln
                                              AND   weanz = g_count.
      ELSE.
    * print the number of labels is handeled by the Zebra printer
    IF tsp03d-patype = 'YZZX_ZEB'. " device type for Zebra label prts
    g_lbls_tot := mseg-weanz - g_count + 1.
    g_break_print := x.
    ENDIF.
    ENDIF.
    mseg-erfmg := yzzm_gr_quantity-erfmg.*
    ********26.09.2007 Starts
    CONCATENATE mseg-mblnr mseg-mjahr mseg-zeile INTO l_objky.
    SELECT SINGLE vstat INTO l_vstat FROM nast WHERE kappl = 'ME' AND
    objky = l_objky AND
    kschl = 'YNL7'.
    ********26.09.2007 Ends
    CALL FUNCTION 'TEXT_SYMBOL_SETVALUE'
    EXPORTING
    name = '&nummer&'
    value = g_count.
    IF tnapr-kschl <> 'YNL7'.
    CALL FUNCTION 'WRITE_FORM'
    EXPORTING
    element = 'LABEL'.
    else.
    CALL FUNCTION 'WRITE_FORM'
    EXPORTING
    ELEMENT = 'BAR_CODE'
    EXCEPTIONS
    ELEMENT = 1
    FUNCTION = 2
    TYPE = 3
    UNOPENED = 4
    UNSTARTED = 5
    WINDOW = 6
    BAD_PAGEFORMAT_FOR_PRINT = 7
    SPOOL_ERROR = 8
    CODEPAGE = 9
    OTHERS = 10.
    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.
    ENDFORM.                    "GR_label_print
    *&      Form  lesen
          text
         -->OBJKY      text
    FORM lesen USING objky.
      nast_key = objky.
      CLEAR retco.
      SELECT SINGLE * FROM mkpf WHERE mblnr = nast_key-mblnr
                                AND   mjahr = nast_key-mjahr.
      SELECT SINGLE * FROM mseg WHERE mblnr = mkpf-mblnr
                                AND   zeile = nast_key-zeile
                                AND   mjahr = mkpf-mjahr.
      IF sy-subrc NE 0.
        retco = sy-subrc.
        EXIT.
      ENDIF.
      PERFORM tab156_lesen.
      xskkz = t156-rstyp.
      PERFORM tab001w_lesen.
      IF NOT mseg-evers IS INITIAL.         "Versandvorschriften lesen.
        PERFORM t027_lesen.
      ENDIF.
      PERFORM bestellung_lesen.
      IF NOT ekpo-knttp IS INITIAL AND NOT
             ekpo-weunb IS INITIAL.
        PERFORM kontierung_lesen.           "für multikontierte Bestellungen
      ENDIF.
      IF NOT mseg-ematn IS INITIAL.
        PERFORM lesen_htn.
      ELSE.                                                     "111277/PH
        CLEAR am07m-mfrpn.                                      "111277/PH
      ENDIF.
      IF mseg-matnr IS INITIAL.
        mseg-menge = mseg-bpmng.
        mseg-meins = mseg-bprme.
        PERFORM bestelltext_lesen.
        CLEAR mabdr.
      ELSE.
        PERFORM material_lesen.
      ENDIF.
      PERFORM tab024_lesen.
      PERFORM t064b_lesen.
      PERFORM ladr_lesen.
    ENDFORM.                    "lesen
    Lesen für WE-Schein Fert.Auftrag -
    FORM lesen_wf USING objky.
      nast_key = objky.
      CLEAR retco.
      SELECT SINGLE * FROM mkpf WHERE mblnr = nast_key-mblnr
                                AND   mjahr = nast_key-mjahr.
      SELECT SINGLE * FROM mseg WHERE mblnr = mkpf-mblnr
                                AND   zeile = nast_key-zeile
                                AND   mjahr = mkpf-mjahr.
      IF sy-subrc NE 0.
        retco = sy-subrc.
        EXIT.
      ENDIF.
      PERFORM tab156_lesen.
      xskkz = t156-rstyp.
      PERFORM tab001w_lesen.
      PERFORM auftrag_lesen.
      IF NOT mseg-matnr IS INITIAL.
        PERFORM material_lesen.
      ELSE.
        mseg-menge = mseg-erfmg.
        mseg-meins = mseg-erfme.
      ENDIF.
      PERFORM tab024d_lesen.
      PERFORM t064b_lesen.
      PERFORM ladr_lesen.
    ENDFORM.                    "lesen_wf
    Lesen für Warenausgang -
    FORM lesen_wa USING objky.
      nast_key = objky.
      CLEAR retco.
      SELECT SINGLE * FROM mkpf WHERE mblnr = nast_key-mblnr
                                AND   mjahr = nast_key-mjahr.
      SELECT SINGLE * FROM mseg WHERE mblnr = mkpf-mblnr
                                AND   zeile = nast_key-zeile
                                AND   mjahr = mkpf-mjahr.
      IF sy-subrc NE 0.
        retco = sy-subrc.
        EXIT.
      ENDIF.
      PERFORM tab156_lesen.
      xskkz = t156-rstyp.
      PERFORM tab001w_lesen.
      IF NOT mseg-matnr IS INITIAL.
        PERFORM material_lesen.
      ENDIF.
      PERFORM ladr_lesen.
    ENDFORM.                    "lesen_wa
    Druck Vorbereiten -
    FORM open_form.
      PERFORM itcpo_fuellen.
      CALL FUNCTION 'OPEN_FORM'
        EXPORTING
          device   = 'PRINTER'
          language = language
          OPTIONS  = itcpo
          dialog   = ' '.
      PERFORM lesen_t159p.
      x_open = x.
    ENDFORM.                    "open_form
    Druck Vorbereiten Sammelscheine -
    FORM open_form_sammel.
      PERFORM lesen_t159p.
      PERFORM itcpo_fuellen.
      CALL FUNCTION 'OPEN_FORM'
        EXPORTING
          device   = 'PRINTER'
          language = language
          OPTIONS  = itcpo
          form     = tnapr-fonam
          dialog   = ' '.
      x_open = x.
    ENDFORM.                    "open_form_sammel
    Druck schließen -
    FORM close_form.
      CHECK NOT x_open IS INITIAL.
      CALL FUNCTION 'CLOSE_FORM'.
      CLEAR x_open.
    ENDFORM.                    "close_form
    Hilfsfelder versorgen für Sammelscheindruck -
    FORM helpdata1.
       *mkpf = mkpf.
       *mseg-lgort = mseg-lgort.
       *ladr = ladr.
      save_mkpf = *mkpf-usnam.
      save_mblnr = *mkpf-mblnr.
      save_budat = *mkpf-budat.
      save_cpudt = *mkpf-cpudt.
      save_ematn = *mseg-ematn.
      save_lgort = *mseg-lgort.
      save_ladr = *ladr.
       *t001w = t001w.
      save_werks = *t001w-werks.
      save_name1 = *t001w-name1.
       *ekko = ekko.
       *am07m = am07m.
      save_lifnr = *ekko-lifnr.
      save_ebeln = *ekko-ebeln.
      save_ekgrp = *ekko-ekgrp.
      save_linam = *am07m-name1.
      save_lina2 = *am07m-name2.
       *t024 = t024.
      save_eknam = *t024-eknam.
      save_ektel = *t024-ektel.
       *mkpf-usnam = old_mkpf.
       *mkpf-mblnr = old_mblnr.
       *mkpf-cpudt = old_cpudt.
       *mkpf-budat = old_budat.
       *mseg-ematn = old_ematn.
       *mseg-lgort = old_lgort.
       *ladr = old_ladr.
       *t001w-werks = old_werks.
       *t001w-name1 = old_name1.
       *t024-eknam = old_eknam.
       *t024-ektel = old_ektel.
       *ekko-lifnr = old_lifnr.
       *ekko-ebeln = old_ebeln.
       *ekko-ekgrp = old_ekgrp.
       *am07m-name1 = old_linam.
       *am07m-name2 = old_lina2.
      save_lfa1  = lfa1.
      IF NOT old_lfa1 IS INITIAL.
        lfa1  = old_lfa1.
      ENDIF.
    ENDFORM.                                                    "helpdata1
    --- Versorgung der Hilfsfelder vor CLOSE_FORM bei Sammelscheindruck --
    FORM helpdata2.
      old_lfa1 = save_lfa1.
      lfa1     = save_lfa1.
      old_mkpf = save_mkpf.
      old_lgort = save_lgort.
      old_ladr = save_ladr.
      old_budat = save_budat.
      old_cpudt = save_cpudt.
      old_werks = save_werks.
      old_name1 = save_name1.
      old_mblnr = save_mblnr.
      old_lifnr = save_lifnr.
      old_linam = save_linam.
      old_lina2 = save_lina2.
      old_ebeln = save_ebeln.
      old_ekgrp = save_ekgrp.
      old_eknam = save_eknam.
      old_ektel = save_ektel.
      old_ematn = save_ematn.
       *mkpf-usnam = save_mkpf.
       *mkpf-mblnr = save_mblnr.
       *mkpf-budat = save_budat.
       *mkpf-cpudt = save_cpudt.
       *mseg-ematn = save_ematn.
       *mseg-lgort = save_lgort.
       *ladr = save_ladr.
       *t001w-werks = save_werks.
       *t001w-name1 = save_name1.
       *t024-eknam  = save_eknam.
       *t024-ektel  = save_ektel.
       *ekko-lifnr  = save_lifnr.
       *ekko-ebeln  = save_ebeln.
       *ekko-ekgrp  = save_ekgrp.
       *am07m-name1 = save_linam.
       *am07m-name2 = save_lina2.
    ENDFORM.                                                    "helpdata2
    Form Lesen Warenausgang Lohnbearbeiter -
    FORM lesen_wlb USING objky.
      nast_key = objky.
      CLEAR retco.
      SELECT SINGLE * FROM mkpf WHERE mblnr = nast_key-mblnr
                                AND   mjahr = nast_key-mjahr.
      SELECT SINGLE * FROM mseg WHERE mblnr = mkpf-mblnr
                                AND   zeile = nast_key-zeile
                                AND   mjahr = mkpf-mjahr.
      IF sy-subrc NE 0.
        retco = sy-subrc.
        EXIT.
      ENDIF.
      PERFORM tab156_lesen.
      xskkz = t156-rstyp.
      PERFORM tab001w_lesen.
      IF NOT mseg-matnr IS INITIAL.
        PERFORM material_lesen.
      ENDIF.
      ON CHANGE OF mseg-lifnr.
        PERFORM read_address.
      ENDON.
    ENDFORM.                    "lesen_wlb
    *eject
    Fuellen der ITCPO -
    FORM itcpo_fuellen.
      IF xscreen NE space.
    *- Testausgabe auf Bildschirm -
        itcpo-tdpreview = 'X'.
        itcpo-tdnoprint = 'X'.
      ELSE.
        CLEAR: itcpo-tdpreview,
               itcpo-tdnoprint.
      ENDIF.
      MOVE-CORRESPONDING nast TO itcpo.
      itcpo-tdcover   = nast-tdocover.
      itcpo-tddest    = nast-ldest.
      itcpo-tddataset = nast-dsnam.
      itcpo-tdsuffix1 = nast-dsuf1.
      itcpo-tdsuffix2 = nast-dsuf2.
      itcpo-tdimmed   = nast-dimme.
      itcpo-tddelete  = nast-delet.
      itcpo-tdcopies  = nast-anzal.
      itcpo-tdprogram = sy-repid.
    ITCPO-TDTELELAND = US_COUNTRY.
      itcpo-tdsenddate = nast-vsdat.
      itcpo-tdsendtime = nast-vsura.
      itcpo-tdnewid   = x.
    ENDFORM.                    "itcpo_fuellen
    *eject.
    ------------ FORM lesen der Lagerortadr. ---------------------------*
    FORM ladr_lesen.
      DATA:    BEGIN OF addr_sel.
              INCLUDE STRUCTURE addr1_sel.
      DATA:    END OF addr_sel.
      CLEAR ladr.
      SELECT SINGLE * FROM twlad WHERE werks = mseg-werks
                           AND  lgort = mseg-lgort
                           AND  lfdnr = '001'.
      IF NOT twlad-adrnr IS INITIAL AND sy-subrc IS INITIAL.
        MOVE twlad-adrnr TO addr_sel-addrnumber.
      ENDIF.
      CALL FUNCTION 'ADDR_GET'
        EXPORTING
          address_selection = addr_sel
        IMPORTING
          sadr              = ladr
        EXCEPTIONS
          OTHERS            = 1.
    ENDFORM.                    "ladr_lesen
    **&      Form  REPRINT
          text
    *FORM reprint.
    TABLES : nase.
    DATA  : x TYPE string.
    IF nase-vermo = 2.
       x = 'REPRINT'.
    ENDIF.
    *ENDFORM.                    "REPRINT
    Kindly do the needful.
    Thanks in advance
    Regards
    Swarna

    Hi Swarna,
    CALL FUNCTION 'OPEN_FORM'
    EXPORTING
    device = 'PRINTER'
    language = language
    OPTIONS = print_infos
    <b>form = tnapr-fonam</b>
    dialog = ' '.
    x_open := x.
    I thing its not a good way to pass the Form name to the Parameter.
    Try like,
    data : temp_form like tnapr-fonam.
    <b>form = temp_form</b>
    Thanks.

  • Can't open "special characters" in any Edit menu; have a constantly flashing empty window labelled 'characters' that i can't stop. window flashes then disappears every time i click on anything.  any suggestions? tru thanx !

    i can't open "special characters" in any Edit pull down menu.  i have a constantly flashing empty window labelled 'characters' that i haven't been able to stop.
    it appears every time i click on anything.  any suggestions?  tru thanx

    I, too, have found Bridge very unstable. I find this to be extremely disappointing, seeing as it's literally the most expensive piece of software I've ever purchased for personal use. I've seen these two symptoms:
    1. When running in full screen mode, Bridge crashes periodically. This happened on Vista, so I blamed Vista (of course), but even after regressing to XP SP2, I see the same symptoms.
    2. Although I didn't see this on Vista, running on XP I see the problem described earlier in this thread, where clicking on a thumbnail displays the wrong image preview. When this happens the image displayed is one from a different folder! I solve the problem by clearing the cache, and it's OK for a while, but the problem keeps returning.
    3. Even when exiting cleanly from Bridge (using File->Exit), Bridge often forgets where I was working in my previous session. I need to re-navigate from the very top level directory down through the hierarchy to my photo directory.
    Again, it's very disappointing to invest so much in a single software package only to see such basic operations malfunction.

  • SAPSCRIPT problem in printing on Dot Matrix Printer

    Hi!
    I have a SAPSCRIPT Form with page format INCH12. The SAPSCRIPT output is displayed properly in print preview. But when it is sent for printing on the Dot matrix printer the first three lines of the second page are printed on the first page at the bottom. Paper size is also 12INCH. I tried adjusting all the windows and putting blank lines. I also gave /: NEW-PAGE command. But it did not solve the problem.
    I am not able to identify where exactly the problem is? Is it in the SAPSCRIPT or in printer settings.
    If anyone had faced similar problem and was able to solve it then please reply.

    Hi
    if it is possible try to print the same in another printer and confirm the problem
    no doubt certain printers may create such problems while printing the output
    so to confirm the problem try with other printer.
    Reward points for useful Answers
    Regards
    Anji

  • CR2008 SP5 Labels not printing correctly

    Hi,
    I've got an issue were labels are not printing correctly to a Zebra printer. I'm using Crystal Reports 2008 SP5. The problem is the width is 10cm and the length is 7.5cm but Crystal is automatically changing this to landscape orientation which doesn't print correctly then. From reading older threads, a lot of people have had similar issue but according to this thread - CR 2008 V 12.3.0.601 Labels will not print correctly the issue should be resolved in SP5 but it's still not printing out in the correct orientation despite the print preview looking perfect.
    I've tried checking the No Printer option and the Dissociate Formatting Page Size and Printer Paper Size option and pretty much every other option I've seen mentioned but I still cannot get the label to print in the correct orientation. Has anyone succesfully got this working?
    Thanks

    Hi Gary
    What is the version reported when in the designer you go to the Help menu and then About... ?
    - Ludek
    Senior Support Engineer AGS Product Support, Global Support Center Canada
    Follow us on Twitter

  • HP 7280 all-in-one says ink cartridges are empty and will not print from PC, but it copies fine.

    Replaced 2 ink cartridges in hp 7280 but still says both cartridges are empty and will not print from PC, but it will copy fine.  When I try to print I get a error box that says "Ink cartridges empty - replace black and yellow ink cartridges to continue."  They are brand new - just bought them - expiration date Sep 2015.  Have tried rebooting and disconnecting and reconnecting everything.  Same error, but it still will do color copies fine - all cartridges are working.  Help?! 

    Hi tfmartin,
    I understand you have a Photosmart C7280 that you are unable to print to from your computer. I'm sorry to hear about this, but I will certainly do my best to assist you in resolving this issue.
    Before I can offer any suggestions I do need to know which version of Windows or Mac that you're using and how the printer is connected (wireless or USB). Once I have that information I should be able to help you better. In the meantime, if you're using Windows, please download and run the HP Print and Scan Doctor to see if it can assist with the issue at hand
    Hope to hear back from you soon! Have a great day
    Please click “Accept as Solution ” if you feel my post resolved your issue, as it will help others find the solution faster
    Click the “Kudos Thumbs Up" on the right to say “Thanks” for helping!
    **MissTeriLynn**
    I work on behalf of HP

  • Label report printing blank labels

    I have created a 1 1/7 x 3 1/2 inch label in Crystal Reports XI that is printed on a Brother QL-500 label printer.  When I test the label from the CRXI application, it prints fine.  But, when I print from Internet Explorer it prints out the correct label, followed by 3 blank ones.  I checked to be sure that no fields are outside the printable range and have resized and hidden the sections not being used.  Any idea what could be causing this?

    The label is being printed from a web-based software called WinLIMS.  It uses a SQL database to look up the data and fills it into the label and prints it.  All of the fields are within the printable area (as far as I can tell anyway).  Here is a link to a screenshot of the label:
    [http://postimage.org/image/198aoxyn8/|http://postimage.org/image/198aoxyn8/]

  • SAPScript Form - Check Print

    Hi. I am trying to create SAPScript Form to print checks and need your help.
    I am very new to the SAPscript, so I have one general question and one specific question.
    1. Is there a really good tutorial for creating a check form?
    2. Currently, AP in our company uses two checks per legal paper.
       Do you know how/what format I need to set up page format to print two checks at a time in one paper?
    Thank you in advance.
    John

    Thank you, but I am little confused.
    Let me try to explain little more detail of my need.
    We have legal size paper containing two blank checks and space to write invoice items below each check.
    If open item has one check to write, just print one check.
    If invoice items goes over length of space allowed, void next check and continue with invoice items.
    If it needs to print two or more checks,
    print first check, print invoice items, print second check (on same legal paper) and invoice items.
    Go to next legal size paper and print third check, etc...
    How do I set up to print second check on same paper below contining to next paper?
    What page format do I need to use?
    I hope this clarifies my need.
    Thanks.
    John

  • How to make address labels to print

    I'm trying to create labels to use on the back of photos.  I am using Avery 18160 style labels to print on.
    Thank you.

    charlotteontheroad wrote:
    (how to make address labels to print) I'm trying to create labels to use on the back of photos.  I am using Avery 18160 style labels to print on.
    Thank you.
    What are you trying ask exactly? Avery 18160 is listed as inkjet labels so obviously you need an inkjet printer.  Then you use whatever software you want that has label templates.  For example, Microsoft Word or iWorks Pages.  Those aren't the only way to make lables, but are the most common.

  • Bar code (escaping 3 label and printing 4th one)

    Dear All,
    i m printing bar-code from bar code printer (zebra)..problem is that printing is fine but is escaping 3 label then printing 4th one.can any tell me how to do page format so that it can't escape any label.Right noe i m using DINA4..plz suggest me..
    Thanx

    closed

  • My pix are hidden behind an empty Album label I created in error. How do I delete the empty 'Album' label which is covering "Camera Roll" so I can access my pix?

    My pix on my iPhone are hidden behind an empty 'Album' label I created in error. This label is covering 'Camera Roll' and preventing me from accessing my pix. How do I delete the 'Album' label (or maybe better, use it correctly?) so I can access my pix?  Thanks!

    Try this instead:
    Drive Partition and Format
    1. Open Disk Utility in your Utilities folder.
    2. Select the backup volume from the left side list. Click on the Erase tab in the DU main window.
    3. Set the format type to Mac OS Extended (Journaled.)
    4. Click on the Erase button.
    You will need to reconfigure Time Machine preferences for the backup.
    FYI: Never remove Time Machine backup data except through the Time Machine application. If you aren't sure about using Time Machine then visit Pondini's Time Machine FAQ for help with all things related to Time Machine.

  • I want to make address labels and print them out. Does anybody know of a word processing program for Mac that would do this?

    I want to make address labels and print them out. Does anybody know of a word processing program for Mac to accomplish this?

    Have you looked at the previous discussions listed on the right side of this page under the heading "More Like This"?

  • Sapscript label prints - problem with high print quantity

    Hello,
    we are printing labels out of deliveries using sapscript.
    To allow print copies, I have set the DIALOG to 'X' on the function call for OPEN_FORM (see below).
    We usually print 1 copy for each label. It is working fine for low quantities like for example we print out five labels with a copy for each label.
    But for higher quantities, for example 25 labels with a copy for each label, it is still printing out all labels, but on the copy labels, certain information are just missing. Strange thing is, the missing information all have different source tables or text fields. For example the date of the delivery is not showing up, then our part number or the shop order number entered as text field on item level of the delivery.
    Is there any setting that could cause this issue? Any other suggestions?
    Thanks
    Anne
    CALL FUNCTION 'OPEN_FORM'
       EXPORTING
          FORM           = TNAPR-FONAM
         LANGUAGE       = NAST-SPRAS
          OPTIONS        = ITCPO
          ARCHIVE_INDEX  = TOA_DARA
          ARCHIVE_PARAMS = ARC_PARAMS
         DEVICE         = XDEVICE
    DIALOG         = 'X'*
       EXCEPTIONS
          OTHERS         = 1.
    Edited by: Anne on Mar 12, 2010 3:39 PM

    Probably a bug in your code, we can't help. Only option is to debug!

  • SapScript: labels or many pages on one sheet

    Hello,
    I have the requirement to print four labels on one A4 sheet. Matrix 2x2.
    Can it be done with sapscript or do I need to use smarforms?
    I thought of designing the layout for just one label, and then printing four pages on one sheet, but dont know how to do it?
    Any help appreciated,
    Thanks.

    Hi,
    Better way is to go with smart form. You can design the templet with 2 rows and 2 coloums in the Main window with one page.
    You can easily draw the borders, alignment etc..
    That makes your work more easy compare to the Script.

  • SAPScript Image not printing

    Hi all,
    In SAPScript I can see an image in the print preview, but when i print it is not printing from spool, other text parts are printing.
    Please help me in solving this.
    Thanks

    Hi,
    It should print from spool. Please check the spool whether the image is there or not.
    Regards,
    Teddy Kurniawan

Maybe you are looking for

  • Can i use ANY external CD/DVD drive with the NEW mac mini?

    We just got the newest Mac Mini and want to get an external drive for importing and burning CD's and DVD's. Can we use ANY external CD/DVD drive or do we NEED to use the "Apple MacBook Air SuperDrive." Thanks Eliot

  • Returns, Credit Memo, Credit Memo Request

    Hi All, Can anybody clear my doubts for the below mentioned and i would require the process flow please with Transactions and Order Type, Billing Type etc. •Booking goods returned •Credit note with stock receipt •Credit note without stock receipt •Va

  • How to cancel the second ATP after changing the delivery date in the SO

    Hello, our solution creates automaticly a production order accorting to sales order. The system calcule ATP for each items at the creation of the sale order. Sometime, we change the delivery date on the scheduled line and SAP do another ATP. If the c

  • Accessing shares on CentOS server

    Since the 10.6.5 update, we are seeing some issues writing and deleting files to share(s) on our CentOS server. We can log on, see the share, browse and read and write. If we remove a file, in this case an index.html file, and try to place a file by

  • My iphoto is missing and i can't find my installer disc

    My iphoto is missing and i can't find my installer disc. Help me please.