I print labels from a standardized MailTable with columns for ID #,
name, addr, etc. I have a form layed out with numbered bit buttons in a
3x10 grid, top left is 1, top center is 2, top right is 3, 2nd row left
is 4, etc. Each has a component ID of Btn1, Btn2, Btn3 etc and a custon
EEP:
Clicking a button sets a var for the number of the number button, 3 in
this example:
--Custom EEP for bit button
SET V vBtnValue = 3
PROPERTY RBASE_FORM_ACTION ButtonColors ''
The Form Action ButtonColors sets the color for the selected buttons so
they can see which labels (they'll be green) are going to be printed on:
--Reset all buttons to neutral color
PROPERTY Btn* Color 'white'
--Color the clicked button and others after it
SET V vWhileCounter = .vBtnValue
WHILE vWhileCounter <= 30 THEN
SET V vBtnID = ('Btn' + (CTXT(.vWhileCounter)))
PROPERTY .vBtnID Color 'Green'
SET V vWhileCounter = (.vWhileCounter + 1)
ENDWHILE
User can see which labels (the green ones) will be printed on. If it
doesn't match the partially used sheet of labels they have, they can
click another label button.
Then a separate Print button loads that number of blank rows into the
MailTable:
SET V vWhileCounter INTEGER = .vBtnValue
--Check to make sure a button was clicked
IF vWhileCounter = 0 THEN
PROPERTY MsgBox CAPTION 'Please click on the first label position to
be printed.'
RETURN
ENDIF
--Insert blank rows to skip the corresponding number of labels, counting
down from the Label #
WHILE vWhileCounter > 1 THEN
INSERT INTO MailAddrs (MailID,MailLastName,MailName) VALUES (100,' ',' ')
SET V vWhileCounter = (.vWhileCounter - 1)
ENDWHILE
Then print 'em. Three inserted blank rows of data will "print" three
blank labels, then the real data prints starting on label 4.
voila.
Doug
Gross, Jim wrote:
I have a similar need. I would like to have the ability to pick the
section of the label sheet to print to.
Thanks,
Jim Gross, CHFM
Dir. Engineering Services
Noyes Hospital
585-335-4317
-----Original Message-----
From: [email protected] [mailto:[email protected]] On Behalf Of Bernard
Lis
Sent: Wednesday, May 13, 2009 10:10 PM
To: RBASE-L Mailing List
Subject: [RBASE-L] - Printing Avery Labels
I want to print Avery Label 8160
It's 3 across and 10 deep.
If I only want to print 9 labels, I want them to print across instead of
columnwise.
This way I can still use the rest of the page at a later time.
So how do I do this?
Bernie Lis
