For y = 1 To 3
For x = 1 To 10
' Raster Graphics --> ESC + "l" + #of bytes to the actual data bytes
MSComm1.Output = Chr$(27) + "l" + Chr$(50) + Chr$(0) + Chr$(0) + Chr$(0) + Chr$(0) + Chr$(0) + Chr$(255) + Chr$(255) + Chr$(255) +
Chr$(255) + Chr$(255) + Chr$(0) + Chr$(0) + Chr$(0) + Chr$(0) + Chr$(0) + Chr$(255) + Chr$(255) + Chr$(255) + Chr$(255) + Chr$(255) +
Chr$(0) + Chr$(0) + Chr$(0) + Chr$(0) + Chr$(0) + Chr$(255) + Chr$(255) + Chr$(255) + Chr$(255) + Chr$(255) + Chr$(0) + Chr$(0) + Chr$(0)
+ Chr$(0) + Chr$(0) + Chr$(255) + Chr$(255) + Chr$(255) + Chr$(255) + Chr$(255) + Chr$(0) + Chr$(0) + Chr$(0) + Chr$(0) + Chr$(0) +
Chr$(255) + Chr$(255) + Chr$(255) + Chr$(255) + Chr$(255)
MSComm1.Output = Chr$(13)
Next x
MSComm1.Output = Chr$(13)
Next y
MSComm1.Output = Chr$(10)
MSComm1.Output = Chr$(13)
MSComm1.Output = Chr$(10)
MSComm1.Output = Chr$(13)
MSComm1.Output = "Description: "
MSComm1.Output = Chr$(13)
MSComm1.Output = "SP-327 Serial"
MSComm1.Output = Chr$(13)
MSComm1.Output = "Thermal Printer"
MSComm1.Output = Chr$(13)
MSComm1.Output = Chr$(10)
MSComm1.Output = Chr$(13)
'Example of Interleave 2 of 5 Barcode
MSComm1.Output = Chr$(27) + "i" + Chr$(12) + Chr$(3) + "123456" + Chr$(13)
MSComm1.Output = Chr$(13)
MSComm1.Output = Chr$(10)
MSComm1.Output = Chr$(13)
MSComm1.Output = "Barcode 2 of 5 = 123456"
'MSComm1.Output = Chr$(10)
MSComm1.Output = Chr$(13)
'Example of Landscape Mode
MSComm1.Output = Chr$(2) 'Enter Landscape Mode
MSComm1.Output = " Landscape Mode!"
MSComm1.Output = Chr$(10)
MSComm1.Output = Chr$(13)
'Example of Barcode 3 of 9 Barcode in landscape mode
MSComm1.Output = Chr$(27) + "C" + Chr$(1) + Chr$(2) + "*123456*" + Chr$(13)
MSComm1.Output = Chr$(13)
MSComm1.Output = Chr$(15) ' Enable Condensed Mode
MSComm1.Output = "
Barcode: 3 of 9 = 123456"
MSComm1.Output = Chr$(10)
MSComm1.Output = Chr$(13)
MSComm1.Output = Chr$(3) 'End Landscape Mode
MSComm1.Output = Chr$(18) ' Disable Condensed Mode
MSComm1.Output = Chr$(10)
MSComm1.Output = Chr$(13)
MSComm1.Output = Chr$(27) + "c" 'Initiate a paper cut
MSComm1.Output = Chr$(13)
MSComm1.PortOpen = False
End
' End of SP327
'_________________________________________________________
SerialOpps:
MsgBox "Print Operation has been Cancelled. Make sure Power to the printer is ON and/or try a different COM Port."
End