Esperar la ejecución en bucle
Publicado por Javier (2 intervenciones) el 28/02/2020 15:56:39
Hola, tengo un código para mandar a imprimir dentro de un bucle, donde el usuario tiene que decir por cada iteración si quiere o no imprimir. La cuestión es que cuando sale el diálogo de imprimir el código sigue ejecutándose y no espera a que el usuario seleccione impresora y mande imprimir.
Gracias anticipadas.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub imprimirCortes()
Range("E1").Copy Range("B2")
While Range("B2") <= Range("E2")
ActiveSheet.Calculate
Dim answer As Integer
answer = MsgBox("¿Quieres imprimir este corte?", vbYesNo)
If answer = 6 Then
ActiveSheet.PageSetup.PrintArea = "A1:B16"
Application.CommandBars.ExecuteMso ("PrintPreviewAndPrint")
End If
Range("B2").Value = Range("B2") + 1
Wend
Range("E2").Copy Range("B2")
End Sub
Gracias anticipadas.
Valora esta pregunta
0