Adobe Label Zebra Printer SSCC Barcode

Urgently require help.
We have developed a SSCC EAN-128 barcode label using the Adobe Form Designer, and are having difficulties getting the barcode to look right on the printed label.
The barcode needs to be 78mm width by 38mm high as a minimum. It is printing out as 40mm width by 36 high.
Also the barcode number needs to be imbedded at the bottom of the label, and it is appearing above the barcode when printed.
A print preview of the label is perfect, exactly how we require the label.
The printer is defined as follows:
Device Type: PDF1: PDF ISO Latin-1
Device Class: Standard printer
Host Spool Access Method: C Direct Operating System Call
Host Printer:
xxxx\warehouse
Host Name: ????
Query status through polling: disabled
Printer is a Zebra Label Printer
As far as we can tell the xdc file created by sap to send the output to the printer needs to be modified.
Guidenance/Advice welcome.

Hi David,
I feel that your query sounds very much like a good case for a customer message rather than a forum post in SDN.
Firstly, I think you need to change the device type to either AZPL203 or AZPL300. For more information, see the SAP Help Portal at http://help.sap.com/saphelp_nw04s/helpdata/en/08/2259400d9d1059e10000000a155106/frameset.htm
If you also think that the XDC file needs to be adapted, please have a look at SAP Note 766410 (and the document mentioned therein) to see what kind of changes to these files are possible and supported.
Best regards,
Markus Meisl
SAP NetWeaver Product Management

Similar Messages

Adobe and Zebra printer

Hello All,
I have two questions on this topic:
Has anyone use Adobe forms and print a label using zebra printer? Currently we are using smartforms and we have to send command to rotate the text in the label. Will the Adobe forms works without the need of sending rotate command?
Also, would like to check on how to utilize different printer fonts that is available in zebra printer. In smartforms, only Helvetica font is supported and if you need additional fonts, you need to create a print control for it. By using Adobe forms, I'm hoping there is an easy way to do this. I read some documentation that in order to add the fonts, we need to put the font file in a certain directory and that's it. I'm not sure if this also valid for zebra printer.
Any info would be appreciated. I'm trying to make a case that by going to Adobe form at least for printing solution/non interactive forms, will help the form programmer to expedite the form design compared to smartforms especially when dealing with zebra printer.
Thanks in Advance

Hi Bill,
yes it works - we use it productive for half an year to print barcodes and so on...it works good, if you have configured it well...i will try to give you some helpful hints:
1. If ADS is not configured yet in your installation use the guide "Adobe Document Services Configuration for SAP NetWeaver 7.0"
2. read SAP Note 685571 - it describes how to install the xdc file for Zebra Printers into the sap system (you have to install it on the system your sap runs - not the ads system). The appropriate device type is the AZPL203 (we tried a little bit to find this out)
3. in SPAD define a Printer, use devicetype AZPL203, if your Zebra Printer is connected via LAN (i recommend this) use the host spool access method "C - direct operating system call"
4. be sure to have a zebra printer supporting ZPL2 - for example first we tried it with Zebra TPL 282x series - it doesn´t worked - then we found out that the printer model must support ZPL2.0 for Adobe Printing, now we use a newer model the Zebra TPL 2824 PLUS with integrated LAN interface.
5. and last but not least !!! if you are using a windows printserver, you have to use the driver "ZPL TLP 2824 Plus (ZPL)"
(6. try to use the most recent patches for your ads system)
good luck - i would be glad to hear from you.
best regards
Winfried

Printing custom barcode from script

Hi Friends,
Need help.
I have created a barcode from SE73. I used it in a layout . I want to print it from Script ( With driver program) . I am getting print preview . But when I give print barcode is not coming. But the same barcode I used it in SMARTFORM. from this I am able to get preview and print. How to solve this. Please help me.

Hi,
If you are using zebra printer for Barcode printing then,
1. for scripts you will have to write barcodes in postscript format (manual coding format).
2. smartforms are higher version and are integrated with zebra printer. So there should not be any problem in converting the barcode character format and printing it.
If you are using laser printer (normal printer)
1. barcodes through character formats in scripts will not work.
2. will work with smart forms.
What is meant by manual coding???? pls help me.

SAP Script : Control Commands for printing Label (barcode) by Zebra Printer

