none
Imprimir Invoice mediante printdocument RRS feed

  • Pregunta

  • Saludos estoy disenando una pequena aplicación al estilo sistema de facturacion, y tengo la duda de como puedo imprimir los datos de la factura cuyos datos obtengo mediante consultas sql y los cargo a un datatable, como seria la mejor forma de imprimir este usando la impresora pequeña de punto de ventas. 

    Arismendy Rodríguez

    lunes, 21 de noviembre de 2016 0:17

Respuestas

  • Lo he logrado con el siguiente código

    Sub ImprimirFactura()
            Try
                Dim objFSO As FileSystemObject
                Dim objStream As Object
                objFSO = CreateObject("Scripting.FileSystemObject")
                'objStream = objFSO.CreateTextFile("Canon MP280 series Printer")
                objStream = objFSO.CreateTextFile("C:\Users\Administrador\Documents\MiTicket.txt")
                'TIPO DE LEGRA DRAFT
                ' objStream.Writeline(Chr(27) & Chr(120) & Chr(48) & Chr(7) & Chr(15) & Chr(7))
                objStream.WriteLine(nombresistema & " " & nombre)
                objStream.WriteLine(direccion)
                objStream.WriteLine(telefono)
                objStream.WriteLine(rnc)
                Dim TextoEncabezado As String = "PRODUCTO   CANT  UND  PRECIO"
                objStream.WriteLine("-----------------------------")
                objStream.WriteLine(TextoEncabezado)
                objStream.WriteLine("-----------------------------")
                For i As Integer = 1 To 40
                    'If i < 10 Then
                    'i = i & Chr(160)
                    'End If
                    Dim Texto As String = "Producto:    " & i.ToString() & "    " & "Lib" & "   " & 545.0
                    ' Dim Strim = (Texto)
                    objStream.WriteLine(Texto)
                Next
                'LIMPIAR BUFFER
                objStream.Writeline(Chr(18) & Chr(7))
                objStream.WriteLine("")
                objStream.WriteLine("")
    
                objStream.WriteLine(Space(3) & "  ***** GRACIAS POR SU COMPRA *****")
                'FOR PARA SALIR PAPEL Y PODER CORTAR
                For XX = 0 To 10
                    objStream.WriteLine("")
                Next
                'CORTE DE PAGINA
                objStream.writeline(Chr(27) & Chr(100) & Chr(0))
                'CIERRE
                objStream.Close()
                objFSO = Nothing
                objStream = Nothing
            Catch ex As Exception
                MessageBox.Show(ex.Message, "Aviso Importante", MessageBoxButtons.OK, MessageBoxIcon.Information)
            End Try
        End Sub

    Ahora solo estoy adaptando para que me imprima las variables desde el datatable.

    tengo la siguiente duda utilizando  FileSystemObject, se podría dar alineación al texto


    Arismendy Rodríguez

    martes, 22 de noviembre de 2016 0:58