Visual Basic - generar e imprimir ticket de venta con impresora bixolon srp350

Life is soft - evento anual de software empresarial
   
Vista:

generar e imprimir ticket de venta con impresora bixolon srp350

Publicado por davyd (1 intervención) el 03/07/2014 00:47:16
Hola a todos, espero que se encuentren bien, escribo por el motivo de saber quien me puede ayudar de como generar un ticket de venta con la impresora samsung bixolon SRP 350 mediante visual studio 2010 con puerto .COM paso a paso por favor, que llevo tiempo intentando, abjunté el oxc, los dll, manual y el código fuente del programa


Imports System.IO.Ports
Imports System.Drawing.Printing
Imports System.Runtime.InteropServices

Imports System.Threading
Public Class ImprimirBixolonSRP350
Dim puertoCom As IO.Ports.SerialPort = My.Computer.Ports.OpenSerialPort("COM4")

Private Sub ImprimirBixolonSRP350_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
With SerialPort1
.PortName = Trim(ComboBox1.SelectedItem)
.BaudRate = 128000 'Fijar velocidad de comunicaciones
.DataBits = 8 'Longitud en bits para Byte de datos
.StopBits = IO.Ports.StopBits.One 'Bits parada despues byte de datos
.Parity = IO.Ports.Parity.None 'Asignar paridad(enumeracion parity)
.DtrEnable = True
.RtsEnable = True
.NewLine = vbCrLf
End With
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'comprueba si el puerto .COM esta abierto o cerrado
If puertoCom.IsOpen = True Then
MsgBox("abierto:" & puertoCom.PortName & "")
Else
MsgBox("cerrado:" & puertoCom.PortName & "")
End If

Using serie As IO.Ports.SerialPort = My.Computer.Ports.OpenSerialPort(SerialPort1.PortName) 'llamo al constructor
SerialPort1.WriteLine(Chr(&H0) & Chr(&H0))
'Enviar datos
Dim Contador As Integer
Contador = serie.BytesToWrite 'Bytes en espera de ser escritos
serie.Write("Hola Mundo") 'Enviar una cadena de caracteres
serie.WriteLine("Hola Mundo") 'Enviar una linea
serie.Write(New Byte() {10, 226, 255}, 0, 4)

End Using
End Sub
End Class
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder