Text Only | Text with Attachments

QB64.org Forum

Active Forums => Programs => Topic started by: Chris80194 on July 28, 2019, 06:54:11 pm

Title: Code to print out a barcode on a label printer works well
Post by: Chris80194 on July 28, 2019, 06:54:11 pm
I created this so that I could print barcodes for powder coat paint which can expire with some time also the larger program has a serial number part to make these unique to each box.
PRINT "--------------------------------------------------------------"
PRINT "Serial " + DATAPASS1$ + "                  Use By "; DATAPASS2$    Title$ is a title that you probably wont use
PRINT DATAPASS3$
PRINT DATAPASS4$
PRINT "||| ||| || |||||||| |||||| |||||| ||||| | |||||| ||||||| |||||"
PRINT "--------------------------------------------------------------"
The basic label will print but the actual label messes up if you add a pause before the print out you get a ? in the label which is not desirable.  Which is why I made the above sample.  Any ideas how to remove that and get a pause?  I guess I could color the ? white but then how do you know to hit a key to proceed???

Code: QB64: [Select]
  2. PRINT "Barcode Printer code"
  3. PRINT "Tested and tweaked to use the "
  4. PRINT "Label designer for the Brother 201 (29mm x 90mm or 1-1/7 x 3-1/2)"
  5. PRINT "The Zebra, ZDesigner LP 2844 looks to be compatible too. no modifications made."
  7. PRINT "If you do not have it already You will need to search for free3of9x.ttf"
  8. PRINT "Redable text uses the windows Arial.ttf"
  9. PRINT "Should work with other Windows Font and the 128 code but not needed for my use"
  10. PRINT "Expire print out is formated for a date mm/dd/yyyy or a 10 character description"
  13. PRINT "What data do you want as the barcode data"
  14. INPUT "It is best not to exceed 9 characters ", DATAPASS1$
  15. DATAPASS1$ = "*" + DATAPASS1$ + "*"
  16. INPUT "Enter an Expireation date ", DATAPASS2$
  17. INPUT "Enter a Description Line 1 ", DATAPASS3$
  18. INPUT "Enter a Description Line 2 ", DATAPASS4$
  19. PRINT "--------------------------------------------------------------"
  20. PRINT "Serial " + DATAPASS1$ + "                         Use By "; DATAPASS2$
  21. PRINT DATAPASS3$
  22. PRINT DATAPASS4$
  23. PRINT "||| ||| || |||||||| |||||| |||||| ||||| | |||||| ||||||| |||||"
  24. PRINT "--------------------------------------------------------------"
  25. INPUT "As soon as you press enter the label will print", a
  26. 'FFONT$ = "free3of9x.ttf": FFSize = 120
  27. 'EFONT$ = "Arial.ttf": EFSize = 60
  28. 'AFONT$ = "Arial.ttf": AFSize = 60
  29. 'PageWidth = 216 * 10
  30. 'PageHeight = 279 * 10
  31.  
  32. 'Label designer for the Brother 201 (29mm x 90mm or 1-1/7" x 3-1/2") / Zebra ZDesigner LP 2844 looks compatible.
  33. FFONT$ = "free3of9x.ttf": FFSize = 240
  34. EFONT$ = "Arial.ttf": EFSize = 40
  35. AFONT$ = "Arial.ttf": AFSize = 40
  36. PageWidth = 110 * 10 'maximized tweaks for whole label
  37. PageHeight = 29 * 10 'Max is already set do not change.
  38.  
  39. Colum = 10
  40. a = 0
  41. SCREEN _NEWIMAGE(PageWidth, PageHeight, 13)
  42. _DEST Page&: CLS _RGB(1, 1, 1), _RGB(256, 256, 256): _DEST 0 'make background white to save ink!
  44. F& = _LOADFONT(FFONT$, FFSize)
  45. E& = _LOADFONT(EFONT$, EFSize)
  46. A& = _LOADFONT(AFONT$, AFSize)
  47.  
  49. COLOR _RGB(1, 1, 1), _RGB(256, 256, 256): _PRINTSTRING (Colum, 45), DATAPASS1$ ' Print upc bars on bottom of label
  50.  
  52. COLOR _RGB(1, 1, 1), _RGB(256, 256, 256): _PRINTSTRING (400, 0), Title$ ' Print Line 1 description
  53.  
  55. COLOR _RGB(1, 1, 1), _RGB(256, 256, 256): _PRINTSTRING (Colum, 35), DATAPASS3$ ' Print Line 2 ProductInventory description
  56. COLOR _RGB(1, 1, 1), _RGB(256, 256, 256): _PRINTSTRING (Colum, 68), DATAPASS4$ ' Print Line 3 ProductInventory description
  57.  
  59. keep = LEN(DATAPASS1$): DATAPASS1$ = MID$(DATAPASS1$, 2, keep - 2)
  60. COLOR _RGB(1, 1, 1), _RGB(256, 256, 256): _PRINTSTRING (Colum, 0), "Serial " + DATAPASS1$ ' Print upc bar information above bar scan font
  61. IF DATAPASS2$ <> "" THEN COLOR _RGB(1, 1, 1), _RGB(256, 256, 256): _PRINTSTRING (725, 0), "Use By " + DATAPASS2$ ' Print Product Expiry Date
  62.  
  63. _PRINTIMAGE 0 'print screen page on printer
  65.  
