imprimir informe a doble cara
Publicado por anselmo (22 intervenciones) el 26/04/2021 22:29:43
Hola
Ante todo, gracias por la ayuda que me puedan brindar, llevo días intentando cosas, pero no lo logro.
He creado un evento On Click, que manda a imprimir un informe según lo seleccionado por el operario, y esta creado para que sea impreso a doble cara. y lo hace, solo que me sale de cabeza la impresión de la segunda cara.
acá les muestro el código para ver si es algo que estoy haciendo mal.
saludos y gracais
Ante todo, gracias por la ayuda que me puedan brindar, llevo días intentando cosas, pero no lo logro.
He creado un evento On Click, que manda a imprimir un informe según lo seleccionado por el operario, y esta creado para que sea impreso a doble cara. y lo hace, solo que me sale de cabeza la impresión de la segunda cara.
acá les muestro el código para ver si es algo que estoy haciendo mal.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Private Sub Imprimir_Click()
On Error GoTo Err_Imprimir_Click
Dim stDocName As String
If Me.Cuadro_combinado20.Value = 1 Then
stDocName = "Solicitudes Informe ACT"
DoCmd.OpenReport stDocName, acPreview
Reports(stDocName).Printer.Duplex = acPRDPHorizontal
DoCmd.OpenReport stDocName, acViewNormal
DoCmd.Close acReport, stDocName
ElseIf Me.Cuadro_combinado20.Value = 2 Then
stDocName = "Solicitudes Informe Grande ACT"
DoCmd.OpenReport stDocName, acPreview
Reports(stDocName).Printer.Duplex = acPRDPHorizontal
DoCmd.OpenReport stDocName, acViewNormal
DoCmd.Close acReport, stDocName
End If
Exit_Imprimir_Click:
Exit Sub
Err_Imprimir_Click:
MsgBox Err.Description
Resume Exit_Imprimir_Click
End Sub
saludos y gracais
Valora esta pregunta
0