none
Cambiar tamaño de fuente en tiket RRS feed

  • Pregunta

  • Buenos dias, tengo una aplicacion que imprime tickets y lo venia haciendo muy bien, hasta que me tope con un cliente que tiene titulos largos y el tiket los corta a la mitad, como es una pizzeria necesitan que el titulo se vea completo.

    Los item que se cortan son los del listview , el item descp.

    Alguno podria ayudarme para achicar la fuente a la hora de imprimir el tiket o si tiene alguna idea para solucionarlo.

    Desde ya muchas gracias

            Dim Cant As String

            Dim Descp As String

            Dim Totallinea As String

            Dim Hora As String

            Hora = DateTime.Now.ToString("h:mm:ss")

            Dim total As String

            Dim Ticket1 As New CreaTicket()

            Ticket1.impresora = "Generic / Text Only(Usb)"

            Ticket1.AbreCajon()

            Ticket1.TextoCentro("SUPER SAN PEDRO")

            Ticket1.TextoCentro("SAN PEDRO,SAN RAMON")

            Ticket1.TextoCentro("TEL.2445-1823")

            Ticket1.TextoCentro("RESOLUCION 11-97")

            Ticket1.LineasIgual()

            Ticket1.TextoIzquierda("FACTURA : " + ("1000"))

            Ticket1.TextoIzquierda("CLIENTE : " + "juan perez")

            Ticket1.TextoIzquierda("VENTA   : " + "contado")

            Ticket1.TextoIzquierda("CAJERO  : " + "")

            Ticket1.TextoExtremos("FECHA : " + Trim("28/06/2011"), "HORA : " + Hora)

            Ticket1.LineasIgual()

            Ticket1.EncabezadoVenta()

            Ticket1.LineasIgual()

            Dim i As Integer

            For i = 0 To Me.ListView1.Items.Count - 1

                Cant = Me.ListView1.Items.Item(i).SubItems(0).Text

                Descp = (Me.ListView1.Items.Item(i).SubItems(1).Text)

                Totallinea = Trim(CStr(Me.ListView1.Items.Item(i).SubItems(3).Text))

                Cant = Cant + "  "

                Ticket1.AgregaArticulo(Cant, Descp, Totallinea) 'imprime una linea de descripcion

            Next

            Ticket1.LineasIgual()

            total = ("100.00")

            Ticket1.AgregaTotales("         EXENTO", total) ' // imprime linea con total

            total = ("200.00")

            Ticket1.AgregaTotales("        GRAVADO", total) ' // imprime linea con total

            total = ("300.00")

            Ticket1.AgregaTotales("          TOTAL", total) ' // imprime linea con total

            Ticket1.LineasTotales()

            Ticket1.AgregaTotales("         CAMBIO", total) ' // imprime linea con total

            Ticket1.LineasIgual()

            Ticket1.TextoIzquierda("CAJA : " + "01")

            Ticket1.TextoCentro("GRACIAS POR SU COMPRA")

            Ticket1.TextoCentro("*= ARTICULO CON IMPUESTO")

            Ticket1.TextoCentro("...................")

            Ticket1.CortaTicket() '

    lunes, 27 de mayo de 2019 15:15

Respuestas

  • Hola  

    Gracias por levantar tu consulta en los foros de MSDN. Con respecto a la misma, te hago la recomendación de ingresar al siguiente enlace en donde puedes encontrar una posible solución para tu problema.

    https://social.msdn.microsoft.com/Forums/es-ES/b67ae813-fe8e-4343-9c2f-645070752cd8/cambiar-la-fuente-a-un-documento?forum=vbes

    https://social.msdn.microsoft.com/Forums/es-ES/44311c76-fe9b-4bde-a3cd-8c2fbf11eb2a/cmo-cambiar-el-tamao-de-la-fuente-de-letra-con-cdigos?forum=dotnetes

    Gracias por usar los foros de MSDN.

    Carlos Ruiz
     ____

    Por favor recuerde "Marcar como respuesta" las respuestas que hayan resuelto su problema, es una forma común de reconocer a aquellos que han ayudado, y hace que sea más fácil para los otros visitantes encontrar la solución más tarde. 

    Microsoft ofrece este servicio de forma gratuita, con la finalidad de ayudar a los usuarios y la ampliación de la base de datos de conocimientos relacionados con los productos y tecnologías de Microsoft.  

    Este contenido es proporcionado "tal cual" y no implica ninguna responsabilidad de parte de Microsoft.
    miércoles, 29 de mayo de 2019 14:35