Title: Re: Code to print out a barcode on a label printer works well
Post by: bplus on July 28, 2019, 10:19:01 pm
Is the ? from an INPUT? If so, how is it getting on label from printer or am I misunderstanding?

Quote
but then how do you know to hit a key to proceed???

How about an audio cue like a beep or sound, of a speech synthesized, "Proceed"
Title: Re: Code to print out a barcode on a label printer works well
Post by: Petr on July 29, 2019, 09:08:33 am
After _PRINTIMAGE on row 63 you call new SCREEN 0
on row 42 you call virtual screen Page&, you set badly backgroundcolor (maximum correct value for RGB is 255, because value 0 is also one value) and then on the same row you go back to Screen 0. Is this correct? Then next print is not created to page& but to screen 0.

You can also use _DEST in this way:

Current_Screen = _DEST
_Dest Virtual_Screen
print here something....
_Dest Current_Screen       for return back from virtual screen to previous visible screen

Please check, if this is correct in your program.
Title: Re: Code to print out a barcode on a label printer works well
Post by: Petr on July 29, 2019, 11:02:31 am
I went through your code, the main problem why the label disappeared was that in the program you call SCREEN _NEWIMAGE which is page & at line 41 and after printing you call SCREEN 0, this of course switches the screen. To use virtual pages, you must assign a variable to the screen, such as Page & = _NEWIMAGE (800, 600, 32), this will create this virtual screen in memory. To make it visible, call SCREEN as follows: SCREEN Page &. Use _DEST to switch between screens.
I added your code, which I modified, please return the correct fonts yourself there. The _PUTIMAGE command I used to insert the Page & virtual screen on the current screen, you can do it smaller or larger, play with the coordinates and try. At the end of the program you have a primitive solution to ask whether to print or not. I don't know if your print will work as expected, try it and let me know.

Code: QB64: [Select]
  1. SCREEN _NEWIMAGE(800, 600, 32)
  2.  
  3.  
  5. PRINT "Barcode Printer code"
  6. PRINT "Tested and tweaked to use the "
  7. PRINT "Label designer for the Brother 201 (29mm x 90mm or 1-1/7 x 3-1/2)"
  8. PRINT "The Zebra, ZDesigner LP 2844 looks to be compatible too. no modifications made."
  10. PRINT "If you do not have it already You will need to search for free3of9x.ttf"
  11. PRINT "Redable text uses the windows Arial.ttf"
  12. PRINT "Should work with other Windows Font and the 128 code but not needed for my use"
  13. PRINT "Expire print out is formated for a date mm/dd/yyyy or a 10 character description"
  16. PRINT "What data do you want as the barcode data"
  17. INPUT "It is best not to exceed 9 characters ", DATAPASS1$
  18. DATAPASS1$ = "*" + DATAPASS1$ + "*"
  19. INPUT "Enter an Expireation date ", DATAPASS2$
  20. INPUT "Enter a Description Line 1 ", DATAPASS3$
  21. INPUT "Enter a Description Line 2 ", DATAPASS4$
  22. PRINT "--------------------------------------------------------------"
  23. PRINT "Serial " + DATAPASS1$ + "                         Use By "; DATAPASS2$
  24. PRINT DATAPASS3$
  25. PRINT DATAPASS4$
  26. PRINT "||| ||| || |||||||| |||||| |||||| ||||| | |||||| ||||||| |||||"
  27. PRINT "--------------------------------------------------------------"
  28. INPUT "As soon as you press enter the label will print", a
  29. 'FFONT$ = "free3of9x.ttf": FFSize = 120
  30. 'EFONT$ = "Arial.ttf": EFSize = 60
  31. 'AFONT$ = "Arial.ttf": AFSize = 60
  32. 'PageWidth = 216 * 10
  33. 'PageHeight = 279 * 10
  34.  
  35. 'Label designer for the Brother 201 (29mm x 90mm or 1-1/7" x 3-1/2") / Zebra ZDesigner LP 2844 looks compatible.
  36. FFONT$ = "Cyberbit.ttf": FFSize = 240 '                                                                                    i have not your TTF files, rewrite it back
  37. EFONT$ = "Cyberbit.ttf": EFSize = 40
  38. AFONT$ = "Cyberbit.ttf": AFSize = 40
  39. PageWidth = 110 * 10 'maximized tweaks for whole label
  40. PageHeight = 29 * 10 'Max is already set do not change.
  41.  
  42. Colum = 10
  43. a = 0
  44. page& = _NEWIMAGE(PageWidth, PageHeight, 256)
  45. current& = _DEST
  46. _DEST page&
  47. CLS _RGB(0, 0, 0), _RGB(255, 255, 255) 'make background white to save ink!
  49. F& = _LOADFONT(FFONT$, FFSize)
  50. E& = _LOADFONT(EFONT$, EFSize)
  51. A& = _LOADFONT(AFONT$, AFSize)
  52.  
  53. _FONT F&, page&
  54. _PRINTSTRING (Colum, 45), DATAPASS1$, page& ' Print upc bars on bottom of label
  55.  
  56. _FONT E&, page&
  57. _PRINTSTRING (400, 0), Title$, page& ' Print Line 1 description
  58.  
  59. _FONT A&, page&
  60. _PRINTSTRING (Colum, 35), DATAPASS3$, page& ' Print Line 2 ProductInventory description
  61. _PRINTSTRING (Colum, 68), DATAPASS4$, page& ' Print Line 3 ProductInventory description
  62.  
  63. _FONT A&, page&
  64. keep = LEN(DATAPASS1$): DATAPASS1$ = MID$(DATAPASS1$, 2, keep - 2)
  65. COLOR _RGB(1, 1, 1), _RGB(255, 255, 255): _PRINTSTRING (Colum, 0), "Serial " + DATAPASS1$ ' Print upc bar information above bar scan font
  66. IF DATAPASS2$ <> "" THEN COLOR _RGB(0, 0, 0), _RGB(255, 255, 255): _PRINTSTRING (725, 0), "Use By " + DATAPASS2$ ' Print Product Expiry Date
  67.  
  68.  
  69. 'show preview
  70.  
  71. _DEST current&
  73. _PUTIMAGE (100, 100)-(500, 250), page&, current&
  74.  
  75.  
  76. 'ask if print
  78. _PRINTSTRING (350, 500), "Print label? (Y/N)"
  79. DO UNTIL answer$ = "Y" OR answer$ = "N"
  80.     answer$ = UCASE$(INKEY$)
  82.  
  83. IF answer$ = "Y" THEN _PRINTIMAGE page& 'print screen page on printer
  84. 'if answer$ = "N" then.... query if create new label or exit in the same way as previous query...
  85.  
  86.  