Hello,
I would like to know the control commands in sap script for Zebra Printer. The purpose of task is to print a field in barcode format in Right Bottom of the label.
The sample code is placed below. Kindly have a look at it. The problem now i am facing is, the barcode for Customer PO is printing on the wrong place (Left Bottom, the text & barcode are overwriting). Can anyone suggest a possible way or can any one send the document for Barcode commands in SAP Script for Zebra Printer.
Sample script code:
Initialization and reset Barcode
XAMCY^XZ
Start
^XA
Barcode setup
^BY3,2.7,2.2
Set label home position
^LH
^FWN
FO385,025A0R,40,50FDPN: &VBAP-MATNR&FS
FO385,725A0R,40,50FD&VBAP-ARKTX&FS
FO385,1710A0R,40,50FDRtns: &zsntsc-contr&FS
FO345,025A0R,40,50FDService Order# &AUFK-AUFNR&FS
FO345,725A0R,40,50FDSerial# &EQUI-SERNR&FS
FO345,1710A0R,40,50FDRepair Order# &VBAP-VBELN&FS
FO245,025B3R,N,90,N,NFD&AUFK-AUFNR&FS
FO245,725B3R,N,90,N,NFD&EQUI-SERNR&FS
FO245,1710B3R,N,90,N,NFD&VBAP-VBELN&FS
FO138,1710A0R,40,35FDCustomer PO# &VBKD-BSTKD&FS
FO98,025A0R,40,50FDWrnty: &W_WARRANTY&FS
FO98,605A0R,40,50FDRoute: &W_ROUTE&FS
FO58,025A0R,40,35FDShip-to-name: &W_NAME1&FS
FO58,1325A0R,40,35FDMinor Group/Nr: &TVM5T-BEZEI&FS
FO58,1325A0R,40,35FDMinor Group/Nr: &TVM5T-BEZEI&FS
FO18,885A0R,40,35FDReported By: &QMEL-QMNAM&FS
FO18,1710B3R,N,90,N,NFD&VBKD-BSTKD&FS
^XZ
Thanks in Advance,
Ramasamy

HI
GOOD
GO THROUGH THIS
A barcode solution consists of the following:
- a barcode printer
- a barcode reader
- a mobile data collection application/program
A barcode label is a special symbology to represent human readable information such as a material number or batch number
in machine readable format.
There are different symbologies for different applications and different industries. Luckily, you need not worry to much about that as the logistics supply chain has mostly standardized on 3 of 9 and 128 barcode symbologies - which all barcode readers support and which SAP support natively in it's printing protocols.
You can print barcodes from SAP by modifying an existing output form.
Behind every output form is a print program that collects all the data and then pass it to the form. The form contains the layout as well as the font, line and paragraph formats. These forms are designed using SAPScript (a very easy but frustratingly simplistic form format language) or SmartForms that is more of a graphical form design tool.
Barcodes are nothing more than a font definition and is part of the style sheet associated with a particular SAPScript form. The most important aspect is to place a parameter in the line of the form that points to the data element that you want to represent as barcode on the form, i.e. material number. Next you need to set the font for that parameter value to one of the supported barcode symbologies.
The next part of the equation can be a bit tricky as you will need to get a printer to print that barcode font. Regular laser printers does not normally print barcode fonts, only specialized industrial printers that is specifically designed to support that protocol and that uses specialized label media and heat transfer (resin) ribbon to create the sharp image required for barcodes.
Not to fear though, there are two ways to get around this:
- You can have your IT department do some research -
most laser printers can accept a font cartridge/dimm chip (similar to computer memory), called a BarDIMM that will allow a laser printer to support the printing of barcodes.
- Secondly, you can buy software that you can upload in your SAP print Server that will convert the barcode symbology as an image that will print on a regular laser printer. I found that this option results in less sharper barcodes. This option is really if you need to convert a large quantity of printers (>10) to support barcodes.
- Thirdly, you can buy a third party software like Barcode.dll and install on your frontend PC connected to the laser printer.
Now you have a barcode printed - what next?
Well there are two options, depending on your business requirements:
- You can use an existing SAP transaction on a regular workstation and get a barcode wedge reader to hook up between the keyboard and the PC. These wedge readers comes in a wand or scanner format. There are even wireless wedge scanners available that allows you to roam a few yards from the workstation to scan a label. This approach is mostly used where you want to prevent human errors in typing in long material, batch or serial numbers in receiving or issuing of material. The problem is that it's just replacing the keyboard input and you are basically locked down in one location and have to bring all the material to that location to process.
- Another solution is to use SAPConsole transactions
or write your own ABAP Dialog programs that will fit onto a barcode enabled wireless handheld terminal and that will follow the business logic as executed on the shop floor.
These programs are highly complex exercises in industrial engineering and ergonomics because of the limited screen sizes and limited ability to accept keyboard input. The user is instructed step-by-step and only scan and push F-keys to interact with the SAP system. Scan, scan, beep, beep, enter - highly automated.
GO THROUGH THESE LINKS
http://www.sap-img.com/abap/details-information-about-sap-barcodes.htm
http://help.sap.com/saphelp_nw04/helpdata/en/68/4a0d5b74110d44b1b88d9b6aa1315b/content.htm
THANKS
MRUTYUN

