Re: [RBASE-L] - Labels | Print page of return address labels

'Nicky Avery' via RBASE-L Tue, 07 Jan 2025 06:15:09 -0800

Happy New Year!

Bruce,

Back when dinosaurs roamed the earth (1988), there was a R:Base DOS procedure file called 3LABELS.ASC which I think was an extra for CONCOMP.

º       The 3Labels application generates 1, 2, 3, or 4-up labels from         º
º       a database and table you specify. Each label can have up to           º
º       four printed lines and can use up to three columns on each line.     º

I still have these files and could email them to you (or anyone else who cares).

Nicky

On 1/5/2025 4:59 PM, [email protected] wrote:

I seem to remember there was something like it way, way back, but I am not sure there is anything like it anymore.

It sure would be nice. I have a lot of utilities and code that I could share that would be of use to someone.

Javier,

Javier Valencia, PE

14315 S Twilight Ln

Olathe, KS 66062

913-915-3137

From: [email protected] <[email protected]> On Behalf Of Bruce Chitiea
Sent: Sunday, January 5, 2025 5:47 PM
To: [email protected]
Subject: Re[2]: [RBASE-L] - Labels | Print page of return address labels

Jim:

I wonder if there's room somewhere in the R:BASE universe to host a handy, as-is utility exchange?

Best, Bruce

------ Original Message ------

From "'jim schmitt' via RBASE-L" <[email protected]>

To "[email protected]" <[email protected]>

Date 1/5/2025 2:48:52 PM

Subject Re: [RBASE-L] - Labels | Print page of return address labels

Happy New Year to All RB users.

Hi, Javier,

I have something quite similar to you, where the user can 'pick' which label they want to start on

Has worked well for years.

Thought I would just provide a view (no pun intended) of it to compare with yours.

Regards

Ohio Software Services

Jim

1-614-361-3942

On Sunday, January 5, 2025 at 12:58:30 PM EST, <[email protected]> wrote:

Happy New Year to all as well!!!

Bruce, I used to have a report that would print labels for the Fleet Management Parts Inventory using the same or similar Avery paper. Since not all labels were used at one times and some were left unused, I had a utility that would ask where you wanted to start, say row 4, column 2, and it would pad the report with blank records, so the partial sheet could be used and no labels wasted. I will see if I can find it; users really liked it because prevented wasting labels.

Javier,

Javier Valencia, PE

14315 S Twilight Ln

Olathe, KS 66062

913-915-3137

From: [email protected] <[email protected]> On Behalf Of Bruce Chitiea
Sent: Saturday, January 4, 2025 2:08 PM
To: [email protected]
Subject: [RBASE-L] - Labels | Print page of return address labels

Happy New Year, all!

