Imprimir en VB .Net

[Geovanny0401]

hola a todos estoy tratando de imprimir una informacion o un registro de un usuario, el no tiene errores lo que no e podido es cuadrar la posiciones de los campos. le coloco un ejemplo como quiero que me lo muestre

Código HTML:

                 MENDOZA CURVELO AURORA MARIA
                 
                 CC       123456789         1
                
                  F      10/11/1980        NINGUNA

Pero el me lo muestra toda esa informacion es pegada

Código HTML:

MENDOZA CURVELO AURORA MARIA               
CC 123456789 1
F 10/11/1980 NINGUNA

aca coloco el codigo para que me ayuden

Código PHP:

  Private Sub cmdImprimir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdImprimir.Click
        Try
            cmdSalir.Enabled = False
            cmdImprimir.Enabled = False
            cmdFiltro.Enabled = False
            Panel1.Enabled = False
            rsDatos.MoveFirst()
            PageNo = 0
            Dim pd As System.Drawing.Printing.PrintDocument = New System.Drawing.Printing.PrintDocument
            AddHandler pd.PrintPage, New System.Drawing.Printing.PrintPageEventHandler(AddressOf Me.ImprimirCarnet)
            pd.DocumentName = "CARNET"
            pd.DefaultPageSettings.Landscape = False
            pd.Print()
        Catch ex As Exception
            sbMensaje.Text = "Error" & ex.Message
        Finally
            cmdSalir.Enabled = True
            cmdImprimir.Enabled = True
            cmdFiltro.Enabled = True
            rsDatos.MoveFirst()
            LngReg = 0
            txtRegs.Text = 1
            MoverDatos()
            HabilitarBotones()
        End Try
        'Dim frm As New FrmImprimirCarneN
        'frm.ShowDialog()
        frm.Dispose()
    End Sub 
   

Código PHP:

      Private Sub ImprimirCarnet(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles Pop.PrintPage
        Dim Fechita As String
        Fechita = FechaActual()
 
        Dim TxtLinea, TxtTipo As String
        'Dim lngUsuario As Long
        Dim Imagen As System.Drawing.Image
        Dim txtNombre, txtTexto, txtIdentificacion, TxtTipoDoc, txtSexo, txtFechaIng, txtFechaNac, txtMpio, txtZona, txtIps, TxtVigencia, txtPlan, txtNivel, TxtNomMpio As String
        leftMargin = e.MarginBounds.Left
        rightMargin = e.MarginBounds.Right
        topMargin = e.MarginBounds.Top
        PageNo = +1
        yPos = topMargin + 5
        'yPos = topMargin + 115
 
        txtNombre = Comprimir(IIf(IsDBNull(Comprimir(rsDatos.Fields("APE1").Value)), "", Comprimir(rsDatos.Fields("APE1").Value)))
        txtNombre &= " " & Comprimir(IIf(IsDBNull(Comprimir(rsDatos.Fields("APE2").Value)), "", Comprimir(rsDatos.Fields("APE2").Value)))
        txtNombre &= " " & Comprimir(IIf(IsDBNull(Comprimir(rsDatos.Fields("NOM1").Value)), "", Comprimir(rsDatos.Fields("NOM1").Value)))
        txtNombre &= " " & Comprimir(IIf(IsDBNull(Comprimir(rsDatos.Fields("NOM2").Value)), "", Comprimir(rsDatos.Fields("NOM2").Value)))
 
        TxtTipo = Comprimir(IIf(IsDBNull(Comprimir(rsDatos.Fields("TIPDOCUMENTO").Value)), "", Comprimir(rsDatos.Fields("TIPDOCUMENTO").Value)))
 
        txtIdentificacion = Comprimir(IIf(IsDBNull(Comprimir(rsDatos.Fields("DOCUMENTO").Value)), "", Comprimir(rsDatos.Fields("DOCUMENTO").Value)))
 
        txtNivel = Comprimir(IIf(IsDBNull(Comprimir(rsDatos.Fields("NIVSISBEN").Value)), "", Comprimir(rsDatos.Fields("NIVSISBEN").Value)))
 
        txtSexo = Comprimir(IIf(IsDBNull(Comprimir(rsDatos.Fields("SEXO").Value)), "", Comprimir(rsDatos.Fields("SEXO").Value)))
 
        txtFechaNac = Comprimir(IIf(IsDBNull(Comprimir(rsDatos.Fields("FECNAC").Value)), "", Comprimir(rsDatos.Fields("FECNAC").Value)))
 
        txtTexto = txtNombre
        yPos += PFont.GetHeight(e.Graphics) + 3
        ImprimirTexto(leftMargin, rightMargin, yPos, txtTexto, PFont, e)
 
        txtTexto = "" & TxtTipo & " " & txtIdentificacion & " " & txtNivel
        yPos += PFont.GetHeight(e.Graphics) + 3
        ImprimirTexto(leftMargin, rightMargin, yPos, txtTexto, PFont, e)
 
        txtTexto = "" & txtSexo & "                     " & txtFechaNac & "       NINGUNA "
        yPos += PFont.GetHeight(e.Graphics) + 3
        ImprimirTexto(leftMargin, rightMargin + 120, yPos, txtTexto, PFont, e)
           
End Sub 
   

Espero su gran ayuda cualquier pregunta me la pueden hacer

[Aquaventus]

Hola Geovanny0401 cual es la funcion ImprimirTexto?

[Geovanny0401]

Código PHP:

  Public Sub ImprimirTexto(ByVal lPos As Single, ByVal rPos As Single, ByRef yPos As Single, ByVal Texto As String, ByVal FontImp As System.Drawing.Font, ByVal ev As System.Drawing.Printing.PrintPageEventArgs, Optional ByVal sep As Long = 0, Optional ByVal lngAlto As Long = 980)
        Dim lngEspacio As Single = rPos - lPos
        Dim K As Long, tmpTexto As String
        If lngEspacio = 0 Then
            lngEspacio = 100
        End If
        Texto = Comprimir(Texto)
        Do While ev.Graphics.MeasureString(Texto, FontImp).Width > lngEspacio
            K = 1
            Do While (ev.Graphics.MeasureString(Mid(Texto, 1, K), FontImp).Width < lngEspacio)
                K += 1
            Loop
            Do While K > 1 And (InStr(" ,;.", Mid(Texto, K, 1)) = 0)
                K -= 1
            Loop
            If K > 1 Then
                tmpTexto = Mid(Texto, 1, K)
                Texto = Comprimir(Mid(Texto, K + 1))
            Else
                tmpTexto = Texto
                Texto = ""
            End If
            ev.Graphics.DrawString(tmpTexto, FontImp, Brushes.Black, lPos, yPos, New StringFormat)
            yPos += FontImp.GetHeight(ev.Graphics) + sep
            If yPos >= lngAlto Then
                Exit Do
            End If
        Loop
        If Texto.Length > 0 Then
            ev.Graphics.DrawString(Texto, FontImp, Brushes.Black, lPos, yPos, New StringFormat)
            yPos += FontImp.GetHeight(ev.Graphics) + sep
        End If
    End Sub