Rotating texts in Zebra printer 105SL

The form layout is Portrait. The contens should be printed in landscape pattern.
And so, I am rotating the texts by 90 degrees.
When the texts are rotated 90 degrees using the command S_LGPL_SETUP 'LRYFWR' , the texts are rotated but the letters overlap eachother.
Message was edited by:
Raghavendra Ramachandra

Anoop,
What is the Font type you are using. Use Helve through out the form that would solve the issue

Similar Messages

How to show result in bold text and zebra-printing

Hi,
I'm trying to create a ABAP class in SE24 defining the report-results in bold text. Looked around SDN, but not found the help I need.
Plus need some help on how to print a report in "Zebra"-layout. I've already created a report with background colour in every other coloumn, but need to now how to include the Zebra-Layout on paper.
As I'm quite unexperienced, I'm hoping on a step-by-step solution.
Can anyone help me?
Thanks in advance.
@nne Therese

Hi
I am forwarding you some links the gives step by step procedure of printing layouts
Basic layout is explained in the link:
http://help.sap.com/saphelp_nw04/helpdata/en/ef/a2e9e9f88311d2b48d006094192fe3/frameset.htm
Printing layouts:
http://help.sap.com/saphelp_nw04/helpdata/en/a3/df9e38fbd7e35fe10000009b38f889/frameset.htm
additional details:
http://help.sap.com/saphelp_nw04/helpdata/en/6b/54b4b8cbfb11d2998c0000e83dd9fc/frameset.htm
kindly reward if its useful
Regards,
Naveen P

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

Problem with text printing on ZEBRA printer

Hi all,
I created a label in adobe forms to print output in ZEBRA140xi series printer. In the label I am printing Delivery number,storage bin,material number,delivery date and other details along with barcodes.
I created a header to display company name. In header I kept solid black color as background and company name in white color in foreground with Arial 8 font.
when I print the label all runtime values are printed but the header with black background only printing. The white text on the black background is not printing.
Kindly tell me what I should do to print white color text on black background in ZEBRA printer?
Note: the print is working fine with laser printer problem comes when printed on ZEBRA printer.
regards,
Suresh.

Hello,
did you find a solution? I have the same problem: print ADS forms on zebra with black background and withe text.
Regards.
Benjamin

Smart form rotate 90 degrees with Zebra printer

Hi Experts,
We are using smart form to design label which need be printed by Zebra printer, and the label need be printed in landscape. Currently we are using the Zebra command '^FWR' in smartform to rotate the field in each window, but the rotated format is very strange. Can anyone let me know how the rotate command work?
It would be highly appreicated if an rotate example can be provided.
Many thanks.
Benny.

The Zebra command ^FWR rotates each individual field by 90 degrees (clockwise). But then you'll have to adjust position of each field again for landscape output.
In ZPL II printer language is no command for rotating label by 90 degrees. The printer driver doesn't understand "orientation=LANDSCAPE".
A slightly better solution could be to define a smartform with portrait orientation. Add a "command node" in first window and enter attribute name "S_LZPL_SETUP" with value '^FWR'.
Please note that this command doesn't has an effect on barcodes. They have their own parameters for rotation. Please define these parameters in SE73 for each barcode type your're using.
Steffen

Unable to print chinese characters in Smartforms use Zebra printer

Hi,all.
My printer is Zebra ZM400 300dpi,I created a new output device 'TestDevice' and use the Lzeb3 Device type.
In my smartofrms i used the Zebra command to rotated text.Now the smartforms counld not print chinese characters but '#' instead.(style font 'ANDALE_S')
Anyone could help me....
Thanks Advance.
Andy Lee.

Hello Andy,
If you use the device type LZEBU3 with font ANDALE_S, then when you print then the SAP system
send a print control for activating the ANDALE font installed on the printer, and the text should
be outputed over this font.
When you get # during print then this means that the device type or the SAP font don't support
this character(this was the original problem), when you get a "space" then this means that the
font which is used by the printer don't support this character.
I think this can have 2 causes in your case:
1. The SAP system use the print control SF000 when you use ANDALE_S, which contains
the print control ^CI17^F8 in HEX form. This should activate the ANDALE font on your printer.
(You can find this under tr. SE73 -> Printer Fonts -> LZEBU3 -> ANDALE_S)
You should check wheter this is the correct print control. You should find on the printer an option
which list you all installed fonts, and also the print control which can be used for activating it.
Compare this print control from the printer with the above print control from the SAP system.
If you see a differnce then change the print control in the SAP system.(Before you do that please
copy the device type LZEBU3 into customer namespace, don't change the original SAP device type)
2. The font installed on the printer don't support the character which you use. Contact Zebra to confirm this, and ask for a ANDALE font which supports the character.
Best regards,
Norbert

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

Not printing...zebra printer

Hi All
I am using zebra printer TLP 2844, all the fonts are feeded in the printer.
I am printing a simple text.. but its not printing anything.
REPORT ZTEST2 .
data: x-prin(4) value 'LOCL'.
data:
t1(80) value 'A100,100,0,d,1,1,N,"Material Number"'.
do 1 times.
new-page print on
      destination x-prin
      copies '1'
      immediately 'X'
      keep in spool 'X'
      no dialog.
write: / 'O'.
write: / 'Q1217,1'.
write: / 'q811'.
write: / 'S2'.
write: / 'D6'.
write: / 'ZB'.
write: / 'JF'.
write: / 'N'.
write: / t1.
enddo.
any idea what can be the reason
cheers
AJ

Hi Pavan
As the SAP vesion is 4.6c...and they have no support package for printing using samrtforms.
but other reports, which prints the labels in the warehouse are printing the barcode labels....
and I am using the same printer........so definetly it should print.
but I dont know what mistake I am doing........
AJ

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 for smartforms

Hi
SAP version ecc6.0
I want to roate a single text on the lable by 270 degrees. I have searched this forum and came to know about including a print control. therfore for the device type lzeb2( 200 dpi print head) created a print control z270 with the following A0BFD.
description of the command
Description The ^A command specifies the font to use in a text field. ^A designates the
font for the current ^FD statement or field. The font specified by ^A is used only once for that
^FD entry. If a value for ^A is not specified again, the default ^CF font is used for the next
^FD entry.
Format ^Afo,h,w
This table identifies the parameters for this format:
Important u2022 Parameter f is required. If f is omitted it defaults to the last value of the ^CF
command.
Command Details
f = font name Accepted Values: A through Z, and 0 to 9
Any font in the printer (downloaded, EPROM, stored fonts, fonts A
through Z and 0 to 9).
o = field orientation Accepted Values:
N = normal
R = rotated 90 degrees (clockwise)
I = inverted 180 degrees
B = read from bottom up, 270 degrees
Default Value: the last accepted ^FW value or the ^FW default
^FD means field data
my questions
Do i have have to create a print control for 300 dpi printer or is there a differenet universal solution?
secondly with ^A i specify the type of font i use....i simply don't wont to be concerned with the type of font? I want to use what is used in the smartform?
thirdly the text to be printed it as the right hand side of the label so in order to see that the text gets printed i have to create
which simply exceeds the length of the label length, but it achieves the rotation and the printing is within the label itself...strange
do you guys have any alternative solution / recommendations
thanks
Sachin

correction for the below text in the thread
"thirdly the text to be printed it as the right hand side of the label so in order to see that the text gets printed i have to create
which simply exceeds the length of the label length, but it achieves the rotation and the printing is within the label itself...strange"
thirdly the text to be printed it as the right hand side of the label so in order to see that the text gets printed , i create a window
that is horizontal but exceeds the length of the lable, but usiing the aforementioned command prints the text roated by 270 degress and within the label, so the text printed is within the label.
I find it strange

Printing chinese characters in a zebra printer using SAP Interactive Forms

Hello,
We have created an Adobe Interactive Forms in SAP with transaction SFP. In this form we have used some words in English and another ones using Simplified Chinese characters . We have defined a Zebra printer in SPAD transaction using Device Type AZPL203.
We have defined an ABAP program to printout this form. When we print it in the zebra printer some of the chinese characters are printed and some of them no.
Has anyone faced the same problem?
Please if this is not the right forum, please could you adress me to the right one?
Thanks a lot
Miquel A. Vergara

Hello,
Please check if the notes below are useful.
83502 - Printing Support for Native Languages
1612051 - Foreign text printed with garbage characters
Thanks,
Ravi

How to rotate text

I was told to restate my number's problem as I want to rotate text within a single cell. This is for grade book so the column label can be hidden along with other data.

ohsster,
I was also excited by iWorks, and I was planning to adopt it and try to wean myself from Office even before Numbers was announced. I figured I'd just use the Tables within Pages to do my spreadsheet functions, since all the same calculations are available there. After a month of working in iWork, it's obvious that it would be premature to un-install Office for Mac, but I'm still determined to make the switch and I believe that Apple will address the serious issues, like the speed problem, in short order. So, I'm still excited about being closer to shaking the Microsoft dependency.
Regarding your application, I don't know how large and complicated your design is, but I encourage you to try my suggestion just to get a feel for working with references that span sheets and tables. This, to me, is much easier in Numbers than in Excel. I tried cross-sheet referencing in Excel years ago and found it too complicated, but in Numbers it is as simple as pie. You can build your second table in the same sheet as your first table if you want to keep things close together for that phase, and then just drag the new table to a new sheet when you're done with it. To make a cell in the destination table mirror the entry in the source table, simply type an = sign in the destination cell and then click on the source cell. To replicate the reference in the first destination cell across the first row, highlight that cell and drag the fill handle across the row. Then, with the filled row highlighted, drag the fill handle down the sheet to populate as many rows as you need. This whole process takes only a few seconds. Now you have a copy of the source table that can be independently formatted, labeled and printed after you move it to it's own sheet. This is the Numbers equivalent of setting a Print Area in Excel, except on steroids.
I hope you don't give up!
Jerry

White fonts on black background printing with zebra printer

Hello,
I've created a label in Adobe forms, which should be printed with a ZEBRA 220XiIII plus.In the label there is a text that should be printed in white fonts on a black background. The problem is that when I print the label, the white text is not printed, I have only a black background. The print preview is ok, and if I print the label on a laser printer it is ok too.
Does someone have any idea?
Thanks.
Benjamin

The above code i have used is to print a Maxi code Symbol.
[)>_1E01_1D96841706672_1D840_1D001_1D1Z12345675_1DUPSN_1D123X56_1D187_1D_1D1/1_1D10_1DN_1D_1DSALT LAKE CITY_1DUT_1E_04
this code is in the format:
[)>Rs Message Header
01Gs96 Transportation Data
Format Header
841706672Gs Postal Code
840Gs Country Code
001Gs Class of Service
1Z12345675Gs Tracking Number
UPSNGs SCAC
123X56Gs UPS Account Number
187Gs Julian Day of Pickup
Gs Place holder for
Shipment ID Number
1/1Gs Package n/x
10Gs Package Weight
NGs Address Validation
Gs Place holder for
SHIP TO Street Address
SALT LAKE CITYGs SHIP TO City
UTRs SHIP TO State
Eot End of Transmission
[)><RS>01<GS>96841706672<GS>840<GS>001<GS>
1Z12345675<GS>UPSN<GS>123X56<GS>187<GS>
<GS>1/1<GS>10<GS>N<GS><GS>SALT LAKE CITY<GS>
UT<RS><EOT>
My code is based on the above format that should print UPS Maxicode Symbol
but the maxi code symbol is not geeting printed. Can you help me on this.

Zebra print - clipping mask help

I'm new to Illustrator and am having trouble getting a clipping mask to work the way I want it to. I have a zebra print pattern over the top of some lettering and I want to keep the shape of the lettering while incorporating the zebra print. See my screen shot. What steps do I need to take? I tried Pathfinder and Shape Modes, but they don't come out right.
All I want is to have the lettering incorporate the zebra print without having points outside the letter shape.
Adrian

There are several ways to do this. Two options are: pattern fill or a clipping mask.
Pattern fill
Create a pattern from your zebra pattern by:
1. Setting the pattern artwork in front of a rectangle that has no stroke or fill.
2. Select the pattern AND the rectangle and drag them into the Swatch panel. A "pattern fill" swatch will be added to the panel.
3. Select your text and assign the pattern fill to the text.
This should ideally be a "seamless" pattern. You can read about that in the online help.
NOTE: If your pattern contains only the black portion of the fill (the white area is blank), you can add a second fill attribute to the text by using the Attributes panel:
1. Select the text.
2. Go to the fly-out menu on the Attributes panel and select "new fill".
3. Drag the new fill below the "Characters" in the Attributes panel.
4. Assign any color to it.
Clipping Mask
1. Set your text above the pattern, in the artboard (no need to convert it to outlines).
2. Select text and pattern and choose Menu item: Object/Clipping Mask/Make (or Cmd-7, mac or Ctl-7 pc)
3. Reselect the text and assign it a new color (objects lose their color when converted to a clipping mask, but it can be reassigned).
Hope this helps.

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.

Rotating texts in Zebra printer 105SL

Similar Messages

Maybe you are looking for