Print barcode label from sato printer

hi everybody,
i am trying to print barcode label from sato printer (CL408e) in code 128 or code 39 format. the length of my data is 32 characters and my data contains alphanumeric. but i have no printout or the printout is not proper. i think my command structure is not correct.
can you help me to solve this problem.
thanks everybody.

Hi Mohit
Look for the similar kind of thread
Printing barcode labels with SAP ECC 5.0
Regards
Sachin

Similar Messages

I just updated my Ipad 2 last night with iOS 7.04 now I can't print shipping labels from Paypal. I downloaded a different browser, Dolphin, per Paypal's suggestion. Still can not print. It says it has lost connection with the server.help!.

Hello! I updated my Ipad now I can not print USPS labels from Paypal. I used my boss' Ipad not updated and worked fine. I am dependent on my Ipad to print these labels for me. I can print anything else I want, like email or packing slips. Any thoughts? I would go back to the previous version if anyone knows how to do that.

Hello Sapo11,
To get your issue more exposure I would suggest posting it in the commercial forums since this is a commercial product. You can do this at Commercial Forums.
Thanks for your time.
Click the “Kudos Thumbs Up" at the bottom of this post to say “Thanks” for helping!
Please click “Accept as Solution ” if you feel my post solved your issue, it will help others find the solution.
W a t e r b o y 71
I work on behalf of HP

How can I print address labels from numbers spread sheet

How can I print address labels from numbers spread sheet

CAB,
The 5163 template has the following dimensional specs:
Dimensions & Info
Length: 4.00000"          Height: 2.00000"
Top Margin: 0.50000"          Bottom Margin: 0.50000"
Left Margin: 0.18000"          Right Margin: 0.18000"
Hor. Spacing (gutter): 0.14000"          Vert. Spacing (gutter): 0.00000"
Intended Use: Mailing Labels, Shipping Labels, Address Labels
There's a great vendor site with this data readily available, better than the Avery site in my opinion. But, you can get the same info in the Contacts Print dialog pane.
You can grab a template matching these dimensions from that vendor site, Copy the table after opening the Word Template in Pages and drop the into a blank Numbers Sheet.
I found that Sheet side margins of 0.15" worked better than 0.18. For some reason the table wanted to flow to the next page to the right with 0.18". Turning off the Headers and Footers and setting Top and Bottom Margins to 0.5" worked well. These adjustments are made in the Sheets Inspector.
So, that will put the template you specified into a Numbers document and you can print labels properly aligned from there. Since your problem statement is a bit lacking in detail, that's all I can offer you at this point.
Jerry

When printing mailing labels from Contacts how do I change the label size?

I want to print mutliple labels from a group in Contacts. I can print 20 labels per page but I want to print 14. I have tried every option in the pop up window but nothing lets me change the label size,

Hi 786menzies,
Welcome to the HP Support forums. I understand that your print jobs from Photosmart 5520 seems very small.
The font size is controlled by the software program that the document was created in, for example any Microsoft Word document that you send to the printer the font size would have been chosen in Microsoft Word. I've included two different documents on how to change the print settings; one for Mac and one for Windows 8. These documents will show you the process on changing print settings if not the actual steps as you may not be using one of the operating systems mentioned.
Changing Print Settings in Mac OS X
Changing Print Settings in Windows 8
Regards,
Happytohelp01
Please click on the Thumbs Up on the right to say “Thanks” for helping!
Please click “Accept as Solution ” on the post that solves your issue to help others find the solution.
I work on behalf of HP

Print HU label from Outbound delivery using output determination

Hi,
We have a business requirement to print HU labels from outbound delivery. The steps followed are
1) User executes VL02N
2) User clicks on packing
3) Material is entered to pack. HU is automatically generated.
4) After saving the delivery, output message is triggered.
Output determination is as follows
1) An Z output type is created.
2) Form entry and smartform name is assigned to this output type
Issue:
The issue is when the output message is triggered and the code in the form entry is executed, the handling unit (from nast) is not yet committed in the database. Since it is not updated in the database table, we cannot get any handling unit data to be printed.
Any inputs on how to print HU labels using output determination from outbound delivery is appreciated.
Thanks,
Sandeep