UPS Maxicode in Adobe Forms - non-zebra printer

Hey guys,
I have a problem regarding printing an UPS Maxicode on a regular printer (HP Laserjet P3015) in Adobe Forms: It just won't print.
I'm using the "UPS Maxicode" object in the "barcode" library (LCD ES3, Version 10.4). After some research, I found this guide:
UPS maxicode on SAP Adobe forms - Contributor Corner - SCN Wiki
The scripting described there works great for printing the UPS Maxicode on a zebra printer - but the non-zebra printer scripting doesn't work for me.
There isn't much to find about this on google, so I hope you guys can help me. I experimented with printers, device types (i.e. PDF1) and such, but the result remains the same. What else can I try? Am I missing something?
Thanks for your time / help,
Chris

You can find some information about it in this document:
[http://www.tec-it.com/download/PDF/TBarCode6_SAPwin_Manual_EN.pdf]
See chapter 12, see also chapters: 6, 7, 8 and 11.
good luck

Problem with printing barcodes to a Zebra printer via Smartform

Hi
I am trying to create a printed label from smartforms, being directed to a zebra printer. The label must include a barcode.
Via oss notes 750002 and 750772 I have imported the LZEB2 device type.
In SE73 I have created a system bar code on the new technology.
In the smart form style, I create a character type with this barcode font.
The barcode prints okay and can be read when it has up to 10 characters.
However we need a long bar code of appoximately 22 characters.
I can find no supported barcode type which will let me write a barcode of this length
The max length in the smartform style for the barcode format is always coming up as 50mm which is too short.
I have tried with using a printer bar code prefix and suffix with the native zebra ZPI-II commands, attaching to command nodes on either side of the text node in the smart form, But this does not seem to work.
Any advice ?
Thanks

sounds like the variable containing the barcode data is too short...is it at least 22 characters long?

Zebra printing in web dynpro/Adobe

Hello,
We have zebra label print designs in place (we dont want to design using adobe designer). Now we would like to enable subcontractors to print them online using web dynpro/Portal.
1. one way I identified is send the zebra spool as a file and save it in the local disks and print it using zebra printer.
Whats the better and efficient way to approach? How everybody is doing this?. Doesnt SAP have any solutions?.
Thanks ,
Raj.

SAP Interactive Forms by Adobe comes with ABAP backend print support for Zebra label printers.
However, as with all backend printing the required output formats are placed in the spool. To my knowledge, there is no standard SAP way to make these spool-based formats available for print in a Web Dynpro application. In addition, note that in the ABAP backend SAP doesn't print from the PDF, which for these processes has only got a preview function. Depending on the scenario, printing is done from PS, PCL or ZPL through the corresponding SAP device types.
Best regards,
Markus Meisl
SAP NetWeaver Product Management

Not printing the label in the zebra printer for 4 X 7 inch size

Dear all,
Iam trying to print the barcode in the label of size 4.00 X 7.00 inche in smartforms , for which i have created a page format in SPAD with 4 x 7 inch and specified the same in Form interface and specified 4.00 x 6.00 inche in the MainWindow of smarforms,
im getting the print preview ,but it is not printing it in the printer, i checked with the zebra printer set up also and in the printing preferences i gave it as user defined.
but when i tried with page size of 4.00 x 6.00 , it is printing without any problem. but my requirement i need to print that in 4.00 x 7.00.
Can anybody guide me how to resolve this.
thanks in advance. Points assured.

sorted out by setting the SPAD - Device types
format, just added the zxxx format to this and now it is working

Logo printing on label output from Zebra printer

Hi guru, I am new to zpl command and I cannot find out how SAP is compiling the logo object and load into SAPSCRIPT. Bascially, our company is using zebra printer to print out receiving label with logo on it. There is a requirement to change the logo. What should be the steps?
The transaction I was told to use is OMCF. I can see the precompile file path/name is listed in each label text object. Something list C:\BARONER3\Logos\logo1.bmp or C:\Logos\logo2.bmp. If I need to change a new bmp file for the logo, how should I do it?
Also, is there any good documentation about BAR-ONE and ZPL command?
According to SAP help, the label design is done in BAR-ONE then the print file is downloaded as .ITF format and import into SAPscript as standard text using SO10. However, I cannot find any standard text in SO10 which have the same text ID and text name as in OMCF -> Text Object.....what is the connection between the Standard text and the OMCF text object?
Any advise on the details step to how to create a simple logo/barcode label using BAR-ONE and SAP is greatly appreciated.
Thank you.
Minami

Hi Minami,
Please check the transaction SE 78 here you can upload new logo or pic with some retriction on size compnay logo should not be a problem.Then you can change the logo.I think this link might be of use to you.I am sending you link
[SAP LOGO|Logo in sapScript;.
For SAP Barcode Documentation Please refer this SAP Library Link:
[Barcode|http://help.sap.com/saphelp_nw04/helpdata/en/68/4a0d5b74110d44b1b88d9b6aa1315b/content.htm]
Have a best day ahead.

Label printing on ZEBRA printer TLP2844 with smartform

Hi Gurus,
Requirement:
Print label on Zebra printer with smartform
1. i have created a smartform with desired layout
2. and trying to print on Zebra printer
Questions:
1. smartform is not printing on zebra printer
2. suggest me if there are any ways to print smartform on zebra printer
3. does it requires any native programming language for printing labels on zebra printer
Best Regards,
Krishna

hi Krishna,
This printer does not support ZPL2 so I thnk you cnnot use the device types like LZEB2. It should work to print via windows and a device type like SAPWIN or SWINCF.
Regards,
Aidan

Printing chinese characters on a Zebra printer using Adobe Interactive Form

Hello,
We have created an Adobe Interactive Forms in SAP with some words in English and another one in simplified chinese. We have defined a Zebra printer in SPAD with the AZPL203 driver.
When we print the form in the zebra printer some of the chinese characters are printed and some of them no.
Has anyone faced the same problem?
Thanks a lot
Miquel A. Vergara

Hi,
Welcome you post on the forum.
However, this is not the right forum for you. It is only for SAP Business One user. Please search entire forums first to find which one is more proper.
However, this issue may not be related to SAP at all. Search on the web would be better.
Thanks,
Gordon

Rotation of label using smartforms by 90 deg using zebra printer

Hi,
I am facing one problem using smartforms for label printing. Since the zebra printer which is being used requires 90 deg rotation of form for the normal smartform design. I have even tried using ZPL commands by using ^FWR command in the window attributes but the text within that window only gets rotated and each line gets overwritten on one another. Please let me know if it s possible to rotate the complete form in smartform for label printing using zebra printer.
Thanks and Regards
Anand

Hi Anand,
Check my previous thread below about this:
Re: print label landscape to zebra printer - text position wrong & overlapping
regards,
Aidan

Barcode not printing on Zebra printer

Hi All,
We are facing an issue while printing the barcode from ECC 5.0 using a smartform.
The problem is that the z program creates a spool when we click the print option but does not print the barcode in the zebra printer.Also when we try to print from spool directly it doesn't print anything.
We are on Ecc 5.0
zebra printer is Z4mplus.
Any help is appreciated and will be rewarded with points.
Thanks
Umang

Hi,
Please check with your Printer Vendor, whether it supports the Barcode font which you have used.
Also check for SAP notes. There are several sap notes on Zebra printer.
Goto www.service.sap.com
Best regards,
Prashant

How to print labels on zebra printer LP2844

Hi,
can anybody help me regarding how to print labels on zebra printer LP2844.
Thanks

Thanks for reply
I had gone thru the manuals but how to send the Escape sequence to the printer from a java program?
Any sample code for that in java will be very helpful.
Thanks.

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.

Adobe Label Zebra Printer SSCC Barcode

Similar Messages

Maybe you are looking for