none
IMPRIMIR DATOS EN PUNTOS EXACTOS RRS feed

  • Pregunta

  • Buenos días a todos,

    estoy usando visual basic 2017 y llevo días mirando a ver como posicionar en el momento de imprimir con medidas exactas .

    ejemplos

    dato1 quiero que este a 10 cm superior de la hoja y a 10 cm izquierdo 

    y cuando cambies la fuentes que siga imprimiendo en el mismo lugar

    he conseguido una vez a que salga bien , pero en cambiar de fuentes no sale en la misma posición

    agradezco su colaboración en ayudarme

    gracias ante todo

            xmarg = CLng(Val(PrintDocument1.PrinterSettings.DefaultPageSettings.Margins.Left) * Form1.valorpix)
            ymarg = CLng(Val(PrintDocument1.PrinterSettings.DefaultPageSettings.Margins.Top) * Form1.valorpix)
            Form1.valorpix = 36
            RPOS = 36
            For i = 0 To ListView4.Items.Count - 1
                If ListView4.Items(i).Text = "0" Then
                    variantcolor = Trim(ListView4.Items(i).SubItems(15).Text)
                    If Len(ListView4.Items(i).SubItems(6).Text) = 0 Then
                        valorelemento = " ho hay nada"
                    Else
                        valorelemento = Trim(ListView4.Items(i).SubItems(6).Text)
                    End If
                    TAMA1 = Val(ListView4.Items(i).SubItems(13).Text)

                    Dim prFont As New Font(Trim(ListView4.Items(i).SubItems(12).Text), TAMA1, FontStyle.Regular)
                    xPos = (Val(ListView4.Items(i).SubItems(4).Text) * Form1.valorpix) + xmarg
                    yPos = (Val(ListView4.Items(i).SubItems(3).Text) * RPOS) + ymarg
                    If Trim(ListView4.Items(i).SubItems(11).Text) = 0 Then Formato.Alignment = 1
                    If Trim(ListView4.Items(i).SubItems(11).Text) = 1 Then Formato.LineAlignment = 1
                    e.Graphics.DrawString(Trim(valorelemento), prFont, Brushes.Black, xPos, yPos)
                End If
            Next i

    ahí dejo el código

     

    viernes, 22 de febrero de 2019 15:52

Todas las respuestas

  • Hola  ANTONIO731
    Gracias por levantar tu consulta en los foros de MSDN. Con respecto a la misma, te comento que estaremos realizando una revisión a profundidad acerca del inconveniente que se te está presentando.

    Proporcionaremos una respuesta lo más pronto posible.

    Gracias por usar los foros de MSDN.

    Pedro Alfaro
     ____

    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.
    viernes, 22 de febrero de 2019 18:55
    Moderador