Mensajes

Muchas gracias por la ayuda!!!
Me complique un montón siendo que se pude imprimir de la forma normal con el PrintDocument

Igualmente voy a seguir averiguando el tema de la conexión usb creo que es algo que esta haciendo falta en visual basic .net o no esta muy claro

No tienen nada...........

Como haces para asignar el puerto com para el usb?

Si entiendo lo que queres es que un form que tenga un texto en un textbox cuando abras otro form desde ese formulario aparezca el texto en el formulario secundario?
Si es eso tenes que hacer esto

bueno primero asegurarte que el textbox no este vacio, y despues mandar el texto al otro formulario cuando lo abrís

en el boton que habre el segundo formulario:

Código (vbnet) [Seleccionar] Expandir


Dim Texto as String
Texto = textbox1.text
Dim mfrm as FormSecundario
mfrm = new FormSecundario(Texto) 'Aca estoy pasando el texto como parametro, pero tengo que especificar antes en el formulario secundario sino te va dar error
mfrm.showdialog()


Y en el formulario secundario declaras una variable que se va pasar ese texto

Código (vbnet) [Seleccionar] Expandir


Class FormSecundario
dim texto as String

sub new(xTexto as Texto) ' declara que tiene que recibir una variable de tipo string cuando se cree el nuevo formulario

texto = xtexto 'Asigno el texto que se pasa a la variable en el form que lo puedo usar en cualquier momento
end sub

end class

Suerte

Hola a todos y muchas gracias por leer la pregunta.
El problema es el siguiente tengo una notebook que no tiene puertos seriales y compre una de esas impresoras térmicas de rollos usb que utiliza lenguaje ESC/POS. Necesito conectarme desde un programa que estoy implementado y hacer que me imprima recibos, solo que no puedo conectarme con el puerto usb para enviarle los comandos.
Leí un poco en Internet y me dice que tengo que utilizar la clase serialport pero cuando le asigno el valor "USB1" no hace nada. Les dejo el segmento de código.

Código (vbnet) [Seleccionar] Expandir


Public Sub imprimir()
post = New SerialPort("USB001")
post.Open()

post.WriteLine("prueba")

post.Close()
End Sub


Hola necesito ayuda con un listado en un programa que estoy haciendo. Tengo una actividad para cada actividad tengo una colección de movimientos, los movimientos tienen personas que lo hacen. Necesito imprimir por cada persona los movimientos que tiene, la consulta esta pronta, pero el problema es cuando llego al final de la pagina en ves de agregarme una pagina nueva lo que hace es seguir imprimiendo en la misma pagina en la parte de arriba. Si alguien puede darme una ayuda, lo agradezco.
Aquí les dejo el segmento de código:

