Imprimir informe de 2 paginas por separado
Publicado por Jesus (29 intervenciones) el 10/01/2012 19:40:59
Hola:
No se se se podrá hacer lo que os voy a contar:
Tengo un boton en un formulario que ejecuta un informe para imprimir. La cuestion viene en que el informe tiene dos páginas, se podría parar la impresión en una página y tras darle a un boton o algo seguir con la segunda página, para poder darle la vuelta al folio e imprir por las dos caras.
En principio si no se puede tengo una solución dividir el informe en dos informes y con un boton imprimr uno y con otro el segundo.
No se si se puede hacer, abajo dejo el código hecho con el asistente
Private Sub ImprInAprFo_Click()
On Error GoTo Err_ImprInAprFo_Click
Dim stDocName As String
stDocName = "InfFO"
DoCmd.RunCommand acCmdSaveRecord
DoCmd.OpenReport stDocName, acNormal
Exit_ImprInAprFo_Click:
Exit Sub
Err_ImprInAprFo_Click:
MsgBox Err.Description
Resume Exit_ImprInAprFo_Click
End Sub
No se se se podrá hacer lo que os voy a contar:
Tengo un boton en un formulario que ejecuta un informe para imprimir. La cuestion viene en que el informe tiene dos páginas, se podría parar la impresión en una página y tras darle a un boton o algo seguir con la segunda página, para poder darle la vuelta al folio e imprir por las dos caras.
En principio si no se puede tengo una solución dividir el informe en dos informes y con un boton imprimr uno y con otro el segundo.
No se si se puede hacer, abajo dejo el código hecho con el asistente
Private Sub ImprInAprFo_Click()
On Error GoTo Err_ImprInAprFo_Click
Dim stDocName As String
stDocName = "InfFO"
DoCmd.RunCommand acCmdSaveRecord
DoCmd.OpenReport stDocName, acNormal
Exit_ImprInAprFo_Click:
Exit Sub
Err_ImprInAprFo_Click:
MsgBox Err.Description
Resume Exit_ImprInAprFo_Click
End Sub
Valora esta pregunta


0