Focal Point Banner


As of December 1, 2020, Focal Point is retired and repurposed as a reference repository. We value the wealth of knowledge that's been shared here over the years. You'll continue to have access to this treasure trove of knowledge, for search purposes only.

Join the TIBCO Community
TIBCO Community is a collaborative space for users to share knowledge and support one another in making the best use of TIBCO products and services. There are several TIBCO WebFOCUS resources in the community.

  • From the Home page, select Predict: WebFOCUS to view articles, questions, and trending articles.
  • Select Products from the top navigation bar, scroll, and then select the TIBCO WebFOCUS product page to view product overview, articles, and discussions.
  • Request access to the private WebFOCUS User Group (login required) to network with fellow members.

Former myibi community members should have received an email on 8/3/22 to activate their user accounts to join the community. Check your Spam folder for the email. Please get in touch with us at community@tibco.com for further assistance. Reference the community FAQ to learn more about the community.



Read-Only Read-Only Topic
Go
Search
Notify
Tools
Label
 Login/Join
 
Member
posted
Hello,

I am trying to print labels (3.5 height by 5 wide) on the letter pagesize (normal 8.5 by 11),
one after the other vertically.

Our labels are continous form (roughly, will print 3 on a page), overall this comes to 10.5 in height, the width isn't an issue. Leaving
me with .5 gap.

The problem I'm having is that the labels look fine for the first page but they keep gaining 1/16 of an inch on printing, so by the time it
gets to page two I am way off.

I've tried using pagematrix, element, matrixorder and gutter but no luck.

Any suggestions?

Thanks
Craig
 
Posts: 6 | Location: Dearborn, MI | Registered: October 24, 2006Report This Post
Platinum Member
posted Hide Post
Hi Craig,

Here's an example using the CAR file. What does this look like for you?

-**********************************************************************
SET PAGE-NUM=NOPAGE
-*
TABLE FILE CAR
PRINT
COMPUTE CNTR/I6 = CNTR + 1;
BY COUNTRY
BY CAR
BY MODEL
WHERE RECORDLIMIT EQ 8
ON TABLE HOLD AS HLD_LBLS
END
-*
DEFINE FILE HLD_LBLS
CNT/I6 = 1;
T_LINE1/A50 = '**************************************************';
T_LINE2/A50 = '* *';
T_LINE3/A50 = '* CNT: ' | EDIT(CNTR) | ' *';
T_LINE4/A50 = '* COU: ' | COUNTRY | ' *';
T_LINE5/A50 = '* CAR: ' | CAR | ' *';
T_LINE6/A50 = '* MOD: ' | MODEL | ' *';
T_LINE7/A50 = '* *';
T_LINE8/A50 = '**************************************************';
END
TABLE FILE HLD_LBLS
SUM CNT NOPRINT
SUM T_LINE1 AS ''
OVER T_LINE2 AS ''
OVER T_LINE2 AS ''
OVER T_LINE2 AS ''
OVER T_LINE2 AS ''
OVER T_LINE2 AS ''
OVER T_LINE2 AS ''
OVER T_LINE3 AS ''
OVER T_LINE4 AS ''
OVER T_LINE5 AS ''
OVER T_LINE6 AS ''
OVER T_LINE7 AS ''
OVER T_LINE7 AS ''
OVER T_LINE7 AS ''
OVER T_LINE7 AS ''
OVER T_LINE7 AS ''
OVER T_LINE7 AS ''
OVER T_LINE8 AS ''
BY CNTR NOPRINT
ON CNTR PAGE-BREAK
ON TABLE PAGE-BREAK AND SUBHEAD
" "
"FORUM898_LABELS"
"&DATE"
"# OF LABELS: "THIS IS A TEST"
"ONE...TWO...THREE"
ON TABLE SET ONLINE-FMT PDF
ON TABLE SET STYLE *
TYPE=REPORT,
UNITS=IN,
PAGESIZE='Letter',
LEFTMARGIN=0.152778,
RIGHTMARGIN=0.000000,
TOPMARGIN=0.000000,
BOTTOMMARGIN=0.000000,
ORIENTATION=PORTRAIT,
PAGEMATRIX=(1 3),
ELEMENT=(5.000000 3.500000),
GUTTER=(0.000000 0.300000),
MATRIXORDER=VERTICAL,
$
ENDSTYLE
END
-*********************************************************************

Let me know if this helps.

Jim


WF DevStu 5.2.6/WF Srv 5.2.4/Win NT 5.2
 
Posts: 118 | Location: Lincoln Nebraska | Registered: May 04, 2005Report This Post
Member
posted Hide Post
Hi Jim,

Thanks for the information.
It's still doing the same thing.

Thanks
Craig
 
Posts: 6 | Location: Dearborn, MI | Registered: October 24, 2006Report This Post
Platinum Member
posted Hide Post
Hi Craig,

Here's another example without using pdf format.

