Imports System.IO
Imports System.IO.Ports
Imports System.Threading
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
' Dichiaro una variabile di tipo SerialPort per gestire la connessione bluetooth
Dim bluetoothPort As IO.Ports.SerialPort
Dim escbon As String
escbon = Strings.Chr(27) + Strings.Chr(33) + Strings.Chr(128)
' Dichiaro una variabile di tipo stringa per memorizzare il testo da stampare
Dim testo As String
' Inizializzo la variabile con il testo che voglio stampare
testo = "Ciao, questo è un testo stampato via bluetooth"
' Creo un nuovo oggetto SerialPort con i parametri della porta COM del dispositivo bluetooth
bluetoothPort = My.Computer.Ports.OpenSerialPort("COM4", 9600, Parity.None, 8, StopBits.One)
' Apro la connessione bluetooth
' bluetoothPort.Open()
' Scrivo il testo da stampare sulla connessione bluetooth
bluetoothPort.WriteLine(escbon + testo)
' Chiudo la connessione bluetooth
bluetoothPort.Close()
End Sub
End Class
questo e il metodo che ho usato e .funziona alla grande.
in base alla tabella esc\pos che mi avete inviata i link ,cambio i valori nella stringa escbon e mi gestisce molte funzioni,
l'ultimo valore chr(128) mi da un bel grassetto e testo piu grande . grazie a tutti