How does one print a page of 3-column by 10-row (Avery #8660) return address labels?

The Label Template provides a solid layout. I have no problem printing pages of any number of addressee labels sourced from views and temporary tables, so the basics of label creation and printing are understood. But I cannot find a 'label-replication' feature which will generate a 30-label page from a single label layout.

If I create a source table containing 30 rows of identical return address information, no problem; but that seems rather inelegant.

Thoughts?

Best to all,

Bruce A. Chitiea

SafeSectors, Inc.

1142 S Diamond Bar Blvd # 442

Diamond Bar CA 91765-2203

[email protected]

(909) 238-9012 m

--
For group guidelines, visit http://www.rbase.com/support/usersgroup_guidelines.php
---
You received this message because you are subscribed to the Google Groups "RBASE-L" group.
To unsubscribe from this group and stop receiving emails from it, send an email to [email protected].
To view this discussion visit https://groups.google.com/d/msgid/rbase-l/em1d3a2273-00de-4eaf-ae0f-8e0eeee290bf%409fb1e2be.com.

--
For group guidelines, visit http://www.rbase.com/support/usersgroup_guidelines.php
---
You received this message because you are subscribed to the Google Groups "RBASE-L" group.
To unsubscribe from this group and stop receiving emails from it, send an email to [email protected].
To view this discussion visit https://groups.google.com/d/msgid/rbase-l/13db01db5f9b%246b2ca860%244185f920%24%40vtgonline.com.

--
For group guidelines, visit http://www.rbase.com/support/usersgroup_guidelines.php
---
You received this message because you are subscribed to the Google Groups "RBASE-L" group.
To unsubscribe from this group and stop receiving emails from it, send an email to [email protected].
To view this discussion visit https://groups.google.com/d/msgid/rbase-l/1642673772.10042921.1736117332978%40mail.yahoo.com.

--
For group guidelines, visit http://www.rbase.com/support/usersgroup_guidelines.php
---
You received this message because you are subscribed to the Google Groups "RBASE-L" group.
To unsubscribe from this group and stop receiving emails from it, send an email to [email protected].
To view this discussion visit https://groups.google.com/d/msgid/rbase-l/em63c4dfba-2b82-4759-ad84-9ebf2cab93cf%4002027ecb.com.

--
For group guidelines, visit http://www.rbase.com/support/usersgroup_guidelines.php
---
You received this message because you are subscribed to the Google Groups "RBASE-L" group.
To unsubscribe from this group and stop receiving emails from it, send an email to [email protected].
To view this discussion visit https://groups.google.com/d/msgid/rbase-l/142201db5fd6%244dbd4010%24e937c030%24%40vtgonline.com.

--
For group guidelines, visit http://www.rbase.com/support/usersgroup_guidelines.php
---
You received this message because you are subscribed to the Google Groups "RBASE-L" group.
To unsubscribe from this group and stop receiving emails from it, send an email to [email protected].
To view this discussion visit https://groups.google.com/d/msgid/rbase-l/c9cea694-14d7-403b-ac83-b3a595a11809%40wwavs.com.

$COMMAND
3LABELS
SET MESSAGES OFF
SET ERROR MESSAGES OFF
SET LINES 0
CLEAR ALL VAR
SET VAR level1 INT
SET VAR level1 TO 0
WHILE level1 EQ 0  THEN
  SET VAR pick1 INT
  SET VAR pick1 TO 0
  LABEL main
  NEWPAGE
  CHOOSE pick1 FROM Main IN 3LABELS.PRO
  IF pick1 EQ 0 THEN
    BREAK
  ENDIF
  IF pick1 EQ 1 OR pick1 EQ -1 THEN
    CLS
    DISPLAY help1 IN 3LABELS.PRO
    WRITE "     Press any key to continue"
    PAUSE
  ENDIF
  IF pick1 EQ 2 THEN
    CLS
    SET VAR cond TEXT
    SET VAR lsort TEXT
    SET VAR numlin INT
    SET VAR namedb TEXT
    SET VAR nametab TEXT
    SET VAR sortby TEXT
    SET VAR wclause TEXT
    LABEL opendb
    CLS
    CHOOSE namedb FROM #DATABASE
    IF namedb EQ ESC THEN
      FILLIN namedb USING "Enter the database name (d:\path\database) "
      IF namedb FAILS THEN
        GOTO main
      ENDIF
    ENDIF
    IF namedb EQ HELP THEN
       GOTO main
    ENDIF
    SET ERROR VARIABLE dberr
    OPEN .namedb
    SET BELL OFF
    IF dberr NE 0 THEN
       BREAK
    ENDIF
    LABEL design
    CLS
    CHOOSE nametab FROM #TABLE
    IF nametab EQ ESC THEN
       GOTO opendb
    ENDIF
    IF nametab EQ HELP THEN
       GOTO main
    ENDIF
    CLS
    FILLIN numlin USING "Enter the number of lines to print per label (1-4): "
    IF numlin FAILS THEN
      GOTO main
    ENDIF
    IF numlin LT 1 OR numlin GT 4 THEN
      BEEP
      WRITE " "
      WRITE "You can print between 1 and 4 lines per label."
      FILLIN numlin USING "Enter the number of lines to print per label. "
      IF numlin LT 1 OR numlin GT 4 THEN
        BREAK
      ENDIF
    ENDIF
    SET VAR lin1v1 TEXT
    SET VAR lin1v2 TEXT
    SET VAR lin1v3 TEXT
    IF numlin GT 1 THEN
      SET VAR lin2v1 TEXT
      SET VAR lin2v2 TEXT
      SET VAR lin2v3 TEXT
      IF numlin GT 2 THEN
        SET VAR lin3v1 TEXT
        SET VAR lin3v2 TEXT
        SET VAR lin3v3 TEXT
        IF numlin GT 3 THEN
          SET VAR lin4v1 TEXT
          SET VAR lin4v2 TEXT
          SET VAR lin4v3 TEXT
        ENDIF
      ENDIF
    ENDIF
    CLS
    WRITE "LABEL FORMAT:" AT 20 1
    SET VAR format1 TO " "
    WRITE "Choose columns for LINE 1 of the label or press [ESC]" AT 1 1
    LABEL lin1v1
    CHOOSE lin1v1 FROM #COLUMN in .nametab AT 3
    IF lin1v1 EQ HELP THEN
      BEEP
      GOTO lin1v1
    ENDIF
    IF lin1v1 NE ESC THEN
      SET VAR format1 TO .lin1v1
      LABEL lin1v2
      CHOOSE lin1v2 FROM #COLUMN in .nametab AT 3
      IF lin1v2 EQ HELP THEN
        BEEP
        GOTO lin1v2
      ENDIF
      IF lin1v2 NE ESC THEN
        SET VAR format1 TO (.format1 & .lin1v2)
        LABEL lin1v3
        CHOOSE lin1v3 FROM #COLUMN in .nametab AT 3
        IF lin1v3 EQ HELP THEN
          BEEP
          GOTO lin1v3
        ENDIF
        IF lin1v3 NE ESC THEN
          SET VAR format1 TO (.format1 & .lin1v3)
        ENDIF
      ENDIF
      WRITE .format1 AT 21 1
    ENDIF
    CLS FROM 1 TO 19
    IF numlin GT 1 THEN
      SET VAR format2 TO " "
      WRITE "Choose columns for LINE 2 of the label or press [ESC]" at 1 1
      LABEL lin2v1
      CHOOSE lin2v1 FROM #COLUMN in .nametab AT 3
      IF lin2v1 EQ HELP THEN
        BEEP
        GOTO lin2v1
      ENDIF
      IF lin2v1 NE ESC THEN
        SET VAR format2 TO .lin2v1
        LABEL lin2v2
        CHOOSE lin2v2 FROM #COLUMN in .nametab AT 3
        IF lin2v2 EQ HELP THEN
          BEEP
          GOTO lin2v2
        ENDIF
        IF lin2v2 NE ESC THEN
          SET VAR format2 TO (.format2 & .lin2v2)
          LABEL lin2v3
          CHOOSE lin2v3 FROM #COLUMN in .nametab AT 3
          IF lin2v3 EQ HELP THEN
            BEEP
            GOTO lin2v3
          ENDIF
          IF lin2v3 NE ESC THEN
            SET VAR format2 TO (.format2 & .lin2v3)
          ENDIF
        ENDIF
        WRITE .format2 AT 22 1
      ENDIF
 
      CLS FROM 1 TO 19
      IF numlin GT 2 THEN
        SET VAR format3 TO " "
        WRITE "Choose columns for LINE 3 of the label or press [ESC]" AT 1 1
        LABEL lin3v1
        CHOOSE lin3v1 FROM #COLUMN in .nametab AT 3
        IF lin3v1 EQ HELP THEN
          BEEP
          GOTO lin3v1
        ENDIF
        IF lin3v1 NE ESC THEN
          SET VAR format3 TO .lin3v1
          LABEL lin3v2
          CHOOSE lin3v2 FROM #COLUMN in .nametab AT 3
          IF lin3v2 EQ HELP THEN
            BEEP
            GOTO lin3v2
          ENDIF
          IF lin3v2 NE ESC THEN
            SET VAR format3 TO (.format3 & .lin3v2)
            LABEL lin3v3
            CHOOSE lin3v3 FROM #COLUMN in .nametab AT 3
            IF lin3v3 EQ HELP THEN
              BEEP
              GOTO lin3v3
            ENDIF
            IF lin3v3 NE ESC THEN
              SET VAR format3 TO (.format3 & .lin3v3)
            ENDIF
          ENDIF
          WRITE .format3 AT 23 1
        ENDIF
        CLS FROM 1 TO 19
        IF numlin GT 3 THEN
          SET VAR format4 TO " "
          WRITE "Choose columns for LINE 4 of the label or press [ESC]" AT 1 1
          LABEL lin4v1
          CHOOSE lin4v1 FROM #COLUMN in .nametab AT 3
          IF lin4v1 EQ HELP THEN
            BEEP
            GOTO lin4v1
          ENDIF
          IF lin4v1 NE ESC THEN
            SET VAR format4 TO .lin4v1
            LABEL lin4v2
            CHOOSE lin4v2 FROM #COLUMN in .nametab AT 3
            IF lin4v2 EQ HELP THEN
              BEEP
              GOTO lin4v2
            ENDIF
            IF lin4v2 NE ESC THEN
              SET VAR format4 TO (.format4 & .lin4v2)
              LABEL lin4v3
              CHOOSE lin4v3 FROM #COLUMN in .nametab AT 3
              IF lin4v3 EQ HELP THEN
                BEEP
                GOTO lin4v3
              ENDIF
              IF lin4v3 NE ESC THEN
                SET VAR format4 TO (.format4 & .lin4v3)
              ENDIF
            ENDIF
            WRITE .format4 AT 24 1
          ENDIF
          CLS FROM 1 TO 19
        ENDIF
      ENDIF
    ENDIF
    WRITE "Enter the list of columns to sort - press [ESC] for none." AT 1 1
    FILLIN lsort USING "SORTED BY " AT 2 1
    WRITE " "
    WRITE "Enter the row selection condition  - press [ESC] for none." AT 4 1
    FILLIN cond USING "WHERE " AT 5 1
    CLS
    SET VAR pick2 INT
      NEWPAGE
      LABEL format
      CHOOSE pick2 FROM Sub1 IN 3LABELS.PRO
      IF pick2 EQ -1 THEN
       CLS
       DISPLAY help2 IN 3LABELS.PRO
       WRITE "     Press any key to continue"
       PAUSE
       CLS
       GOTO format
      ENDIF
      IF pick2 EQ 1 THEN
        SET VAR numup TO 1
        SET VAR lwidth TO 36
      ENDIF
      IF pick2 EQ 2 THEN
        SET VAR numup TO 2
        SET VAR lwidth TO 36
      ENDIF
      IF pick2 EQ 3 THEN
        SET VAR numup TO 3
        SET VAR lwidth TO 36
      ENDIF
      IF pick2 EQ 4 THEN
        SET VAR numup TO 3
        SET VAR lwidth TO 34
      ENDIF
      IF pick2 EQ 5 THEN
        SET VAR numup TO 4
        SET VAR lwidth TO 34
      ENDIF
      IF pick2 EQ 6 OR pick2 EQ 0 THEN
        GOTO endloop
      ENDIF
    CLEAR pick2
    SET VAR type TO " "
    SET VAR space TO " "
      LABEL output
      NEWPAGE
      CHOOSE type FROM Sub2 IN 3LABELS.PRO
      IF type EQ ESC THEN
        GOTO endloop
      ENDIF
      IF type EQ HELP THEN
        CLS
        DISPLAY help3 IN 3LABELS.PRO
        WRITE "     Press any key to continue"
        PAUSE
        CLS
        GOTO output
      ENDIF
      IF type EQ File THEN
        WRITE " "
        FILLIN type USING "Enter the filename (drive:\path\filename): "
      ENDIF
    SET VAR level2 INT
    SET VAR level2 TO 0
    WHILE level2 EQ 0 THEN
    NEWPAGE
      SET VAR pick3 INT
      CHOOSE pick3 FROM Sub3 IN 3LABELS.PRO
      IF pick3 EQ -1 THEN
        CLS
        DISPLAY help4 IN 3LABELS.PRO
        WRITE "     Press any key to continue"
        PAUSE
      ENDIF
      IF pick3 EQ 0 THEN
        BREAK
      ENDIF
      IF pick3 EQ 1 THEN
        RUN Verify IN 3LABELS.PRO
        SET VAR yesno TO " "
        FILLIN yesno USING "Label format ok? [Y/N] "
        IF yesno EQ "n" OR yesno EQ "N" THEN
          CLEAR lin1v1 lin1v2 lin1v3 lin2v1 lin2v2 lin2v3
          CLEAR lin3v1 lin3v2 lin3v3 lin4v1 lin4v2 lin4v3
          GOTO design
        ENDIF
      ENDIF
      IF pick3 EQ 2 THEN
        SET VAR wclause TO "WHERE LIMIT EQ .numup"
        IF cond EXISTS THEN
          SET VAR wclause to (.wclause & AND & .cond)
        ENDIF
        IF type EQ Printer THEN
          CLS
          WRITE "Position printer -- press any key to start printing" AT 2 1
          PAUSE
          CLS
        ENDIF
        RUN Prntlab IN 3LABELS.PRO
        IF type EQ Screen THEN
           BEEP
           WRITE " "
           WRITE "Press any key to continue"
           PAUSE
        ENDIF
      ENDIF
      IF pick3 EQ 3 THEN
        SET VAR wclause TO " "
        IF cond EXISTS THEN
           SET VAR wclause TO (WHERE & .cond)
        ENDIF
        RUN Prntlab IN 3LABELS.PRO
        IF type EQ Screen THEN
           BEEP
           WRITE " "
           WRITE "Press any key to continue"
           PAUSE
        ENDIF
        BREAK
      ENDIF
      IF pick3 EQ 4 THEN
        BREAk
      ENDIF
    CLEAR pick3
    ENDWHILE
    CLEAR pick2
  ENDIF
  IF pick1 EQ 3 THEN
    BREAK
  ENDIF
  LABEL endloop
  CLEAR lin1v1 lin1v2 lin1v3 lin2v1 lin2v2 lin2v3
  CLEAR lin3v1 lin3v2 lin3v3 lin4v1 lin4v2 lin4v3
  CLEAR pick1 pick2
ENDWHILE
CLEAR ALL VAR
SET MESSAGE ON
SET ERROR MESSAGE ON
SET LINES 20
SET BELL ON
RETURN
$COMMAND
VERIFY
OUTPUT SCREEN
CLS
WRITE "LABEL FORMAT"
WRITE .space
WRITE .format1
IF numlin GT 1 THEN
  WRITE .format2
  IF numlin GT 2 THEN
    WRITE .format3
    IF numlin GT 3 THEN
      WRITE .format4
    ENDIF
  ENDIF
ENDIF
WRITE .space
$COMMAND
PRNTLAB
*(INITIALIZATION)
CLS
WRITE "LABEL GENERATION IN PROGRESS - PLEASE WAIT" AT 3 15
OUTPUT .type
SET VAR maxcol TO (.numup*.lwidth)
SET VAR col TO 1
SET VAR l1 TO " "
SET VAR l2 TO " "
SET VAR l3 TO " "
SET VAR l4 TO " "
SET VAR l5 TO " "
SET VAR sortby TO " "
IF lsort EXISTS THEN
  SET VAR sortby TO ("SORTED BY" & .lsort)
ENDIF
SET POINTER #1 s1 FOR .nametab &sortby &wclause
IF type EQ Screen THEN
  CLS
ENDIF
WHILE s1 EQ 0 THEN
 SET VAR l1v1 TO " "
 SET VAR l1v2 TO " "
 SET VAR l1v3 TO " "
 SET VAR l2v1 TO " "
 SET VAR l2v2 TO " "
 SET VAR l2v3 TO " "
 SET VAR l3v1 TO " "
 SET VAR l3v2 TO " "
 SET VAR l3v3 TO " "
 SET VAR l4v1 TO " "
 SET VAR l4v2 TO " "
 SET VAR l4v3 TO " "
 IF lin1v1 EXISTS THEN
   SET VAR v11 TO .lin1v1 IN #1
   SET VAR l1v1 TO (CTXT(.v11))
   IF lin1v2 EXISTS THEN
     SET VAR v12 TO .lin1v2 IN #1
     SET VAR l1v2 TO (CTXT(.v12))
     IF lin1v3 EXISTS THEN
       SET VAR v13 TO .lin1v3 IN #1
       SET VAR l1v3 TO (CTXT(.v13))
     ENDIF
   ENDIF
 ENDIF
 IF numlin GT 1 THEN
   IF lin2v1 EXISTS THEN
     SET VAR v21 TO .lin2v1 IN #1
     SET VAR l2v1 TO (CTXT(.v21))
     IF lin2v2 EXISTS THEN
       SET VAR v22 TO .lin2v2 IN #1
       SET VAR l2v2 TO (CTXT(.v22))
       IF lin2v3 EXISTS THEN
         SET VAR v23 TO .lin2v3 in #1
         SET VAR l2v3 TO (CTXT(.v23))
       ENDIF
     ENDIF
   ENDIF
   IF numlin GT 2 THEN
     IF lin3v1 EXISTS THEN
       SET VAR v31 TO .lin3v1 IN #1
       SET VAR l3v1 TO (CTXT(.v31))
       IF lin3v2 EXISTS THEN
         SET VAR v32 TO .lin3v2 IN #1
         SET VAR l3v2 TO (CTXT(.v32))
         IF lin3v3 EXISTS THEN
           SET VAR v33 TO .lin3v3 IN #1
           SET VAR l3v3 TO (CTXT(.v33))
         ENDIF
       ENDIF
     ENDIF
     IF numlin GT 3 THEN
       IF lin4v1 EXISTS THEN
         SET VAR v41 TO .lin4v1 IN #1
         SET VAR l4v1 TO (CTXT(.v41))
         IF lin4v2 EXISTS THEN
           SET VAR v42 TO .lin4v2 IN #1
           SET VAR l4v2 TO (CTXT(.v42))
           IF lin4v3 EXISTS THEN
             SET VAR v43 TO .lin4v3 in #1
             SET VAR l4v3 TO (CTXT(.v43))
           ENDIF
         ENDIF
       ENDIF
     ENDIF
   ENDIF
 ENDIF
*()
*(Line 1 )
*()
 SET VAR lineno TO 1
 SET VAR line1 TO (.l1v1 & .l1v2 & .l1v3)
 SET VAR leng1 TO (SLEN(.line1))
 IF leng1 GT 36 THEN
   SET VAR line1 TO (SGET(.line1,.lwidth,1))
 ENDIF
 IF leng1 GT 0 OR lin1v1 EQ ESC THEN
   SET VAR l1 TO (SPUT(.l1,.line1,.col))
   SET VAR lineno TO (.lineno + 1)
 ENDIF
 SET VAR line1 TO " "
 
 IF numlin GT 1 THEN
   *()
   *( line 2 )
   *()
   SET VAR line2 TO (.l2v1 & .l2v2 & .l2v3)
   SET VAR leng2 TO (SLEN(.line2))
   IF leng2 GT 36 THEN
     SET VAR line2 TO (SGET(.line2,.lwidth,1))
   ENDIF
   IF leng2 GT 0 OR lin2v1 EQ ESC THEN
     IF lineno EQ 2 THEN
       SET VAR l2 TO (SPUT(.l2,.line2,.col))
     ELSE
       SET VAR l1 TO (SPUT(.l1,.line2,.col))
     ENDIF
     SET VAR lineno TO (.lineno + 1)
   ENDIF
   SET VAR line2 TO " "
   IF numlin GT 2 THEN
     *()
     *( Line 3 )
     *()
     SET VAR line3 TO (.l3v1 & .l3v2 & .l3v3)
     SET VAR leng3 TO (SLEN(.line3))
     IF leng3 GT 36 THEN
       SET VAR line3 TO (SGET(.line3,.lwidth,1))
     ENDIF
     IF leng3 GT 0 OR lin3v1 EQ ESC THEN
       IF lineno EQ 3 THEN
         SET VAR l3 TO (SPUT(.l3,.line3,.col))
       ELSE
         IF lineno EQ 2 THEN
           SET VAR l2 TO (SPUT(.l2,.line3,.col))
           SET VAR line3 TO " "
         ELSE
           SET VAR l1 TO (SPUT(.l1,.line3,.col))
         ENDIF
       ENDIF
       SET VAR lineno TO (.lineno + 1)
     ENDIF
     IF numlin GT 3 THEN
       *()
       *( Line 4 )
       *()
       SET VAR line4 TO (.l4v1 & .l4v2 & .l4v3)
       SET VAR leng4 TO (SLEN(.line4))
       IF leng4 GT 36 THEN
         SET VAR line4 TO (SGET(.line4,.lwidth,1))
       ENDIF
       IF leng4 GT 0 OR lin4v1 EQ ESC THEN
         IF lineno EQ 4 THEN
           SET VAR l4 TO (SPUT(.l4,.line4,.col))
         ELSE
           IF lineno EQ 3 THEN
             SET VAR l3 TO (SPUT(.l3,.line4,.col))
           ELSE
             IF lineno EQ 2 THEN
               SET VAR l2 TO (SPUT(.l2,.line4,.col))
             ELSE
               SET VAR l1 TO (SPUT(.l1,.line4,.col))
             ENDIF
           ENDIF
         ENDIF
       ENDIF
       SET VAR line4 TO " "
     ENDIF
   ENDIF
 ENDIF
 SET VAR col TO (.col + .lwidth)
 NEXT #1 s1
 IF col GTA maxcol OR s1 NE 0 THEN
  WRITE .l1
  WRITE .l2
  WRITE .l3
  WRITE .l4
  WRITE .l5
  WRITE .space
  SET VAR col TO 1
  SET VAR l1 TO " "
  SET VAR l2 TO " "
  SET VAR l3 TO " "
  SET VAR l4 TO " "
 ENDIF
ENDWHILE
CLEAR v11 v12 v13 v21 v22 v23
CLEAR v31 v32 v33 v41 v42 v43
OUTPUT SCREEN
$MENU
Main
COLUMN R:BASE Mailing Label Application
Instructions
Print Labels
Exit
$MENU
Sub1
COLUMN Select Label Format
3-1/2 x 15/16 x 1 UP
3-1/2 x 15/16 x 2 UP
3-1/2 x 15/16 x 3 UP
3-2/10 x 11/12 x 3 UP
3-2/10 x 11/12 x 4 UP
Return to the 3Labels main menu
$MENU
Sub2
ROW Select Output Device
Printer
Screen
File
$MENU
Sub3
COLUMN Select Option
Verify label format
Print alignment test
Print labels
Return to the 3Labels main menu
$SCREEN
help1
яПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПН 3Labels Mailing 
Label Application яПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНЭЛ
яПН                                                                            
яПН
яПН       The 3Labels application generates 1, 2, 3, or 4-up labels from       
яПН
яПН       a database and table you specify. Each label can have up to          
яПН
яПН       four printed lines and can use up to three columns on each line.     
яПН
яПН                                                                            
яПН
яПН       To execute this application, choose (2) Print labels, from the       
яПН
яПН       3Labels main menu.                                                   
яПН
яПН                                                                            
яПН
яПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНЭМ
$SCREEN
help2
яПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПН
 Select Label Format 
яПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНЭЛ
яПН                                                                            
яПН
яПН       Label format refers to the size of label you want to print and       
яПН
яПН       how many labels will be printed across. The choices include          
яПН
яПН       two standard sizes--3-1/2 inches by 15/16 inch and 3-2/10 inches     
яПН
яПН       by  11/12 inch. The choices also provide options for 1, 2, or        
яПН
яПН       3 across for the first size and 3 or 4 across for the second.        
яПН
яПН                                                                            
яПН
яПН       Choose option 6 to return to the 3Labels main menu.                  
яПН
яПН                                                                            
яПН
яПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНЭМ
$SCREEN
help3
яПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПН
 Select Output Device 
яПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНЭЛ
яПН                                                                            
яПН
яПН   From this menu you can choose one of the following to direct label       
яПН
яПН   output:                                                                  
яПН
яПН                                                                            
яПН
яПН   яПН Printer   Send the labels to the default printer.                     
 яПН
яПН   яПН Screen    Display the labels on screen. If there are more labels      
 яПН
яПН               than 3Labels can display on one screen, the display          
яПН
яПН               will scroll.                                                 
яПН
яПН   яПН File      Send the labels to a file. If you choose this option,       
 яПН
яПН               3Labels will prompt you for the name of a file. This         
яПН
яПН               option allows you to store labels in a file for later        
яПН
яПН               use, for example, with a word processor.                     
яПН
яПН                                                                            
яПН
яПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНЭМ
$SCREEN
help4
яПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПН
 3Labels Select Options 
яПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНЭЛ
яПН                                                                            
яПН
яПН   The Select Options menu provides these options:                          
яПН
яПН                                                                            
яПН
яПН   яПН Verify label format     Check choices of columns and their locations  
 яПН
яПН   яПН Print alignment test    Print first set of labels to check alignment  
 яПН
яПН   яПН Print labels            Print labels to the selected output device    
 яПН
яПН   яПН Return to the 3Labels   Cancel preparation of labels and return to    
 яПН
яПН     main menu               the main menu                                  
яПН
яПН                                                                            
яПН
яПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНяПНЭМ

Re: [RBASE-L] - Labels | Print page of return address labels

Reply via email to