how to print multiple qty in sequence

hwkong1688 · July 12th, 2018, 02:48 AM

Hi,
Good day to all of you, i had write barcode printing coding as below, from the viewing all the data in sequence. Once i printed multiple quantity of labels, the printer printed out all labels randomly without in sequence. may i know how to printed all in sequence ?

Code:

'sato printer CL408e label command
Dim xx As Long
xx = FreeFile
Open "LPT1:" For Output As xx


Print #xx, "AARZ"
Print #xx, "AA101840500Z"
Print #xx, "AA3H0000V0000Z"
Print #xx, "A%2H480V125"
Print #xx, "D30205420" & Mid(subc, 1, 5) & Mid(subpricetxt, 1, 5) & ""
Print #xx, "H230V125"
Print #xx, "D30205420" & Mid(subc, 1, 5) & Mid(subpricetxt, 1, 5) & ""
Print #xx, "%0H294V49"
Print #xx, "FW02H0176"
Print #xx, "H44V49"
Print #xx, "FW02H0176"
Print #xx, "%3H253V42"
Print #xx, "PS$A,24,24,0XS" & subc & ""
Print #xx, "H500V40"
Print #xx, "$A,24,24,0XS" & subc & ""
Print #xx, "%2H461V47"
Print #xx, "$A,38,32,0XMRM " & price1 & ""
Print #xx, "H210V47"
Print #xx, "$A,38,32,0XMRM " & price1 & ""
Print #xx, "H475V142"
Print #xx, "$A,24,24,0XS" & de & ""
Print #xx, "H225V142"
Print #xx, "$A,24,24,0XS" & de & ""
Print #xx, "H465V24"


If zeroGST.Value = vbChecked Then
Print #xx, "$A,84,18,0XS(0% GST)"
Else
Print #xx, "$A,84,18,0XS"
End If


Print #xx, "H215V24"


If zeroGST.Value = vbChecked Then
Print #xx, "$A,18,18,0XS(0% GST)"
Else
Print #xx, "$A,18,18,0XS"
End If

Print #xx, "Q" & qty1 & ""
Print #xx, "Z"

Close xx