Wrox Programmer Forums
Go Back   Wrox Programmer Forums > Visual Basic > VB 6 Visual Basic 6 > Beginning VB 6
| 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 software programmers and website developers including Wrox book authors and readers. New member registration was closed in 2019. New posts were shut off and the site was archived into this static format as of October 1, 2020. If you require technical support for a Wrox book please contact http://hub.wiley.com
  #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: 0%
Activity: 0% Activity: 0% Activity: 0%
 
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


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 09:58 AM
AutoNumber sequence across multiple tables jcellens Access 3 December 24th, 2005 03:32 AM
print multiple times..multiple rows... abhit_kumar JSP Basics 3 January 18th, 2005 07: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 04:53 AM





Powered by vBulletin®
Copyright ©2000 - 2020, Jelsoft Enterprises Ltd.
Copyright (c) 2020 John Wiley & Sons, Inc.