Hi Surya,
Thanks for the reply. But, my question was how to print labels from VL02N when i pack a material on this delivery.
Regards,
Sandeep

Printing a label from USPS

I can not print a label from USPS. I have downloaded adobe reader to my Mac OS X, 10.7.2. I have tried numorous times, but the label will not appear on th computer for me to print. can you help?

Lisa Morbidelli for feature specific questions about Adobe Reader I would recommend you post your inquiry to the Adobe Reader forum.

Help...trying to print address labels from an excel document. I only need info from some of the columns. Using Avery labels.

Help...I'm trying to print address labels from an existing Excel document that opens fine in Numbers. I don't want to print everything from the spreadsheet. The Avery template and site were no help. Any suggestions?

If you do not need all the excel specific items you can just write it to a spreadsheet using the write to spreadsheet file vi's.
If you want to go the excel route you will have to use active x. you can see a lot of examples on the excel board under the breakpoint forum. please post a sample of how you want your data to look and I can maybe help explain what options you have. and also oyu do not necesarily need the report generation toolkit.
Joe.
"NOTHING IS EVER EASY"

Is it possible to print mailing labels from an excel spreadsheet in Macbook pro?

How do you print mailing labels from an excel spreadsheet on a macbook pro? Is it possible. I can only find information about printing labels from your address book.

Why not ask in MacBook Pro forum, or SL, or even MS community or MacTopia.
Office 2011? pretty easy to setup mailing, just click on ribbon tab, and use the built in help.
MacBook Pro
Mail and Address book
http://www.bing.com/search?q=Excel+mailing+labels

Can i print address labels from quickbooks pro 2011?

model HP Photosmart 5510 - needing to print labels for a non-profit I volunteer for.
any info appreciated - guess I am worried as this is my first front loading printer.
thanks!

HI pitbullm0m,
Here is a link to a page that is talking about printing address labels from Quickbooks.
The first response to the question from RCManager gives the steps on how to do it.
Hopefully you are able to find this helpful.
Let us know if this helps.
If I helped you at all it would be great if you clicked the blue kudos star!
If I solved your post please mark it as solved to help others.
I'm a printer tech with HP.

I want to print file labels but the avery ap doesn't support their own file labels. Any other way to print file labels from ipad?

I want to print file labels but the avery ap doesn't support file labels, is there ant way to print file label from an ipad?

You cannot save to Dropbox from Pages natively, but there is a workaround that allows you to use the Copy to WebDAV to get things to Dropbox:
http://techinch.com/2011/02/02/integrate-dropbox-with-pages-keynote-and-numbers- on-ipad/
As to the "Send to iTunes" command "not playing ball", if you'll post specifics, perhaps someone can help you sort that out. It should be pretty straightforward.
Regards.

How to print Column Labels on each print page of an ALV report

Hi,
I have an ALV report which is of 10 print pages.
I need to print Column Labels on each print page.
How it is possible.
Plz write the solution
Narendra

Hi Narendra
try this code.
reward pts if help.
Deepanker.
*& Report ZDEMO_ALVGRID_EDIT                                          *
*& Example of a simple ALV Grid Report                                 *
*& The basic ALV grid, Enhanced to display specific fields as          *
*& editable depending on field value                                   *
REPORT ZDEMO_ALVGRID_EDIT                 .
TABLES:     ekko.
TYPE-POOLS: slis.                                 "ALV Declarations
*Data Declaration
TYPES: BEGIN OF t_ekko,
ebeln TYPE ekpo-ebeln,
ebelp TYPE ekpo-ebelp,
statu TYPE ekpo-statu,
aedat TYPE ekpo-aedat,
matnr TYPE ekpo-matnr,
menge TYPE ekpo-menge,
meins TYPE ekpo-meins,
netpr TYPE ekpo-netpr,
peinh TYPE ekpo-peinh,
field_style TYPE lvc_t_styl, "FOR DISABLE
END OF t_ekko.
DATA: it_ekko TYPE STANDARD TABLE OF t_ekko INITIAL SIZE 0,
      wa_ekko TYPE t_ekko.
