Option Explicit

' Print and open cash drawer
Private Sub Command1_Click()
    StarComm1.StarComm_InitialisePrintJob
    StarComm1.StarComm_Output Text1.Text
    StarComm1.StarComm_Output Chr(7)
    StarComm1.StarComm_Print
    
    ' For printing directly to a parallel port without starcomm,
    ' this code would work exactly the same:
    ' Open "lpt1" For Random As #1
    ' Print #1, Text1.Text
    ' Print #1, Chr(7)
    ' Close
End Sub

' Print only
Private Sub Command2_Click()
    StarComm1.StarComm_InitialisePrintJob
    StarComm1.StarComm_Output Text1.Text
    StarComm1.StarComm_Print
End Sub