-***************************************************************
-*
SET LINES=999999
SET PAGE-NUM=NOPAGE
SET PAPER=999999
SET NODATA=' '
-*
TABLE FILE CAR
PRINT
COMPUTE CNTR/I6 = CNTR + 1;
BY COUNTRY
BY CAR
BY MODEL
WHERE RECORDLIMIT EQ 8
ON TABLE HOLD AS HLD_LBLS
END
-*
DEFINE FILE HLD_LBLS
CNT/I6 = 1;
T_LINE1/A50 = '**************************************************';
T_LINE2/A50 = '* *';
T_LINE3/A50 = '* CNT: ' | EDIT(CNTR) | ' *';
T_LINE4/A50 = '* COU: ' | COUNTRY | ' *';
T_LINE5/A50 = '* CAR: ' | CAR | ' *';
T_LINE6/A50 = '* MOD: ' | MODEL | ' *';
T_LINE7/A50 = '* *';
T_LINE8/A50 = '**************************************************';
END
-*
TABLE FILE HLD_LBLS
SUM CNT NOPRINT
SUM T_LINE1 AS ''
OVER T_LINE2 AS ''
OVER T_LINE2 AS ''
OVER T_LINE2 AS ''
OVER T_LINE2 AS ''
OVER T_LINE2 AS ''
OVER T_LINE2 AS ''
OVER T_LINE3 AS ''
OVER T_LINE4 AS ''
OVER T_LINE5 AS ''
OVER T_LINE6 AS ''
OVER T_LINE7 AS ''
OVER T_LINE7 AS ''
OVER T_LINE7 AS ''
OVER T_LINE7 AS ''
OVER T_LINE7 AS ''
OVER T_LINE7 AS ''
OVER T_LINE8 AS ''
BY CNTR SKIP-LINE NOPRINT
ON TABLE SAVE AS FORUM898 FORMAT WP
END
-****************************************************************

This creates a file named forum898.wp which is just a continuous
stream of labels. I'm not sure if this will help....but if so..great

Jim


WF DevStu 5.2.6/WF Srv 5.2.4/Win NT 5.2
 
Posts: 118 | Location: Lincoln Nebraska | Registered: May 04, 2005Report This Post
Virtuoso
posted Hide Post
I'm also having an issue with labels trying to figure out what to have set and not to just do an Avery 5260 type 3 by 10. One option on page will give me 12 instead of 10, when I do get 10 they are off allignment. I've tried fixed font, variable font, you name it. Haven't reached the magic combination.

Anyone out there have any experience developing same. I'm Trying to replace the way we currently generate them to print through our mainframe print application to distribute a pdf that can just be printed on label stoc,.


Leah
 
Posts: 1317 | Location: Council Bluffs, IA | Registered: May 24, 2004Report This Post
Platinum Member
posted Hide Post
Hi Leah,

Here's an example that worked for me. It prints five lines
at 30 charachters per line.

I'll have to admit...I've had my battles over the years with labels
and I still do.

-*****************************************************************
SET PAGE-NUM=NOPAGE
-*
TABLE FILE CAR
PRINT
COMPUTE CNTR/I6 = CNTR + 1;
BY COUNTRY
BY CAR
BY MODEL
ON TABLE HOLD AS HLD_LBLS
END
-*
DEFINE FILE HLD_LBLS
CNT/I6 = 1;
T_LINE1/A30 = '******************************';
T_LINE2/A30 = 'CNT: ' | EDIT(CNTR) | ' COU: ' | COUNTRY;
T_LINE3/A30 = 'CAR: ' | CAR;
T_LINE4/A30 = 'MOD: ' | MODEL;
T_LINE5/A30 = '******************************';
END
-*
TABLE FILE HLD_LBLS
SUM CNT NOPRINT
SUM T_LINE1 AS ''
OVER T_LINE2 AS ''
OVER T_LINE3 AS ''
OVER T_LINE4 AS ''
OVER T_LINE5 AS ''
BY CNTR NOPRINT
ON CNTR PAGE-BREAK
ON TABLE PAGE-BREAK AND SUBHEAD
" "
"FORUM899_LABELS"
"&DATE"
"# OF LABELS: "TESTING 1, 2, 3 "
ON TABLE SET ONLINE-FMT PDF
-*ON TABLE HOLD AS FORUM899 FORMAT PDF
ON TABLE SET STYLE *
TYPE=REPORT,
UNITS=IN,
PAGESIZE=LETTER,
LEFTMARGIN=0.235,
TOPMARGIN=0.320,
PAGEMATRIX=(3 10),
ELEMENT=(2.630 1.05),
GUTTER=(0.200 0),
SIZE=10,
MATRIXORDER=HORIZONTAL,
$
ENDSTYLE
END
-********************************************************************

Let me know if this helped.

Jim


WF DevStu 5.2.6/WF Srv 5.2.4/Win NT 5.2
 
Posts: 118 | Location: Lincoln Nebraska | Registered: May 04, 2005Report This Post
Virtuoso
posted Hide Post
Thanks Jim, I'll try your way and see. Such a pain sometimes. Have a great weekend.


Leah
 
Posts: 1317 | Location: Council Bluffs, IA | Registered: May 24, 2004Report This Post
Member
posted Hide Post
Hi Jim,

I tried all of your examples.
No luck, still doing the same thing.

