none
Cómo Emular reportes (para pruebas) de Ticket Epson TM 88 sin tener la impresora Fisicamente? RRS feed

  • Pregunta

  • Frecuentemente quienes programamos entramos en la fase de los reportes de impresion. A veces se trata de alguna impresora con la que no contamos en nuestra oficina y resulta complejo hacer pruebas en el lugar final donde se usará el programa.

    Tal es el caso de la Impresora Termica Epson TM88. Debo configurar un ticket simple de venta. Y a diferencia de otras impresoras, la Epson TM88 no se instala a menos que este conectada al equipo fisicamente.

    ¿Existe alguna manera de emular los tickets de una impresora asi?

    Los estandares son 79.5 mm de ancho, por el largo que de el ticket...


    Luis C






    martes, 6 de abril de 2021 17:11

Todas las respuestas

  • Bueno, instale la impresora siguiendo estas recomendaciones y me aparece perfecto el preview para hacer pruebas sin imprimir.

    Instalacion de Tm88


    Luis C


    martes, 6 de abril de 2021 21:25
  • Lo que yo hago es usar crystal reports, creo un dataset y un report con el tamaño del papel que vayas a utilizar asi veras en la pantalla el reporte sin necesidad de tener impresora alguna

    Imports System.Data.SqlClient
    Imports System.Configuration
    Public Class PANTALLA_RECIBOS
        Protected configuracion As ConnectionStringSettings = ConfigurationManager.ConnectionStrings("Cadenaconexion")

        Private Sub Form1_Paint(sender As Object, e As PaintEventArgs) Handles Me.Paint
            ControlPaint.DrawBorder(e.Graphics, Me.ClientRectangle, Color.Black, ButtonBorderStyle.Solid)
        End Sub
        Private Sub PANTALLA_RECIBOS_Load(sender As Object, e As EventArgs) Handles MyBase.Load
            txtnumrecibo.Text = POS_FRM.lblnumrecibo.Text
            Dim Reporte As New FIN_RECIBOS_PAGOS
            Reporte.SetDataSource(Obtener_Recibo)
            Reporte.Refresh()
            Me.CrystalReportViewer1.ReportSource = Reporte
        End Sub
        Public Function Obtener_Recibo() As RECIBO_PAGO_DS
            Dim DS As New RECIBO_PAGO_DS

            Using cnn As New SqlConnection(configuracion.ConnectionString)

                Dim sql As String = "Select A.Num_Recibo,A.Num_Estudiante,A.Num_Empleado,A.Fecha_Recibo, " &
                                        "A.Hora_Recibo,A.Total,A.Void,A.Tipo_Pago as T_Pago, " &
                                        "(C.Nombre + ' ' + C.Inicial + ' ' + C.Apellido_1 + ' ' + C.Apellido_2) as Nombre_Estudiante, " &
                                        "(D.Nombre + ' ' + D.Apellido_1 + ' ' + D.Apellido_2) as Nombre_Empleado,  " &
                                        "E.Nom_Ins,E.Nom_Rec,Finanzas,E.Logo1 " &
                                        "From Finanzas_Recibos_Tabla A " &
                                        "left join Adm_Solicitud_Admision_Tabla C on A.Num_Estudiante = C.Num_Estudiante " &
                                        "left join Rec_Hum_Empleados_Tabla D on A.Num_Empleado=D.Numero_Empleado " &
                                        "left join Config_Encabezados_Reportes_Tabla E on A.Encabezado = E.Numero  " &
                                        "where A.Num_Recibo = " & txtnumrecibo.Text
                Dim command As SqlCommand = New SqlCommand(sql, cnn)
                Dim da As SqlDataAdapter = New SqlDataAdapter(command)
                da.Fill(DS, "Finanzas_Recibos_Tabla")

                sql = "Select Num_Recibo,Cant,Codigo_Barra,Descripcion,Cantidad " &
                      " From Finanzas_Recibos_Detalles_Tabla  " &
                      " where Num_Recibo = " & txtnumrecibo.Text
                '" Group By Num_Recibo,Cant,Codigo_Barra,Descripcion,Cantidad "
                command = New SqlCommand(sql, cnn)
                da = New SqlDataAdapter(command)
                da.Fill(DS, "Finanzas_Recibos_Detalles_Tabla")

                sql = "Select A.*,B.Des_Metodo_Pago " &
                      " From Finanzas_Recibos_Pagos_Tabla A  " &
                      " left join Finanzas_Metodos_Pago_Tabla B on A.Tipo_Pago=B.Numero " &
                      " where Num_Recibo = " & txtnumrecibo.Text
                command = New SqlCommand(sql, cnn)
                da = New SqlDataAdapter(command)
                da.Fill(DS, "Finanzas_Recibos_Pagos_Tabla")

            End Using

            Return DS

        End Function
        Private Sub lblsalir_Click(sender As Object, e As EventArgs) Handles lblsalir.Click
            Me.CrystalReportViewer1.ReportSource = Nothing
            Me.Close()
        End Sub
    End Class

    martes, 20 de abril de 2021 0:03