imprimir string

[sergioaiki07]

Buenas

Estoy haciendo un programa donde captura datos de texto plano de un puerto COM

esos datos se guardan en un string y quiero imprimir en una impresora con driver genéricos de texto

con que método o código debo hacer esto, ya que no he encontrado buenas referencias

gracias y saludos

[Lokocr]

Saludos.

Te paso un tutorial en ingles, usa la libreria Drawing.Printing de .NET

http://www.codeproject.com/Tips/453871/Simple-Receipt-Like-Printing-Using-the-Csharp-Prin

Esta en C#.

Suerte.

[jmerlos282]

Iniciado por sergioaiki07

Buenas

Estoy haciendo un programa donde captura datos de texto plano de un puerto COM

esos datos se guardan en un string y quiero imprimir en una impresora con driver genéricos de texto

con que método o código debo hacer esto, ya que no he encontrado buenas referencias

gracias y saludos

Buen día Sergio,

Espero que te encuentres bien aquí solicitándote un favor, crees que me pudieras indicar o mostrar el código para poder obtener los datos del COM y guardarlos en el string, es justamente el proyecto que estoy realizando para mi trabajo me sería de mucha ayuda alguna información que me dieras.

[sergioaiki07]

muchas gracias, si me resulto

bueno este es el codigo de configuracion del puerto, listar los puertos disponibles y como conectar ese puerto

Código:

Sub Setup_Puerto_Serie()

        Try

            With SerialPort1

                If .IsOpen Then
                    .Close()
                End If

                .PortName = ComboPorts.Text
                .BaudRate = 19200                   '// 19200 baud rate 
                .DataBits = 8                       '// 8 data bits                                                   
                .StopBits = IO.Ports.StopBits.One   '// 1 Stop bit 
                .Parity = IO.Ports.Parity.None      '
                .DtrEnable = False
                .Handshake = IO.Ports.Handshake.None
                .ReadBufferSize = 2048
                .WriteBufferSize = 1024
                '.ReceivedBytesThreshold = 1

                .WriteTimeout = 500
                .Encoding = System.Text.Encoding.Default
                .Open()                              '  ABRE EL PUERTO SERIE

            End With

        Catch ex As Exception
            MsgBox("Error al abrir el puerto serial: " & ex.Message, MsgBoxStyle.Critical)
        End Try
    End Sub

    Sub GetSerialPortNames()
        ' muestra COM ports disponibles.
        Dim l As Integer
        Dim ncom As String
        Try

            ComboPorts.Items.Clear()
            For Each sp As String In My.Computer.Ports.SerialPortNames
                l = sp.Length
                If ((sp(l - 1) >= "0") And (sp(l - 1) <= "9")) Then
                    ComboPorts.Items.Add(sp)

                Else
                    'hay una letra al final del COM
                    ncom = sp.Substring(0, l - 1)
                    ComboPorts.Items.Add(ncom)
                End If
            Next
            If ComboPorts.Items.Count >= 1 Then
                ComboPorts.Text = ComboPorts.Items(0)
            Else
                ComboPorts.Text = ""
            End If

        Catch ex As Exception

        End Try
    End Sub

    Private Sub BtnConectar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnConectar.Click


        Try
            If BtnConectar.Text = "Conectar" Then
                BtnConectar.Text = "Desconectar"
                Setup_Puerto_Serie()
          

            Else

                If SerialPort1.IsOpen Then
                    SerialPort1.Close()

                End If
                BtnConectar.Text = "Conectar"
               
            End If
        Catch ex As Exception

        End Try
    End Sub

Ahora si me pueden ayudar en otro tema necesito una ventana emergente donde se ingrese datos, lo puedo hacer con inputbox pero quiero que sea como un popup que aparezca primero que todas las ventanas

como lo puedo hacer?

saludos y gracias

[jmerlos282]

Iniciado por sergioaiki07

muchas gracias, si me resulto

bueno este es el codigo de configuracion del puerto, listar los puertos disponibles y como conectar ese puerto

Código:

Sub Setup_Puerto_Serie()

        Try

            With SerialPort1

                If .IsOpen Then
                    .Close()
                End If

                .PortName = ComboPorts.Text
                .BaudRate = 19200                   '// 19200 baud rate 
                .DataBits = 8                       '// 8 data bits                                                   
                .StopBits = IO.Ports.StopBits.One   '// 1 Stop bit 
                .Parity = IO.Ports.Parity.None      '
                .DtrEnable = False
                .Handshake = IO.Ports.Handshake.None
                .ReadBufferSize = 2048
                .WriteBufferSize = 1024
                '.ReceivedBytesThreshold = 1

                .WriteTimeout = 500
                .Encoding = System.Text.Encoding.Default
                .Open()                              '  ABRE EL PUERTO SERIE

            End With

        Catch ex As Exception
            MsgBox("Error al abrir el puerto serial: " & ex.Message, MsgBoxStyle.Critical)
        End Try
    End Sub

    Sub GetSerialPortNames()
        ' muestra COM ports disponibles.
        Dim l As Integer
        Dim ncom As String
        Try

            ComboPorts.Items.Clear()
            For Each sp As String In My.Computer.Ports.SerialPortNames
                l = sp.Length
                If ((sp(l - 1) >= "0") And (sp(l - 1) <= "9")) Then
                    ComboPorts.Items.Add(sp)

                Else
                    'hay una letra al final del COM
                    ncom = sp.Substring(0, l - 1)
                    ComboPorts.Items.Add(ncom)
                End If
            Next
            If ComboPorts.Items.Count >= 1 Then
                ComboPorts.Text = ComboPorts.Items(0)
            Else
                ComboPorts.Text = ""
            End If

        Catch ex As Exception

        End Try
    End Sub

    Private Sub BtnConectar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnConectar.Click


        Try
            If BtnConectar.Text = "Conectar" Then
                BtnConectar.Text = "Desconectar"
                Setup_Puerto_Serie()
          

            Else

                If SerialPort1.IsOpen Then
                    SerialPort1.Close()

                End If
                BtnConectar.Text = "Conectar"
               
            End If
        Catch ex As Exception

        End Try
    End Sub

Ahora si me pueden ayudar en otro tema necesito una ventana emergente donde se ingrese datos, lo puedo hacer con inputbox pero quiero que sea como un popup que aparezca primero que todas las ventanas

como lo puedo hacer?

saludos y gracias

Podrías hacerlo creando un segundo form y desde el formload del primer form mandas a llamar el segundo y pones invisible todos los demás, en el segundo pones lo que quieras que capturen y donde se va a guardar, con un botón le puedes decir que terminaste y que cierre el form popup y que abra los el primero, estoy fuera de mi ciudad para copiarte un ejemplo, si lo necesitas me dices y lo pego en cuanto llegue.