Pausa al imprimir
Publicado por Luis David (9 intervenciones) el 31/05/2018 06:14:02
Hola amigos, espero que alguien pueda ayudarme. Trataré de ser breve. La base de datos que manejo, me genera muchos reportes individuales, alrededor de 80 hojas, separadas no son continuas, Reporte1... Reporte2... y asi hasta el Reporte80. Para usos prácticos mando a imprimir todos los reportes en PDF al mismo tiempo con este comando:
El problema que tengo es que al final me desordena los documentos, no todos, pero algunos me los pone en otro lugar y necesito que vayan en el orden que es. Yo pienso que como son muchos reportes en ocasiones se satura o algo asi e "imprime" unos antes que otros, no siempre en el orden en el que van.
Mi pregunta es si se puede hacer una "pausa" entre impresion e impresion, algo como esto:
Es posible?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Private Sub Comando651_Click()
On Error GoTo Err_Comando651_Click
Dim stDocName As String
stDocName = "Reporte1"
DoCmd.OpenReport "Reporte1", acViewNormal, "", "[Empresa]![Id_Principal]=" & Me.Id_Principal
(asi uno por uno hasta...)
stDocName = "Reporte80"
DoCmd.OpenReport "Reporte80", acViewNormal, "", "[Empresa]![Id_Principal]=" & Me.Id_Principal
Exit_Comando651_Click:Exit Sub
Err_Comando651_Click: MsgBox Err.DescriptionResume Exit_Comando651_Click
End Sub
El problema que tengo es que al final me desordena los documentos, no todos, pero algunos me los pone en otro lugar y necesito que vayan en el orden que es. Yo pienso que como son muchos reportes en ocasiones se satura o algo asi e "imprime" unos antes que otros, no siempre en el orden en el que van.
Mi pregunta es si se puede hacer una "pausa" entre impresion e impresion, algo como esto:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Private Sub Comando651_Click()
On Error GoTo Err_Comando651_Click
Dim stDocName As String
stDocName = "Reporte1"
DoCmd.OpenReport "Reporte1", acViewNormal, "", "[Empresa]![Id_Principal]=" & Me.Id_Principal
(AQUI PONER UNA PAUSA, POR EJEMPLO DE UN SEGUNDO Y LUEGO CONTINAR EL REPORTE SIGUIENTE)
stDocName = "Reporte2"
DoCmd.OpenReport "Reporte2", acViewNormal, "", "[Empresa]![Id_Principal]=" & Me.Id_Principal
(AQUI PONER OTRA PAUSA DE UN SEGUNDO Y LUEGO CONTINAR EL REPORTE SIGUIENTE Y ASI HASTA EL REPORTE 80)
stDocName = "Reporte80"
DoCmd.OpenReport "Reporte80", acViewNormal, "", "[Empresa]![Id_Principal]=" & Me.Id_Principal
Exit_Comando651_Click:Exit Sub
Err_Comando651_Click: MsgBox Err.DescriptionResume Exit_Comando651_Click
End Sub
Es posible?
Valora esta pregunta
0
