Results 1 to 2 of 2

Thread: print bar code by printer [VB6]

  1. #1
    ghadeer is offline Net Builder
    Join Date
    Oct 2009
    Posts
    108
    Thanks
    0
    Thanked 0 Times in 0 Posts
    Code:
    Private Sub Command0_Click()
    Dim PRN As String
    
    Dim VAR1, VAR2,As String
    
    PRN = \"LPT1\"
    VAR1 = \"BarCode\"
    VAR2 = \"123456\"
    
    
    Open PRN For Output As #1
    
    
    Print #1, \"N\" & Chr(13)
    
    Item = \"A320,15,0,1,1,2,N,\" + Chr$(34) + \"Belal Al hifawi\" + Chr$(34) + Chr$(13)
    Print #1, Item
    
    Item = \"B330,50,0,1,2,2,90,B,\" & Chr$(34) & \" \" & VAR2 & \" \" & Chr$(34) + Chr$(13)
    Print #1, Item
    
    Item = \"A320,160,0,1,1,2,N,\" + Chr$(34) & VAR1 & Chr$(34) + Chr$(13)
    Print #1, Item
    
    Print #1, \"P1\" & Chr(13)
    
    Close #1

  2. #2
    Eyes's Avatar
    Eyes is offline Newbie Net Builder
    Join Date
    May 2009
    Location
    In a Party
    Posts
    83
    Thanks
    0
    Thanked 1 Time in 1 Post
    thanks for this

Similar Threads

  1. Cheapest way to print many pages?
    By Aquarezz in forum Business
    Replies: 10
    Last Post: 11 November, 2010, 10:47 AM
  2. #!/usr/bin/perl -w print "Hello, world.\n";
    By jmburman in forum Introduction Forum
    Replies: 3
    Last Post: 13 January, 2010, 10:59 AM
  3. Help me with this code
    By weirdnessme in forum Web Proxies
    Replies: 1
    Last Post: 11 December, 2009, 03:48 AM
  4. The Black Hat Code
    By DotComBum in forum eBooks
    Replies: 2
    Last Post: 31 May, 2009, 13:57 PM

Tags for this Thread

Bookmarks

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •