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