Private Sub PrintDocument1_PrintPage(sender As Object, e As Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage
        Dim ObjAct As Actividades = Nothing

        ObjAct = ComboBox1.SelectedItem



        If Not ObjAct Is Nothing Then
            ' Definir fuente para imprimir
            Dim fuenteimpresion As System.Drawing.Font = New Font("Arial", 12)
            Dim fuenteT As System.Drawing.Font = New Font("Arial", 12, FontStyle.Bold)

            Dim DE As DictionaryEntry
            Dim DE2 As DictionaryEntry
            Dim topMargin As Double = e.MarginBounds.Top
            Dim yPos As Double = 0
            Dim lineasXpagina As Double = 0
            Dim count As Integer = 0
            Dim texto As String = ""
            Dim linea As LineasMov
            Dim ObjMov As Movimientos
            Dim ColP As New Hashtable
            lineasXpagina = e.MarginBounds.Height / fuenteimpresion.GetHeight(e.Graphics)


            texto = vbTab & vbTab & ObjAct.Descripcion & " de la fecha " & ObjAct.Fecha

            yPos = topMargin + (count * fuenteimpresion.GetHeight(e.Graphics))

            e.Graphics.DrawString(texto, fuenteT, System.Drawing.Brushes.Black, 12, yPos)

            count += 2
            yPos = topMargin + (count * fuenteimpresion.GetHeight(e.Graphics))

            Dim Col As Hashtable = Administrador.DevolverInstancia.ObtenerMovimientos(ObjAct)

            For Each DE In Col

                ObjMov = DE.Value
                Dim total As Integer = 0
                total = (ObjMov.Cantidad * ObjMov.PrecioV) / ObjMov.Articulo.Unidad

                If ColP.ContainsKey(ObjMov.Persona.Id) = True Then
                    linea = Nothing
                    linea = ColP(ObjMov.Persona.Id)
                    If Not linea Is Nothing Then
                        linea.Total += total
                    End If
                Else
                    linea = New LineasMov(ObjMov.Id, ObjMov.Persona, total)
                    ColP.Add(linea.Persona.Id, linea)
                End If
            Next

            Col.Clear()


            For Each DE In ColP
                    linea = DE.Value
                    Col = Administrador.DevolverInstancia.ObtenerMovPersonas(linea.Persona, ObjAct)

                    Dim fuente2 As System.Drawing.Font = New Font("Arial", 12, FontStyle.Bold)
                    texto = vbTab & linea.Persona.Apellido & ", " & linea.Persona.Nombre
                    e.Graphics.DrawString(texto, fuente2, System.Drawing.Brushes.Black, 12, yPos)

                    count += 1
                    yPos = topMargin + (count * fuenteimpresion.GetHeight(e.Graphics))

                    texto = vbTab & "Cantidad"
                    e.Graphics.DrawString(texto, fuenteimpresion, System.Drawing.Brushes.Black, 12, yPos)

                    texto = vbTab & vbTab & vbTab & "Descripción"
                    e.Graphics.DrawString(texto, fuenteimpresion, System.Drawing.Brushes.Black, 12, yPos)

                    texto = vbTab & vbTab & vbTab & vbTab & vbTab & vbTab & vbTab & vbTab & "Monto"
                    e.Graphics.DrawString(texto, fuenteimpresion, System.Drawing.Brushes.Black, 12, yPos)

                    count += 1
                    yPos = topMargin + (count * fuenteimpresion.GetHeight(e.Graphics))


                For Each DE2 In Col

                    ObjMov = DE2.Value

                    texto = vbTab & ObjMov.Cantidad
                    e.Graphics.DrawString(texto, fuenteimpresion, System.Drawing.Brushes.Black, 12, yPos)

                    texto = vbTab & vbTab & vbTab & ObjMov.Articulo.Descripcion
                    e.Graphics.DrawString(texto, fuenteimpresion, System.Drawing.Brushes.Black, 12, yPos)

                    texto = vbTab & vbTab & vbTab & vbTab & vbTab & vbTab & vbTab & vbTab & (ObjMov.PrecioV * ObjMov.Cantidad) / ObjMov.Articulo.Unidad
                    e.Graphics.DrawString(texto, fuenteimpresion, System.Drawing.Brushes.Black, 12, yPos)

                    count += 1
                    yPos = topMargin + (count * fuenteimpresion.GetHeight(e.Graphics))
                    xi += 1

                    If count > lineasXpagina Then
                        e.HasMorePages = True
                        count = 0
                    Else
                        e.HasMorePages = False
                    End If
                Next


                    texto = vbTab & vbTab & vbTab & vbTab & vbTab & vbTab & vbTab & vbTab & "Total"
                    e.Graphics.DrawString(texto, fuenteimpresion, System.Drawing.Brushes.Black, 12, yPos)

                    count += 1
                    yPos = topMargin + (count * fuenteimpresion.GetHeight(e.Graphics))

                    texto = vbTab & vbTab & vbTab & vbTab & vbTab & vbTab & vbTab & vbTab & linea.Total
                    e.Graphics.DrawString(texto, fuenteimpresion, System.Drawing.Brushes.Black, 12, yPos)

                    count += 2
                    yPos = topMargin + (count * fuenteimpresion.GetHeight(e.Graphics))

                If count > lineasXpagina Then
                    e.HasMorePages = True
                    count = 0
                Else
                    e.HasMorePages = False
                End If
            Next
        End If
    End Sub