Steve
You could do the following
***************
SET VAR VLoop INTEGER = 0
SET VAR VCustNo TEXT
DIAL 'Enter Customer Number' VCustNo VEndKey 1 AT 10
SET VAR VCustNo INTEGER
IF VCustNo IS NULL OR VCustNo = 0 THEN
GOTO Done
ENDIF
SET VAR VHowMany TEXT
DIAL 'How many labels do you want' VHowMany VEndKey 1 AT 10
SET VAR VHowMany INTEGER
IF VHowMany IS NULL THEN
GOTO Done
ENDIF
PROJ TEMPORARY TmpTable FROM PermTable USI ColumList WHE COUNT = 0
WHILE VLoop < .VHowMany THEN
APPEND PermTable TO TmpTable WHE CustNo = .VCustNo
SET VAR VLoop = (.VLoop + 1)
ENDWHILE
*****************
-----Original Message-----
From: Steve Johnson [mailto:[EMAIL PROTECTED]]
Sent: Wednesday, November 20, 2002 1:45 AM
To: [EMAIL PROTECTED]
Subject: RE: Labels
To All:
Nancy asks a great question. There are times I would like to print 30, 60,
or an entire sheet of identical labels. Sounds deceptively simple.
No problem projecting a dummy table but how do you populate it with 30
rows? Code to Add & Duplicate 30 times? Haven't looked at the documentation
on this one yet, the thread caught my interest.
Steve
================================================
TO SEE MESSAGE POSTING GUIDELINES:
Send a plain text email to [EMAIL PROTECTED]
In the message body, put just two words: INTRO rbase-l
================================================
TO UNSUBSCRIBE: send a plain text email to [EMAIL PROTECTED]
In the message body, put just two words: UNSUBSCRIBE rbase-l
================================================
TO SEARCH ARCHIVES:
http://www.mail-archive.com/rbase-l%40sonetmail.com/
================================================
TO SEE MESSAGE POSTING GUIDELINES:
Send a plain text email to [EMAIL PROTECTED]
In the message body, put just two words: INTRO rbase-l
================================================
TO UNSUBSCRIBE: send a plain text email to [EMAIL PROTECTED]
In the message body, put just two words: UNSUBSCRIBE rbase-l
================================================
TO SEARCH ARCHIVES:
http://www.mail-archive.com/rbase-l%40sonetmail.com/