Thanks for your help.
Craig
 
Posts: 6 | Location: Dearborn, MI | Registered: October 24, 2006Report This Post
Master
posted Hide Post
It has been a long time since I have had to do labels. I believe this worked for the Avery 3 wide and 11 down.

 TABLE FILE FCLBLA
 PRINT NAME ADDRESS ADDRESS2
    BY ZIP
    ON TABLE HOLD AS FCLBLB
 END
-*
 DEFINE FILE FCLBLA CLEAR
 END
-*
 JOIN BLANK WITH ZIP IN FCLBLB TO BLANK IN MACGYVER
-*
 DEFINE FILE FCLBLB
   BLANK/A1 WITH ZIP=' ';
   LBLCNT/I8 WITH COUNTER=LBLCNT+1;
   LBLROW/I8 WITH COUNTER=(LBLCNT/18)+1;
   NEWROW/I8 WITH COUNTER=LBLCNT-(LBLROW*18)+1;
   LBLPG/I6 WITH COUNTER=IMOD((LBLROW-1),11,'I6')+1;
   LBLLN/A40=IF COUNTER EQ 4 OR 5 OR 6 OR THEN BLANK
        ELSE IF COUNTER EQ 1 THEN NAME
        ELSE IF COUNTER EQ 2 THEN ADDRESS ELSE ADDRESS2;
   PAGELN/I6=(LBLPG-1)*6+COUNTER;
   COLNO/I2=IF (COUNTER NE 1 AND COUNTER NE 7) THEN COLNO
       ELSE IF COLNO EQ 3 THEN 1 ELSE COLNO+1;
   LBLN1/A40=IF COLNO EQ 1 THEN LBLLN ELSE ' ';
   LBLN2/A40=IF COLNO EQ 2 THEN LBLLN ELSE ' ';
   LBLN3/A40=IF COLNO EQ 3 THEN LBLLN ELSE ' ';
 END
 TABLE FILE FCLBLB
   SUM MAX.LBLN1
       MAX.LBLN2
       MAX.LBLN3
    BY LBLROW    NOPRINT
    BY LBLPG     NOPRINT
    BY COUNTER   NOPRINT
    BY PAGELN    NOPRINT
    IF COUNTER LE 6
    IF PAGELN  LT 64
    ON TABLE SAVE AS LABELS
 END
-RUN


In file FCLBLA, the NAME, ADDRESS and ADDRESS2 are all 40 characters. Zip is 5 characters. The ZIP to be printed is in ADDRESS2, this ZIP is just for sorting.

Now the labels are in a flat file that I imported into Word and printed on standard Laser labels. I think the trick is to print all the lines on the page of labels. This prints 64 lines per page. Here's the deal. Since the laser printer cannot print on the first and last line of a page (built in margin), on the physical page, the printing starts on line 2 and prints down to line 65 (64 lines).


In FOCUS since 1985. Prod WF 8.0.08 (z90/Suse Linux) DB (Oracle 11g), Self Serv, Report Caster, WebServer Intel/Linux.
 
Posts: 975 | Location: Oklahoma City | Registered: October 27, 2006Report This Post
Virtuoso
posted Hide Post
To Jim, I just realized yours was one up. Thanks Jgelona, I will try your options.


Leah
 
Posts: 1317 | Location: Council Bluffs, IA | Registered: May 24, 2004Report This Post
Member
posted Hide Post
Anybody have any suggestions for printing
on a customize form size of 8 wide x 10.5
height?

With 3 labels per page of 8 x 3.5 with
printable portion of 5 x 3.5.

Thanks
Craig
 
Posts: 6 | Location: Dearborn, MI | Registered: October 24, 2006Report This Post
Expert
posted Hide Post
Craig,

The closest you'll get to that page size is to specify PAGESIZE=EXECUTIVE in your stylesheet. The actual size is 7 x 10.5 but as its the length you want to hit (mostly) it might be worth a shot?

The only other alternative is to contact IB and request an NFR to allow customisable page sizing.

Good luck

T



In FOCUS
since 1986
WebFOCUS Server 8.2.01M, thru 8.2.07 on Windows Svr 2008 R2  
WebFOCUS App Studio 8.2.06 standalone on Windows 10 
 
Posts: 5694 | Location: United Kingdom | Registered: April 08, 2004Report This Post
Member
posted Hide Post
Hi Tony,

Thanks I changed the setting to Legal and the
paper size on the printer to 8 1/2 by 14.

This worked for me.

Thanks everyone for your help.
Craig
 
Posts: 6 | Location: Dearborn, MI | Registered: October 24, 2006Report This Post
Virtuoso
posted Hide Post
I want to let everyone know that my label problem (3 by 10 Avery 560) turned out to be that Adobe Acrobat printing was shrinking the form. I changed the adobe print to 'none' on the fit to page options and the label printed fine. Sorry a little late in posting.

Have a great weekend everyone.


Leah
 
Posts: 1317 | Location: Council Bluffs, IA | Registered: May 24, 2004Report This Post
  Powered by Social Strata  

Read-Only Read-Only Topic


Copyright © 1996-2020 Information Builders