application path for a dll required

' http://www.starmicronics.com/absolutefm/absolutefm/afmviewfaq.aspx?topicid=11&faqid=20
 
Option Explicit
 
Private Type StarPrinterStatus_2
    ' printer status 1
    coverOpen As Long
    offline As Long
    compulsionSwitch As Long
    ' printer status 2
    overTemp As Long
    unrecoverableError As Long
    cutterError As Long
    mechError As Long
    headThermistorError As Long
    ' printer status 3
    receiveBufferOverflow As Long
    pageModeCmdError As Long
    blackMarkError As Long
    presenterPaperJamError As Long
    headUpError As Long
    voltageError As Long
    ' printer status 4
    receiptBlackMarkDetection As Long
    receiptPaperEmpty As Long
    receiptPaperNearEmptyInner As Long
    receiptPaperNearEmptyOuter As Long
    ' printer status 5
    presenterPaperPresent As Long
    peelerPaperPresent As Long
    stackerFull As Long
    slipTOF As Long
    slipCOF As Long
    slipBOF As Long
    validationPaperPresent As Long
    slipPaperPresent As Long
    ' printer status 6
    etbAvailable As Long
    etbCounter As Byte
    ' printer status 7
    presenterState As Byte
    ' raw
    rawLength As Long
    raw(0 To 62) As Byte
End Type
 
Private Declare Function OpenPortA Lib "starioport.dll" (ByVal portName As String, ByVal portSettings As String, ByVal timeOut As Long) As Long
Private Declare Function ReadPort Lib "starioport.dll" (ByVal port As Long, ByRef readBuffer As Byte, ByVal size As Long, ByRef sizeCommunicated As Long) As Long
Private Declare Function WritePort Lib "starioport.dll" (ByVal port As Long, ByRef command As Byte, ByVal size As Long, ByRef communicated As Long) As Long
Private Declare Function ClosePort Lib "starioport.dll" (ByVal port As Long) As Long
Private Declare Function GetOnlineStatus Lib "starioport.dll" (ByVal port As Long, ByRef onlineStatus As Long) As Long
Private Declare Function GetParsedStatusEx Lib "starioport.dll" (ByVal port As Long, ByRef printerStatus As StarPrinterStatus_2, ByVal level As Long) As Long
Private Declare Function BeginCheckedBlockEx Lib "starioport.dll" (ByVal port As Long, ByRef printerStatus As StarPrinterStatus_2, ByVal level As Long) As Long
Private Declare Function EndCheckedBlockEx Lib "starioport.dll" (ByVal port As Long, ByRef printerStatus As StarPrinterStatus_2, ByVal level As Long) As Long
Private Declare Function ResetDevice Lib "starioport.dll" (ByVal port As Long) As Long
 
Sub GetPrinterStatus(ByVal szPortName As String)
  
  Dim hPort     As Long
  Dim dwStatus  As Long
  
  ' This function opens a connection to the port specified.
  If szPortName = "COMx" Then
    hPort = OpenPortA(szPortName, "9600,n,8,1,h", 30000)
  Else
    hPort = OpenPortA(szPortName, "", 30000)
  End If
  
  ' Sanity check
  If hPort = 0 Then
    Debug.Print "Failed to open printer port."
    Exit Sub
  End If
  
  ' This function retreives the device's online status.
  ' 0 = offline, 1 = online
  Call GetOnlineStatus(hPort, dwStatus)
  
  Select Case dwStatus
    Case 0
      Debug.Print "Printer offline"
    Case 1
      Debug.Print "Printer online"
  End Select
  
  ' This function closes a connection to the port specified.
  Call ClosePort(hPort)
  
End Sub
 
Private Sub Command1_Click()
  
  ' usbven:               [opens the first available USB Vendor Class device]
  ' usbven:sNsNsNsN       [opens the USB Vendor Class device with that serial number]
  ' usbven:COMx           [opens the USB Vendor Class device that has been assigned to COMx]
  ' COMx                  [opens the real serial port]
  ' LPTx                  [opens the real parallel port]
  ' tcp:192.168.11.3      [opens the network printer at the specified IP address
  
  Call GetPrinterStatus("usbven:")
  
 End Sub

                                              

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
97:
98:
99:
100:
101:
102: