Printing Labels

[lhenry]

The labels printing is dependent on an integer field and a string field. If the integer is 50, the same number of labels will be printed with the value of the string field.

 

[Elkari]

Sounds like a simple FOR loop would solve your problem. Try this...

After openning the table -

while ( not eof ) do
begin
for i := 1 to FieldByName( 'count' ).AsInteger do
PrintLabel( FieldByName( 'string' ).AsString;
Next;
end;

 

[lhenry]

Hi, Elkari,
Could you please give an example of the PrintLabel routine either with QReport or in Pascal? I need to print on an A4 size paper.

 

[Elkari]

The way I print things out is to either set up a TStringList or for multi-column reports a TStringGrid, and fill it with the information that I what to print.
The procedures to print a TStringList or TStringGrid are a bit inovled to be written out here. Send me your e-mail and I'll send you examples of them. Also, what are you storing in the string field you wanted to print? I'll be able to set up the example for you better if I know what it is you are trying to print.

 

[lhenry]

Hi, Elkari,

The string is 'B12-A1'.
The integer value is 300. (to print 300 labels)

The size of the label is 0.5 inch high, 0.8 inch width.

The labels are to be printed on A4 size paper.

my email address: lhenry2000@maxis.net.my

Thanks.