Preview & impression multiple + sauvegarde état

Bonjour

Un bouton "Impression" déclenche la procédure suivante : impression d'un
état "Demande de facture" en 2 exemplaires, sauvegarde de l'état aux formats
Excel et Snapshot et mise à jour d'une case "Facturé" pour ne plus devoir
traiter les anciens enregistrements.

Un bouton "Preview" permet de visualiser l'état avant de lancer l'impression.

Voici mon problème. Merci d'avance pour l'aide apportée.
Est-il possible d'empêcher l'utilisateur d'imprimer via la pré visualisation ?
Ou d'enchaîner la procédure à partir du preview ?

Actuellement en enchaînant le tout, le preview ne visualise pas entièrement
la page mais affiche la suite du programme (msgbox).
Et si je mets la programmation dans l'état "avant fermeture", Access ne
permet pas d'imprimer ou sauvegarder un état déjà ouvert.

Dim stDocNom As String
Dim stFiXLS As String

stDocNom = "E_Facture"
DoCmd.OpenReport stDocNom, acNormal
'DoCmd.OpenReport stDocNom, acPreview

Dim Msg, Style, Title, Response
Msg = "Faut-il cocher la case FACTURES ?" ' Définit le message.
Style = vbYesNo + vbQuestion + vbDefaultButton2 ' Définit les boutons.
Title = "Mise à jour case FACTURES " ' Définit le titre.
Response = MsgBox(Msg, Style, Title) ' Affiche le message.
If Response = vbYes Then ' L'utilisateur a choisi Oui.
DoCmd.OpenReport stDocNom, acNormal
DoCmd.OpenReport stDocNom, acNormal
stFichierExcel = [T] & Mid$(Now(), 7, 4) & Mid$(Now(), 4, 2) &
Left$(Now(), 2)
DoCmd.OutputTo acReport, stDocNom, acFormatXLS, ("N:\" & stFiXLS & ".xls")
DoCmd.OutputTo acReport, stDocNom, acFormatSNP, ("N:\" & stFiXLS & ".snp")

DoCmd.SetWarnings False
Dim Qry As DAO.QueryDef
Set Qry = CurrentDb.QueryDefs("R_majCaseFacture")
Qry.Execute
Set Qry = Nothing
DoCmd.SetWarnings True
Else
' Cases FACTURES non modifiées
End If
DoCmd.Close acReport, stDocNom