BorlandTalk.com

Steven Nicholas · Guest

Hi,

i have a problem, as do a few others all over the web with trying to get
RAVE to print labels/mail addresses/vouchers/invoices.
Anything that requires data to be printed across the page in columns as well
as rows for each data record.
I have searched through all the tutorials i could find, but it isn't
mentioned anywhere how to do this.

Has anyone been able to do this successfully, or will i have to do all the
logic in my application?
I'm using Delphi 7 RAVEBE 5.0.8.

Thanks in advance.
Steven

Al Herman · Guest

Yes I've done it where you can print on any type of label with or without
barcodes. Used code based works very well
"Steven Nicholas" <stevenn (AT) icon (DOT) co.za> wrote

Steven Nicholas · Guest

Hi,

i found the column setting which will allow me to set up the required number
of columns in a databand. I've set up the mirrors for the Data Mirror Sets,
but now i am stuck again.

Basically there is some decryption that i need to do before i insert the my
data into the report so i can't run the report with a connection to a
database.

I've put a RvProject on my form, designed the form and put the text labels
and datataext fields onto the form etc.
Now how do i get to insert my data into this field? If i loop through my
data and insert, then call the execute function, i get one record per page
instead of multiple pages. How do i send all my data to the pages before
calling execute?

This is a major problem as per usual, i've left the reporting to the last
minute and my dealine for the reporting is fast approaching.

Hope someone can either help me, or tell me it's not possible with this
product so that i can look elsewhere.

Thanks
Steven

"Al Herman" <aherman (AT) chasemckay (DOT) com> wrote

Al Herman · Guest

Here is the code, I'm giving back to the groups that always helped me out

procedure TfrmPrintLbls.CustLblsPrint(Sender: TObject);
var
X, Y, LblCount : Double;
RowCount : Integer;
UPCBarCode: TRPBarsUPC;
begin
with sender as TBaseReport do
begin
tblCust_.First;
RowCount := 1;
Count := Length(tblSetupLbl_CFont.Value);
CFontSz := StrToInt(Copy(tblSetupLbl_CFont.Value, (Count - 1), Count));
CFont := Copy(tblSetupLbl_CFont.Value, 0, (Count - 4));
SetFont(CFont, + CFontSz);
Screen.Cursor := crHourglass;
If tblSetupLbl_CAddr1.AsBoolean then Inc(RowCount); //used to know
number of rows to be printed
If tblSetupLbl_CAddr2.AsBoolean then Inc(RowCount);
If tblSetupLbl_CCity.AsBoolean then Inc(RowCount);
If tblSetupLbl_CZip.AsBoolean then Inc(RowCount);
If tblSetupLbl_CBarcode.AsBoolean then Inc(RowCount);
Y := tblSetupLbl_CVert.Value + tblSetupLbl_CTop.Value;
X := tblSetupLbl_CLeft.Value;
LblCount := 0;
while not tblCust_.Eof do
begin
GotoXY(X, Y);
Print(tblCust_Company.Value);
Y := (Y + tblSetupLbl_CVert.Value);
GotoXY(X, Y);
If tblSetupLbl_CAddr1.AsBoolean then
begin
Print(tblCust_Addr1.Value);
Y := (Y + tblSetupLbl_CVert.Value);
end;
GotoXY(X, Y);
If tblSetupLbl_CAddr2.AsBoolean then
begin
Print(tblCust_Addr2.Value);
Y := (Y + tblSetupLbl_CVert.Value);
end;
GotoXY(X, Y);
If tblSetupLbl_CCity.AsBoolean then
begin
Print(tblCust_City.Value + ', ' + tblCust_State.Value);
Y := (Y + tblSetupLbl_CVert.Value);
end;
GotoXY(X, Y);
If tblSetupLbl_CZip.AsBoolean then
begin
Print(tblCust_Zip.Value);
Y := (Y + tblSetupLbl_CVert.Value);
end;
GotoXY(X, Y);
If tblSetupLbl_CBarcode.AsBoolean then
begin
UPCBarCode := TRPBarsUPC.Create(Sender as TBaseReport);
with UPCBarCode do
begin
BarHeight := 6.00;
BarTop := (Y - tblSetupLbl_CVert.Value);
BarWidth := 0.25;
WideFactor := 3.00;
UseChecksum := True;
PrintReadable := True;
Text := tblCust_Phone.AsString;
Center := X + 10;
end;
UPCBarCode.Print;
UPCBarCode.Free;
Y := (Y + tblSetupLbl_CVert.Value);
end;
GotoXY(X, Y);
LblCount := (LblCount + 1);
X := (X + tblSetupLbl_CHoriz.Value);
Y := (Y - (RowCount * tblSetupLbl_CVert.Value));
tblCust_.Next;
If (X >= (tblSetupLbl_CLblsRow.Value * tblSetupLbl_CHoriz.Value)) then
begin
Y := Y + (RowCount * tblSetupLbl_CVert.Value); // resets back to left
side and spaces down for next row
X := tblSetupLbl_CLeft.Value;

If (LblCount >= tblSetupLbl_CLblsPage.Value) then
begin
newpage; //new page and resets back to top defaults for this page
Y := tblSetupLbl_CVert.Value + tblSetupLbl_CTop.Value;
X := tblSetupLbl_CLeft.Value;
LblCount := 0;
end;
end;
end;
Screen.Cursor := crDefault;
end;
end;

"Steven Nicholas" <stevenn (AT) icon (DOT) co.za> wrote

Steven Nicholas · Guest

Thanks Al,

i'll try that code out. I was hoping to get around doing it manually by
referencing the variables i had setup in the actual regions, but i guess
that won't be possible.

Thanks again for the help.

Steven

"Al Herman" <aherman (AT) chasemckay (DOT) com> wrote