Gambas ONE

how exactly do you try to open it? I was trying to open it just like a Serial Printer Global.PrinterPort = New SerialPort As "PrinterPort" With Global.PrinterPort Try .Close .PortName = Global.PortName .Speed = Global.BandRate Select Case Global.FlowControl Case "Hardware" .Flow...

From what I can see, there is a Linux Printer driver for your printer. Why not install that and just send a page to the printer or as I do with a Zebra Printer, create a PDF file and send that to the printer? If I used the driver I loose all control Over the printer and I will not get any status ab...

Hi all I need some advise. I have a fully working module that talks to my Epson TM-88IV thermal printer on comport and it works perfectly And now I want to try and use a USB version of it So I have found on my system /dev/usb/lp1 and I can echo to it with no problems The problem I seem to have is wh...

did you try the .Visible property? probably easier than removing/adding https://gambaswiki.org/wiki/comp/gb.form/_tabpanelcontainer ' tab 3 hides if not in edit, or if in edit it hides if no opencart or shows if opencart TabPabel1[3].Visible = If(bIsInEditMode, If(bCanUseOpencart, True, False), Fal...

Hi Everyone I am stuck I have read up on how to remove a tab from a Tab Panel (I need to remove it when I add products but it shows when I edit them as it shows the products history) But when I use the TabPanel1.remove(4) I get a Bad Index Error I have 5 tabs in my Tab Panel I am using TabPanel1.ind...

Any way I have no idea what it is supposed to do but this code works and does something ;) Public Function Mod10CheckDigit(BarcodeNumber As String) As Integer Dim I As Integer Dim TotalOdd As Integer Dim TotalEven As Integer Dim Total As Integer BarcodeNumber = Trim(BarcodeNumber) 'Get the Odd numb...

In vb.net this is what the right command does


returns a specified number of characters from the right side of a string.

Public Function Mod10CheckDigit(BarcodeNumber As String) As Integer Dim I As Integer Dim TotalOdd As Integer Dim TotalEven As Integer Dim Total As Integer BarcodeNumber = Trim(BarcodeNumber) 'Get the Odd numbers For i = 1 To Len(BarcodeNumber) Step 2 TotalOdd += CInt(Mid(BarcodeNumber, i, 1)) Next ...

BruceSteers wrote: ↑Tuesday 20th February 2024 9:44am Well does the above code do (with adjustments)
maybe you can just change it to suit your needs

Thanks I shall have a experiment and see what I get

Sorry the £ is not shown as the file is the actual file that is sent to the printer so it would show up as a chr(156) I can generate another file tomorrow if that helps. I have 2 files one file holds everything upto the tender payment and the other file holds the full recipit format would you like m...