Wrox Programmer Forums

Need to download code?

View our list of code downloads.

Go Back   Wrox Programmer Forums > Visual Basic > VB 6 Visual Basic 6 > Beginning VB 6
Password Reminder
Register
Register | FAQ | Members List | Calendar | Search | Today's Posts | Mark Forums Read
Beginning VB 6 For coders who are new to Visual Basic, working in VB version 6 (not .NET).
Welcome to the p2p.wrox.com Forums.

You are currently viewing the Beginning VB 6 section of the Wrox Programmer to Programmer discussions. This is a community of tens of thousands of software programmers and website developers including Wrox book authors and readers. As a guest, you can read any forum posting. By joining today you can post your own programming questions, respond to other developersí questions, and eliminate the ads that are displayed to guests. Registration is fast, simple and absolutely free .
DRM-free e-books 300x50
Reply
 
Thread Tools Display Modes
  #1 (permalink)  
Old July 12th, 2018, 02:48 AM
Registered User
Points: 5, Level: 1
Points: 5, Level: 1 Points: 5, Level: 1 Points: 5, Level: 1
Activity: 50%
Activity: 50% Activity: 50% Activity: 50%
 
Join Date: Jul 2018
Posts: 1
Thanks: 0
Thanked 0 Times in 0 Posts
Post how to print multiple qty in sequence

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
Reply With Quote
Reply


Thread Tools
Display Modes

Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is On
Smilies are On
[IMG] code is Off
HTML code is Off
Trackbacks are Off
Pingbacks are On
Refbacks are Off

Similar Threads
Thread Thread Starter Forum Replies Last Post
Duplicate Date Sumarize and sum orders by qty parts ordered. Tylerluk1 BOOK: Excel VBA 24-Hour Trainer 2nd edition 3 December 25th, 2015 08:58 AM
AutoNumber sequence across multiple tables jcellens Access 3 December 24th, 2005 02:32 AM
print multiple times..multiple rows... abhit_kumar JSP Basics 3 January 18th, 2005 06:11 PM
how to print multiple text page jgiang Java GUI 0 June 28th, 2004 05:58 PM
cursor; onload, mail or print multiple reports bubblez Access VBA 2 November 3rd, 2003 03:53 AM



All times are GMT -4. The time now is 02:43 AM.


Powered by vBulletin®
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.
© 2013 John Wiley & Sons, Inc.