Imprimir dos veces
Saludos:
Quisiera saber como se hace para imprimir
Dos veces un informe en access, ¿o sea
necesito dos copias del informe?
Ya tengo un informe y lo imprimo al apretar un botón en un formulario, ¿pero quiero que me imprima dos veces el mismo informe
alguna ayuda?
Gracias
Quisiera saber como se hace para imprimir
Dos veces un informe en access, ¿o sea
necesito dos copias del informe?
Ya tengo un informe y lo imprimo al apretar un botón en un formulario, ¿pero quiero que me imprima dos veces el mismo informe
alguna ayuda?
Gracias
1 respuesta
Respuesta de sruizg
1
En tu botón imprimir en vista de diseño, procedimiento agrega este código
Private Sub Detail_Format(Cancel As
Integer, FormatCount As Integer)
If PrintCount = 2 Then
RunningTotal = RunningTotal + OrderAmount
End If
End Sub
Private Sub Detail_Format(Cancel As
Integer, FormatCount As Integer)
If PrintCount = 2 Then
RunningTotal = RunningTotal + OrderAmount
End If
End Sub
Hola: probé y no me funciona, pero seguro es porque tengo este código en ese botón:
¿Se puede aplicar ese código al que esta en el botón?
Private Sub btn_informe_Click()
Dim stDocName As String
stDocName = "inf_operaciones_liquidado"
If MsgBox("imprimir? ", vbInformation + vbYesNo, "pregunta?") = vbNo Then
DoCmd.OpenQuery "con_operaciones_numero_liquidacion"
DoCmd.OpenReport stDocName, acPreview
DoCmd.OpenQuery "con_operaciones_terminado"
Else
stDocName = "inf_operaciones_liquidado"
DoCmd.OpenQuery "con_operaciones_numero_liquidacion"
DoCmd.OpenReport stDocName, acViewNormal
DoCmd.OpenQuery "con_operaciones_terminado"
End If
End Sub
Gracias...
¿Se puede aplicar ese código al que esta en el botón?
Private Sub btn_informe_Click()
Dim stDocName As String
stDocName = "inf_operaciones_liquidado"
If MsgBox("imprimir? ", vbInformation + vbYesNo, "pregunta?") = vbNo Then
DoCmd.OpenQuery "con_operaciones_numero_liquidacion"
DoCmd.OpenReport stDocName, acPreview
DoCmd.OpenQuery "con_operaciones_terminado"
Else
stDocName = "inf_operaciones_liquidado"
DoCmd.OpenQuery "con_operaciones_numero_liquidacion"
DoCmd.OpenReport stDocName, acViewNormal
DoCmd.OpenQuery "con_operaciones_terminado"
End If
End Sub
Gracias...
Agrega esto
DoCmd. OpenReport stDocName, acPreview
DoCmd. PrintOut acPages, 1, 1, , 2
Suerte
DoCmd. OpenReport stDocName, acPreview
DoCmd. PrintOut acPages, 1, 1, , 2
Suerte
