none
ayuda para imprimir ticket RRS feed

  • Pregunta

  • Private Sub Imprimir()
            Try
                Dim objFSO As FileSystemObject
                Dim objStream As Object
                objFSO = CreateObject("Scripting.FileSystemObject")
                objStream = objFSO.CreateTextFile("Canon MP280 series Printer")
                'TIPO DE LEGRA DRAFT
                objStream.Writeline(Chr(27) & Chr(120) & Chr(48) & Chr(7) & Chr(15) & Chr(7))
                For i As Integer = 1 To 40
                    Dim Texto As String = "ITEM NRO: " + i.ToString()
                    Dim Strim = (Texto)
                    objStream.WriteLine(Strim)
                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

    ok el codigo  esta funcional pero no se como adaptarlo para que me imprima los datos del datagri ayuda

    • Cambiado Enrique M. Montejo viernes, 7 de noviembre de 2014 7:56 Pregunta relacionada con controles de Windows Forms.
    miércoles, 5 de noviembre de 2014 1:29