la macro ci dessous permet de passer le fond de l'USF en blanc le temps de l'impression , puis de reinitialiser la couleur d'origine . J'espere que cela pourra t'aider
Private Sub CommandButton1_Click()
Dim Couleur As String
Application.ScreenUpdating = False
Couleur = Me.BackColor
Me.BackColor = &H80000009
Me.PrintForm
Me.BackColor = Couleur
Application.ScreenUpdating = True
End Sub