VBA QRCode

[sujohns]

Type of issue

[ ] Bug
[ ] Question (e.g. about handling/usage)
[ x] Request for new feature/improvement

Expected Behavior

How can I change it to QRcode

Current Behavior

Currently this is for Barcode

Public Declare PtrSafe Sub openport Lib "C: \64\SDK\x64\TSCLIB.DLL" (ByVal PrinterName As String)
Public Declare PtrSafe Sub closeport Lib "C: \64\SDK\x64 \TSCLIB. DLL" ()
Public Declare PtrSafe Sub sendcommand Lib "C: \64\SDK\x64\TSCLIB.DLL" (ByVal command As String)
Public Declare PtrSafe Sub setup Lib "C: \64\SDK\x64\TSCLIB. DLL" ( _
ByVal LabelWidth As String, _
ByVal LabelHeight As String, _
ByVal Speed As String, _
ByVal Density As String, _
ByVal Sensor As String, _
ByVal Vertical As String, _
ByVal Offset As String)

Public Declare PtrSafe Sub downloadpcx Lib "C: \64\SDK\x64\TSCLIB. DLL" ( _
ByVal Filename As String, ByVal ImageName As String)

Public Declare PtrSafe Sub barcode Lib "C: \64\SDK\x64\ISCLIB. DLL" ( _
ByVal x As String, _
ByVal y As String, _
ByVal CodeType As String, _
ByVal Height As String, _
ByVal Readable As String, _
ByVal rotation As String, _
ByVal Narrow As String, _
ByVal Wide As String, _
ByVal Code As String)

Public Declare PtrSafe Sub printerfont Lib "C: \64\SDK\x64\TSCLIB.DLL" ( _
ByVal x As String, _
ByVal y As String, _
ByVal FontName As String, _
ByVal rotation As String, _
ByVal Xmul As String, _
ByVal Ymul As String, _
ByVal Content As String)

Public Declare PtrSafe Sub clearbuffer Lib "C: \64\SDK\x64\TSCLIB. DLL" ()
Public Declare PtrSafe Sub printlabel Lib "C: \64\SDK\x64\TSCLIB. DLL" ( _
ByVal NumberOfSet As String, _
ByVal NumberofCopy As String) _

Public Declare PtrSafe Sub formfeed Lib "C:\64\SDK\x64\TSCLIB. DLL" ()
Public Declare PtrSafe Sub nobackfeed Lib "C: \64\SDK\x64\TSCLIB. DLL" ()
Public Declare PtrSafe Sub windowsfont Lib "C: \64\SDK\x64\TSCLIB. DLL" ( _
ByVal x As Integer, _
ByVal y As Integer, _
ByVal fontheight As Integer, _
ByVal rotation As Integer, _
ByVal fontstyle As Integer, _
ByVal fontunderline As Integer, _
ByVal FaceName As String, _
ByVal TextContent As String)

Public Declare PtrSafe Sub windowsfontU Lib "C: \64\SDK\x64\TSCLIB. DLL" ( _
ByVal x As Integer, _
ByVal y As Integer, _
ByVal fontheight As Integer, _
ByVal rotation As Integer, _
ByVal fontstyle As Integer, _
ByVal fontunderline As Integer, _
ByVal FaceName As String, _
ByVal TextContent As String)

Public Declare PtrSafe Sub about Lib "C: \64\SDK\x64\TSCLIB. DLI" ()
Public Declare PtrSafe Function isusbportready Lib "C: \64\SDK\x64\TSCLIB.DIL" () As Integer
Public Declare PtrSafe Function usbportqueryprinter Lib "C: \64\SDK\x64 \TSCLIB.DLL" () As Integer
Public Declare PtrSafe Function usbportwrite Lib "C: \64\SDK\x64\TSCLIB.DLI" (ByVal command As String) As Integer

Possible Solution (optional)

Im looking for Qrcode

Steps to Reproduce (for bugs)

Your Environment

Excel VBA