*ALV data declarations
DATA: fieldcatalog TYPE slis_t_fieldcat_alv WITH HEADER LINE.
DATA: it_fieldcat TYPE lvc_t_fcat,     "slis_t_fieldcat_alv WITH HEADER LINE,
      wa_fieldcat TYPE lvc_s_fcat,
      gd_tab_group TYPE slis_t_sp_group_alv,
      gd_layout    TYPE lvc_s_layo,     "slis_layout_alv,
      gd_repid     LIKE sy-repid.
*Start-of-selection.
START-OF-SELECTION.
PERFORM data_retrieval.
PERFORM set_specific_field_attributes.
PERFORM build_fieldcatalog.
PERFORM build_layout.
PERFORM display_alv_report.
*&      Form BUILD_FIELDCATALOG
      Build Fieldcatalog for ALV Report
FORM build_fieldcatalog.
wa_fieldcat-fieldname   = 'EBELN'.
wa_fieldcat-scrtext_m   = 'Purchase Order'.
wa_fieldcat-col_pos     = 0.
wa_fieldcat-outputlen   = 10.
wa_fieldcat-emphasize   = 'X'.
wa_fieldcat-key         = 'X'.
APPEND wa_fieldcat TO it_fieldcat.
CLEAR wa_fieldcat.
wa_fieldcat-fieldname   = 'EBELP'.
wa_fieldcat-scrtext_m   = 'PO Item'.
wa_fieldcat-col_pos     = 1.
APPEND wa_fieldcat TO it_fieldcat.
CLEAR wa_fieldcat.
wa_fieldcat-fieldname   = 'STATU'.
wa_fieldcat-scrtext_m   = 'Status'.
wa_fieldcat-col_pos     = 2.
APPEND wa_fieldcat TO it_fieldcat.
CLEAR wa_fieldcat.
wa_fieldcat-fieldname   = 'AEDAT'.
wa_fieldcat-scrtext_m   = 'Item change date'.
wa_fieldcat-col_pos     = 3.
APPEND wa_fieldcat TO it_fieldcat.
CLEAR wa_fieldcat.
wa_fieldcat-fieldname   = 'MATNR'.
wa_fieldcat-scrtext_m   = 'Material Number'.
wa_fieldcat-col_pos     = 4.
APPEND wa_fieldcat TO it_fieldcat.
CLEAR wa_fieldcat.
wa_fieldcat-fieldname   = 'MENGE'.
wa_fieldcat-scrtext_m   = 'PO quantity'.
wa_fieldcat-col_pos     = 5.
APPEND wa_fieldcat TO it_fieldcat.
CLEAR wa_fieldcat.
wa_fieldcat-fieldname   = 'MEINS'.
wa_fieldcat-scrtext_m   = 'Order Unit'.
wa_fieldcat-col_pos     = 6.
APPEND wa_fieldcat TO it_fieldcat.
CLEAR wa_fieldcat.
wa_fieldcat-fieldname   = 'NETPR'.
wa_fieldcat-scrtext_m   = 'Net Price'.
wa_fieldcat-edit        = 'X'. "sets whole column to be editable
wa_fieldcat-col_pos     = 7.
wa_fieldcat-outputlen   = 15.
wa_fieldcat-datatype     = 'CURR'.
APPEND wa_fieldcat TO it_fieldcat.
CLEAR wa_fieldcat.
wa_fieldcat-fieldname   = 'PEINH'.
wa_fieldcat-scrtext_m   = 'Price Unit'.
wa_fieldcat-col_pos     = 8.
APPEND wa_fieldcat TO it_fieldcat.
CLEAR wa_fieldcat.
ENDFORM.                    " BUILD_FIELDCATALOG
*&      Form BUILD_LAYOUT
      Build layout for ALV grid report
FORM build_layout.
Set layout field for field attributes(i.e. input/output)
gd_layout-stylefname = 'FIELD_STYLE'.
gd_layout-zebra             = 'X'.
ENDFORM.                    " BUILD_LAYOUT
*&      Form DISPLAY_ALV_REPORT
      Display report using ALV grid
