Sub PrintReceipt
startprinter
Printer.IsInitialized
' BtAdmin.Initialize("BlueTooth")
' BTConnection.Initialize("Printer")
'Printer.Initialize(BTConnection.OutputStream)
' Printer.Initialize2(BTConnection.OutputStream,"windows-1252") 'important to print f.e. German/French chars [COLOR=rgb(226, 80, 65)] 'Here's the problem [/COLOR]
' Dim printerA As AsyncStreams
' printerA.InitializePrefix(BTConnection.InputStream,False,BTConnection.OutputStream,"PrinterA")
'Printer.Initialize2(BTConnection.InputStream,BTConnection.OutputStream)
TxtCompany.Text="Amarnath"
' Construct the content for printing
PrintBuffer = ""
PrintBuffer = PrintBuffer & Chr(27) & Chr(33) & Chr(0) ' Reset settings
PrintBuffer = PrintBuffer & " Amarnath " & CRLF
PrintBuffer = PrintBuffer & " Receipt" & CRLF
PrintBuffer = PrintBuffer & "-----------------------------" & CRLF
PrintBuffer = PrintBuffer & "Date: " & DateTime.Date(DateTime.Now) & " Time: " & DateTime.Time(DateTime.Now) & CRLF
PrintBuffer = PrintBuffer & "-----------------------------" & CRLF
' Print dynamic content
PrintBuffer = PrintBuffer & "Company: " & TxtCompany.Text & CRLF
PrintBuffer = PrintBuffer & "FAT: " & NumberFormat(TxtFAT.Text, 1, 1) & CRLF
PrintBuffer = PrintBuffer & "Amount: " & NumberFormat(TxtAmount.Text, 1, 2) & CRLF
PrintBuffer = PrintBuffer & "-----------------------------" & CRLF
PrintBuffer = PrintBuffer & " Thank you, visit again!" & CRLF
PrintBuffer = PrintBuffer & Chr(27) & "d" & Chr(5) ' Feed and cut
Log(PrintBuffer)
' Write the buffer to printer and close connection
[COLOR=rgb(226, 80, 65)] Printer.Write(PrintBuffer) [B] ' Here's the problem [/B][/COLOR]
' Printer.Flush
xui.MsgboxAsync("Printed!", "")
End Sub