Serialization And Multiple Copies From Vb6 S’abonner
I have written a VB6 application from which I want to print out a specified number of barcodes starting from a number that is stored in a database. Sometimes there is a requirement to print a set of duplicate or triplicate barcodes.
I have the application working by sending a print command within a loop, the loop running for the number of barcode labels specified and the number of duplicates required. The code for the loop is below:-
[code] For Z = 1 To numberToPrint [this value comes from a text box on the application form]
nextBC = firstBC + Z
'multiples of the barcode
For Y = 1 To Val(Form1.Combo1.Text) [choose 1,2 or 3 from a drop down list]
BtFormat.SetNamedSubStringValue "BCBarcode", bcValue
BtFormat.SetNamedSubStringValue "BCTitle", headerText
Text1.Text = Text1.Text + vbCrLf + bcValue
BtFormat.PrintOut False, False [send the print command to BarTender]
Now this is not a very elegant solution as when printing hundreds of barcodes the print buffer overflows.
My question is :-
Can I send a Print command to BarTender specifying the following
eg. Assume the current Barcode number in the database is 5000 and I want to print Barcode labels numbering from 5000 to 6000 with 3 copies of each barcode (total 3000 labels)
> the start number for the barcode 
> the number of duplicates to print 
> the number of barcodes to print (not including the duplicates) 
The barcodes need to print out in the order 5000,5000,5000,5001,5001,5001,5002,5002,5002 etc,etc. as they do in the code example above.
Any help would be appreciated.
Vous devez vous connecter pour laisser un commentaire.