FORM display_alv_report.
gd_repid = sy-repid.
call function 'REUSE_ALV_GRID_DISPLAY'
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY_LVC'
       EXPORTING
            i_callback_program      = gd_repid
           i_callback_user_command = 'USER_COMMAND'
            is_layout_lvc               = gd_layout
            it_fieldcat_lvc             = it_fieldcat
            i_save                  = 'X'
       TABLES
            t_outtab                = it_ekko
       EXCEPTIONS
            program_error           = 1
            OTHERS                  = 2.
IF sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
        WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
ENDFORM.                    " DISPLAY_ALV_REPORT
*&      Form DATA_RETRIEVAL
      Retrieve data form EKPO table and populate itab it_ekko
FORM data_retrieval.
SELECT ebeln ebelp statu aedat matnr menge meins netpr peinh
   UP TO 10 ROWS
    FROM ekpo
    INTO CORRESPONDING FIELDS OF TABLE it_ekko.
ENDFORM.                    " DATA_RETRIEVAL
*&      Form set_specific_field_attributes
      populate FIELD_STYLE table with specific field attributes
form set_specific_field_attributes .
DATA ls_stylerow TYPE lvc_s_styl .
DATA lt_styletab TYPE lvc_t_styl .
Populate style variable (FIELD_STYLE) with style properties
The NETPR field/column has been set to editable in the fieldcatalog...
The following code sets it to be disabled(display only) if 'NETPR'
is gt than 10.
LOOP AT it_ekko INTO wa_ekko.
    IF wa_ekko-netpr GT 10.
      ls_stylerow-fieldname = 'NETPR' .
      ls_stylerow-style = cl_gui_alv_grid=>mc_style_disabled.
                                             "set field to disabled
      APPEND ls_stylerow TO wa_ekko-field_style.
      MODIFY it_ekko FROM wa_ekko.
    ENDIF.
ENDLOOP.
endform.                    " set_specific_field_attributes
pls reward pts is help,

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.

Printing Barcode in Dot Matrix Printer

Dear Experts,
We have developed Smart form to print Barcode and it's printing fine in LaserJet printer & readable by the scanner, We need it on Dot Matrix printer for (multiple copies) and tried the same with Dot Matrix printer it use to print but not readable with scanner.
SAP Transaction - MIGO (GI Posting)
Dot Matrix Printer - Epson DFX9000 & Oki data PACEMARK 4410
Please help me to Print Barcode in Dot Matrix printer through Smart form.

There is something I don't understand: if the barcode printed is visually correct, and exactly the same as with a laser printer, why do you want it would be better with a PDF (especially on a dot matrix printer).
Could you also tell us what symbology you use, and do you use smart form new barcode technology?

Print Prog-Auto Print Barcode Label for Goods Receipt(MIGO) using Smartform

Hi Guru's
I have created a smartform that prints barcodes on a label.
My tests print successfully to the Printronix thermal label printer.
Is there perhaps a SAP Standard print program that i can use in my output type that will call my smartform upon goods receipt(MIGO)?
please bear in mind that i am looking for a print program that calls a SMARTFORM. not a sapscript.
/SMB40/M07DR does not exist on my system. and I am going to use output type WEE1 - for LABEL Printing
Awaiting your feedback.
Thanks in advance geniuses!

Good luck dude,
In that same program I noticed We01 that will print a smartform GR. I think if you use form entry_we01 in your output control you should do well.

Printing Mailing Labels from Address Book

Stupid question, but one that is driving me crazy.
How do you print a sheet of mailing labels from Address Book but when the entire sheet of labels is the SAME label?
I can print labels successfully in address book, can select the label type and number, etc.
However, when I select a single contact, I can't find a way to print up an entire sheet of labels (e.g. 14) of all the same contact - it only prints one label of the single contact.
Please help! I know it must be a simple fix but can't find it anywhere to select as an option.

OK, weird that this morning (one day after you posted this question) I had the same question. I just want to print some return address labels for my own company. While I haven't been able to find a software based way to do it, I did think up a workable (if a bit ridiculous) hack. Copy the address you want to fill the sheet of labels with however many times there are labels on the sheet and select those however many copies and click print! I created 30 copies of my own company's address in Address Book, selected them, and printed a sheet of labels without problem. A bit dumb, but it works!
Hope that helps.

Print barcode label from sato printer

Similar Messages

Maybe you are looking for