Avery Labels

rbuser

Hi all.
I want to be able to print out some labels. I went thru the process of
selecting the lable I want to use, and RB created the report for me, which
was good.

My only problem IS, I only want to print sometimes one at a time, and its on
an A4 Sheet.
In MSWord, I can select the row and column to print the label too.

Can I do this with RB?

Thanks, Jeremy

rbuser

http://www.digital-metaphors.com/tips/SkipLabels.zip

might be of some help.

Jon

rbuser

Thanks Jon.
It shows me show many to skip which is great.
I might have to do some smarts with the reports and if I say skip 10, then
only the 10th (or will it be the 11th) will display the data, and the
labels with have their data labels set to empty....or something like that
:-)

Thansk, Jeremy

rbuser

SWEET !! all I had to do was add this to the end of the code in the
"BeforePrint" event where it calculates wether or not to print on the label
:-

else
begin
ppDBCalc1.Visible := false;
ppDBText1.Visible := False;
end;

or in full :-

if ((((ppReport1.CurrentColumn - 1) * FTotalBandsPerColumn) +
ppReport1.DetailBand.Count) = (FSkip - 1)) then
begin
ppReport1.DetailBand.BandsPerRecord := 1;

ppDBCalc1.Visible := True;
ppDBText1.Visible := True;
end
else //my bit added here
begin
ppDBCalc1.Visible := false;
ppDBText1.Visible := False;
end;