SerialPort1.PortName = "COM1"
SerialPort1.BaudRate = 600
SerialPort1.DataBits = 8
SerialPort1.ReadBufferSize = 128
SerialPort1.WriteBufferSize = 128
If SerialPort1.IsOpen = False Then
SerialPort1.Open()
End If
SerialPort1.WriteLine(Convert.ToChar(27) + "p")
建议楼主 去 不多文库 里搜素
文档 很多