' ' serial port for printer - com6 ' AddObject "serialce.port.1","cmp10" AddObject "serialce.license","objlicense"
objLicense.LicenseKey = "??????????????????????" cmp10.noevents=True cmp10.comport=6 cmp10.baudrate=115200 cmp10.bytesize=8 cmp10.parity=0 cmp10.stopbits=0 cmp10.handshake=0 esc=Chr(27) aNormal = ESC & "!" & Chr(2) aBold = ESC & "!" & Chr(8) aHigh = ESC & "!" & Chr(16) aWide = ESC & "!" & Chr(32) aUnderline = ESC & "!" & Chr(128) aWideHigh = ESC & "!" & Chr(48) aBoldWideHigh = ESC & "!" & Chr(56) bNormal = ESC & "!" & Chr(1) bBold = ESC & "!" & Chr(9) bHigh = ESC & "!" & Chr(17) bWide = ESC & "!" & Chr(33) bUnderline = ESC & "!" & Chr(129) bBoldHigh = ESC & "!" & Chr(25) bWideHigh = ESC & "!" & Chr(49) bBoldWideHigh = ESC & "!" & Chr(57) Sub PrintHeading pPrint vbCrLf Sleep 250 pPrint Chr(27) & "a" & Chr(1) If Len(Trim(sysName))>0 Then pPrint bboldwidehigh & Trim(sysName) & vbCrLf If Len(Trim(sysAdd1))>0 Then pPrint anormal & Chr(27) & "a" & Chr(1) & Trim(sysAdd1) & vbCrLf If Len(Trim(sysAdd2))>0 Then pPrint Chr(27) & "a" & Chr(1) & Trim(sysAdd2) & vbCrLf pPrint "*******************************" & vbCrLf pPrint Chr(27) & "a" & Chr(1) & mdy & vbCrLf pPrint "*******************************" & vbCrLf pPrint vbCrLf End Sub Sub pPrint(xData) On Error resume next If cmp10.enabled=False Then cmp10.enabled=True cmp10.write xData Sleep 20 On Error Goto 0 End Sub -- You received this message because you are subscribed to the Google Groups "nsb-ce" group. To post to this group, send email to [email protected]. To unsubscribe from this group, send email to [email protected]. For more options, visit this group at http://groups.google.com/group/nsb-ce?hl=en.
