Macro actualizar datos + imprimir
Buenas tardes: Me acabo de inscribir y no se muy bien como funciona el foro, pero tengo esta pregunta: Tengo una macro de excel en la que mediante un MsgBox pregunto si se quiere imprimir un informe, si la respuesta es sí actualizo datos que tengo conectados con una tabla en accessy después hago una presentación preliminar, el problema es que se ejecuta al contrario, primero la vista previa y después la actualización de datos, Gracias por todo
Esta es la macro
Sub Macro7()
Dim resp As Integer
resp = MsgBox("¿Deseas Imprimir el Informe ahora?", vbYesNo)
If resp = vbYes Then
Sheets("datos").Select
Range("B1").Select
ActiveWorkbook.RefreshAll
Sheets("tablas").Select
ActiveWindow.SelectedSheets.PrintPreview
Else
Workbooks.Close
End If
End Sub
Esta es la macro
Sub Macro7()
Dim resp As Integer
resp = MsgBox("¿Deseas Imprimir el Informe ahora?", vbYesNo)
If resp = vbYes Then
Sheets("datos").Select
Range("B1").Select
ActiveWorkbook.RefreshAll
Sheets("tablas").Select
ActiveWindow.SelectedSheets.PrintPreview
Else
Workbooks.Close
End If
End Sub
1 respuesta
Respuesta de Juan Carlos González Chavarría
1
Caramba que rapidez, muchas gracias, pero tampoco me funciona, sigue haciendo la presentación preliminar antes de actualizar los datos
Ponlo en el evento BeforePrint de la hoja.
Perdoname, pero en excel ¿dónde se pone BeforePrint? Porque en access si donde hacerlo, pero en excel no
Gracias de nuevo
Gracias de nuevo
Te metes al editor de VBA y das doble clic sobre el libro, en los Combobox que salen, al de la izquierda seleccionas el workbook y en la derecha el evento.
