The Number Of Printed Label Is Not Correct
Sir,
When using sheets whit more than one label on it, the printed label quantities is not correct when using this code :
Public Function imprimer(nbcopies, refsurg, Lot, ModeleBt, Imprimante)
Dim MyApp As BarTender.Application
Dim MyDoc As New BarTender.Format
Dim MyVars As BarTender.SubString
Dim Str1, Str2 As String
Set MyApp = CreateObject("BarTender.Application")
MyApp.Visible = False
Str1 = ModeleBt
Str2 = Imprimante
Set MyDoc = MyApp.Formats.Open(Str1, False, Str2)
If Len(Lot) = 8 Then Lot = "Lot : " & Lot
MyDoc.SetNamedSubStringValue "NumLot", Lot
MyDoc.Databases.QueryPrompts.GetQueryPrompt("Invite1").Value = refsurg
MyDoc.IdenticalCopiesOfLabel = nbcopies
MyDoc.PrintOut
MyApp.Quit (BarTender.BtSaveOptions.btDoNotSaveChanges)
Set MyDoc = Nothing
Set MyApp = Nothing
End Function
For exemple, if there is 24 labels per sheet (8 x 3).
The number of printed lables is ok from one to 48 labels.
Is a ask for 49 labels, one sheet of 24 is printed and one sheet of one label is printed (one sheet of 24 lable is missing).
There is one complete sheet of labels and one sheet with the remainder of the division.
Have you some solution ?
Sincerely your
Michel
-
What kind of printer are you using, and what driver is it using?
0 -
I am using a RICOH Aficio C430DN printer with it's PCL6 driver.
For information, I'm obliged, for color printing, to set the quality properties from vectoriel to raster on 1200 dpi, to have a fine barcode printing (else, the barcode printing is sturred).
Thank's for your answer.
Michel
0 -
Inside of BarTender, select 'Administer', then 'Advanced Printer and Driver setup'. Choose the printer, check the box for 'override default settings'. Uncheck the box for 'Use alternate method to control data sourced objects'. That should resolve this problem.
0 -
Your solution is OK.
Thanks very much.
Michel
0
Bitte melden Sie sich an, um einen Kommentar zu hinterlassen.
Kommentare
4 Kommentare