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