Title: Re: Code to print out a barcode on a label printer works well
Post by: Chris80194 on July 30, 2019, 01:58:39 am
Petr I wacked this together for a complete printing program for labels with a 3 of 9 barcode the 128 does not seem to work and since it is not really needed I did not want to waste more labels adjusting the font size so it would also scan.

I cut this out to make it available to others that might want to print labels.
I have it set for my mom to print return labels and labels to the girls on the WPGA that she heads up.

Ill have a look at your code.  Thanks for edits, it is probably cleaner then mine.  I added and removed things until it did what I needed in my full code program.

Bplus yeah I was stopping the run to show what the label would look like before it prints out on the printer.
A pause in the actual label was causing a ? to appear in the screen that would then print on the actual label.
I put this on here so that others could use it, adjust it, clean it up some, and in general a decent place to start from.

My code is more like a monkey in a cage throwing feces.  throw things around and see what sticks.
Title: Re: Code to print out a barcode on a label printer works well
Post by: Chris80194 on July 30, 2019, 02:27:08 am
Petr
Nice output.
It was what I was going for.
I have a whole program that I have wacked keys on it does a decent job of input so now I have to work on retrieval.
the employee edit part sucks but that is a low priority to the other aspects that I am working towards.
Got rid of the append to file for random access hopefully much faster.
Sure there is code to remove edit and tweak.  Have a peek and a good laugh it's at.

https://www.qb64.org/forum/index.php?topic=1545.0

I am mashing things back and forth, then the next part will be retrieval and editing of the parts section...
Title: Re: Code to print out a barcode on a label printer works well
Post by: Chris80194 on July 30, 2019, 02:53:11 am
Petr
So I tried the printout and the barcode won't scan????  Most likely spacing.
I like the output this makes using any other font, some tweaking.
Would be good for making return labels and send to labels.

The Barcode has to be JUSssttttttttt--------rrrriiiiigghhHHTTTTT.
30 some wasted labels until I got one to read on the scanner.

Bplus that is what happened on the above code I supplied to start out with.
Trial by error until the label worked right.  Messy but functional, pretty much how I do most things.
LOL
Thanks,
Title: Re: Code to print out a barcode on a label printer works well
Post by: bplus on July 30, 2019, 09:18:07 am
Ha! When I try stuff with printers, by the time I get it right, I am out of ink or paper.

(except a calendar thing which just printed a screen image)
Title: Re: Code to print out a barcode on a label printer works well
Post by: Chris80194 on July 31, 2019, 09:35:10 pm
Yeah pretty much what I did.
I was able to get the laser sheets right but had to buy a label printer to format it right.

The laser printer was just not formating it right.

so 40 bucks later a week wait and a trip to office depot for an extra 400 labels....

Got it all working  Then someone gave me a Zebra label printer,  it works too.

But yeah had to print adjust and print again.  That is where the mash came from.

I like how Petr's output looks but it is not working with my printers. (frown face)

really in my program, once the data is scanned in the last thing it does is make a serialized label for that box to be used for control purposes of a "perishable" product.
Also to check in and out that product you "scan" that serial number.
Text Only | Text with Attachments