none
Centrar Texto (Ticket de Venta) RRS feed

  • Pregunta

  • Hola espero que esten bien, tengo el siguiente problema, mando a imprimir a una impresora de ticket, pero al querer centrar el titulo no lo hace lo manda al costado o bien ni lo mueve el codigo que utilizo es el siguiente:

     Dim pw As Single = e.MarginBounds.Width
                Dim lm As Single = e.MarginBounds.Left
                Dim Font As New Font("Arial", 20, FontStyle.Bold, GraphicsUnit.Millimeter)
                Dim sfCenter As New StringFormat
                With sfCenter
                    .Alignment = StringAlignment.Center
                    .LineAlignment = StringAlignment.Center
                End With
                Dim Rowheight As Single = e.Graphics.MeasureString(Empresa.Nombre, Font, pw, sfCenter).Height
                Dim rctTitulo As New RectangleF(lm, 1, pw, Rowheight)
                e.Graphics.DrawString(Empresa.Nombre, Font, Brushes.Black, rctTitulo, sfCenter)
                e.HasMorePages = False

    La impresora esta configurada en Milimetros, no consigo centrar el texto

    Agradezco de antemano su apoyo.

    sábado, 5 de julio de 2014 20:17