Trabajar con informes...
Publicado por Juan Carlos Gonzalez (1 intervención) el 01/06/2001 19:25:44
Que tal...
Miren tengo un formulario con un boton de impresion, mando a imprimir un informe cinco veces, pero como le puedo hacer para poder cambiar el valor de una etiqueta cada vez que se imprima, por ejemplo, si es la impresion uno, que me ponga "CLIENTE", en la dos "ORIGINAL" y asi sucesivamente.
Este es el codigo que manda imprimir:
Private Sub CmdimprimeImp_Click()
On Error GoTo Err_CmdimprimeImp_Click
Dim stDocName As String
Dim cont As Integer
cont = 1
If IsNull(Me.NODECL.Value) Then
MsgBox "No tiene Número de Declaración", vbInformation, "Captura"
Else
Do
stDocName = "prueba1"
DoCmd.OpenReport stDocName, acNormal
cont = cont + 1
Loop While (cont < 5)
End If
Exit_CmdimprimeImp_Click:
Exit Sub
Err_CmdimprimeImp_Click:
MsgBox Err.Description
Resume Exit_CmdimprimeImp_Click
End Sub
Como le puedo hacer para que desde este codigo yo pueda modificar mi informe.
Miren tengo un formulario con un boton de impresion, mando a imprimir un informe cinco veces, pero como le puedo hacer para poder cambiar el valor de una etiqueta cada vez que se imprima, por ejemplo, si es la impresion uno, que me ponga "CLIENTE", en la dos "ORIGINAL" y asi sucesivamente.
Este es el codigo que manda imprimir:
Private Sub CmdimprimeImp_Click()
On Error GoTo Err_CmdimprimeImp_Click
Dim stDocName As String
Dim cont As Integer
cont = 1
If IsNull(Me.NODECL.Value) Then
MsgBox "No tiene Número de Declaración", vbInformation, "Captura"
Else
Do
stDocName = "prueba1"
DoCmd.OpenReport stDocName, acNormal
cont = cont + 1
Loop While (cont < 5)
End If
Exit_CmdimprimeImp_Click:
Exit Sub
Err_CmdimprimeImp_Click:
MsgBox Err.Description
Resume Exit_CmdimprimeImp_Click
End Sub
Como le puedo hacer para que desde este codigo yo pueda modificar mi informe.
Valora esta pregunta


0