No puedo mas, el codigo que actualizo no es mio, ha pasado por 100 manos y
ando perdido es el siguiente y necesito poder hacerlo de alguna otra manera.
Alguien me ayuda? Problemas con currentX currentY newpage() enddoc() etc...
Private Sub cmdAceptar_Click(ByVal eventSender As System.Object, ByVal
eventArgs As System.EventArgs) Handles cmdAceptar.Click
Dim i As Short
Dim j As Short
Dim k As Short
Dim x As System.Drawing.Printing.PrintDocument '15/07/2005
On Error GoTo manejadorerror
cnData = New ADODB.Connection
rsData2 = New ADODB.Recordset
cnData.ConnectionString = cadenaConexionData
cnData.CommandTimeout = 60 ' x pp
'Printer.CurrentX = 0
'Printer.CurrentY = 200
'''UPGRADE_ISSUE: Printer propiedad Printer.FontName no se
actualizó. Haga clic aquí para obtener más información:
'ms-
help://MS.VSCC.2003/commoner/redir/...2069"'
'Printer.FontName = "arial"
'No hay correspondencia ni con fontname ni con fontsize 15/07/2005
'''UPGRADE_ISSUE: Printer propiedad Printer.FontSize no se
actualizó. Haga clic aquí para obtener más información:
'ms-
help://MS.VSCC.2003/commoner/redir/...2069"'
'Printer.FontSize = 8
'comienzoY = InputBox("Nº fila de comienzo")
'comienzoX = InputBox("Nº columna de comienzo")
Call preparaComienzo()
comX = comienzoX
comY = comienzoY
posY = 800
cnData.Open()
intentos = 0
i = 1
k = 1
While (k <= frmEventosPendientes.DefInstance.fgrResultado.Rows - 1)
If i >= comY Then
If i = (comY + 1) Then
comX = 1
End If
j = comX
While (j <= 3) And (k <=
frmEventosPendientes.DefInstance.fgrResultado.Rows - 1)
Select Case j
Case 1
posX = 200 '0
Case 2
posX = 4054.8 '3854.8
Case 3
posX = 7911.2 '7711.2
End Select
'UPGRADE_ISSUE: Printer propiedad Printer.CurrentX no se actualizó.
Haga clic aquí para obtener más información:
'ms-
help://MS.VSCC.2003/commoner/redir/...2069"'
Printer.CurrentX = posX
'UPGRADE_ISSUE: Printer propiedad Printer.CurrentY no se actualizó.
Haga clic aquí para obtener más información:
'ms-
help://MS.VSCC.2003/commoner/redir/...2069"'
Printer.CurrentY = posY
If frmEventosPendientes.DefInstance.fgrResultado.get_TextMatrix(k, 3) =
"*" Then
IdEmp =
CInt(frmEventosPendientes.DefInstance.fgrResultado.get_TextMatrix(k, 2))
If rsData2.State = ADODB.ObjectStateEnum.adStateOpen Then
rsData2.Close()
End If
rsData2.Open("Select Empresa, Contacto, ApContacto, Direccion, CP,
Localidad, Provincia from Contactos where Id=" & IdEmp, cnData)
'UPGRADE_ISSUE: Printer propiedad Printer.FontBold no se actualizó.
Haga clic aquí para obtener más información:
'ms-
help://MS.VSCC.2003/commoner/redir/...2069"'
Printer.FontBold = True
'UPGRADE_WARNING: Se detectó el uso de Null o IsNull(). Haga clic aquí
para obtener más información:
'ms-
help://MS.VSCC.2003/commoner/redir/...1049"'
If Not (IsDbNull(rsData2.Fields(0).Value)) Then
'UPGRADE_ISSUE: Printer propiedad Printer.CurrentX no se actualizó.
Haga clic aquí para obtener más información:
'ms-
help://MS.VSCC.2003/commoner/redir/...2069"'
Call Imprimir((rsData2.Fields(0).Value), Printer.CurrentX)
'Printer.Print Text1.Text;
'UPGRADE_ISSUE: Printer propiedad Printer.CurrentX no se actualizó.
Haga clic aquí para obtener más información:
'ms-
help://MS.VSCC.2003/commoner/redir/...2069"'
Printer.CurrentX = posX
End If
'UPGRADE_WARNING: Se detectó el uso de Null o IsNull(). Haga clic aquí
para obtener más información:
'ms-
help://MS.VSCC.2003/commoner/redir/...1049"'
If Not (IsDbNull(rsData2.Fields(1).Value)) Then
'UPGRADE_ISSUE: Printer propiedad Printer.CurrentX no se actualizó.
Haga clic aquí para obtener más información:
'ms-
help://MS.VSCC.2003/commoner/redir/...2069"'
Call Imprimir("Att: " & rsData2.Fields(1).Value & " " &
rsData2.Fields(2).Value, Printer.CurrentX)
'Printer.Print Text3.Text
'UPGRADE_ISSUE: Printer propiedad Printer.CurrentX no se actualizó.
Haga clic aquí para obtener más información:
'ms-
help://MS.VSCC.2003/commoner/redir/...2069"'
Printer.CurrentX = posX
End If
'UPGRADE_WARNING: Se detectó el uso de Null o IsNull(). Haga clic aquí
para obtener más información:
'ms-
help://MS.VSCC.2003/commoner/redir/...1049"'
If Not (IsDbNull(rsData2.Fields(3).Value)) Then
'UPGRADE_ISSUE: Printer propiedad Printer.CurrentX no se actualizó.
Haga clic aquí para obtener más información:
'ms-
help://MS.VSCC.2003/commoner/redir/...2069"'
Call Imprimir((rsData2.Fields(3).Value), Printer.CurrentX)
'Printer.Print Text4.Text
'UPGRADE_ISSUE: Printer propiedad Printer.CurrentX no se actualizó.
Haga clic aquí para obtener más información:
'ms-
help://MS.VSCC.2003/commoner/redir/...2069"'
Printer.CurrentX = posX
End If
'UPGRADE_WARNING: Se detectó el uso de Null o IsNull(). Haga clic aquí
para obtener más información:
'ms-
help://MS.VSCC.2003/commoner/redir/...1049"'
If Not (IsDbNull(rsData2.Fields(4).Value)) Then
'UPGRADE_ISSUE: Printer propiedad Printer.CurrentX no se actualizó.
Haga clic aquí para obtener más información:
'ms-
help://MS.VSCC.2003/commoner/redir/...2069"'
Call Imprimir(rsData2.Fields(4).Value & " " &
rsData2.Fields(5).Value, Printer.CurrentX)
'Printer.Print Text5.Text
'UPGRADE_ISSUE: Printer propiedad Printer.CurrentX no se actualizó.
Haga clic aquí para obtener más información:
'ms-
help://MS.VSCC.2003/commoner/redir/...2069"'
Printer.CurrentX = posX
End If
'UPGRADE_WARNING: Se detectó el uso de Null o IsNull(). Haga clic aquí
para obtener más información:
'ms-
help://MS.VSCC.2003/commoner/redir/...1049"'
If Not (IsDbNull(rsData2.Fields(6).Value)) Then
'UPGRADE_ISSUE: Printer propiedad Printer.CurrentX no se actualizó.
Haga clic aquí para obtener más información:
'ms-
help://MS.VSCC.2003/commoner/redir/...2069"'
Call Imprimir((rsData2.Fields(6).Value), Printer.CurrentX)
'Printer.Print Text6.Text
End If
j = j + 1
End If
k = k + 1
End While
End If
posY = posY + 1701
i = i + 1
If i > 9 Then
i = 1
comX = 1
comY = 1
posY = 800
'UPGRADE_ISSUE: Printer método Printer.NewPage no se actualizó. Haga
clic aquí para obtener más información:
'ms-
help://MS.VSCC.2003/commoner/redir/...2069"'
Printer.NewPage()
End If
End While
'UPGRADE_ISSUE: Printer método Printer.EndDoc no se actualizó. Haga clic
aquí para obtener más información:
'ms-
help://MS.VSCC.2003/commoner/redir/...2069"'
Printer.EndDoc()
MsgBox("Fin de impresión.", MsgBoxStyle.Information)
If rsData2.State = ADODB.ObjectStateEnum.adStateOpen Then
rsData2.Close()
End If
cnData.Close()
rsData2 = Nothing
cnData = Nothing
Exit Sub
manejadorerror:
If Mid(Err.Description, 1, 42) = "No se reconoce el formato de base de
datos" Then
If cnData.State = ADODB.ObjectStateEnum.adStateOpen Then
cnData.Close()
End If
intentos = intentos + 1
If cnData.ConnectionString = cadenaConexionData Then
cnData.ConnectionString = cadenaConexionData2
cnData.CommandTimeout = 60 ' x pp
Else
cnData.ConnectionString = cadenaConexionData
cnData.CommandTimeout = 60 ' x pp
End If
If intentos <= 3 Then
Resume
Else
MsgBox("Error -115652210465 de Access: se ha intentado hacer una
conexión a una base de datos que necesita reparación. Se ha cambiado el
formato de la base de datos.", MsgBoxStyle.Exclamation)
End If
Else
MsgBox(Err.Description, MsgBoxStyle.Exclamation)
End If
End Sub
Leer las respuestas