Problemme de blocogae d'apprecu evant impression

bonjours a tous le monde

j'ai créer un fichier qui suivi les entrées des articles et je créer une formulaire qui permet de Rechercher des articles entrées ,cette formulaire contient un bouton d'imprimer; mais le problème c'est que quant en clic sur ce bouton le formulaire reste toujours et masquer la feuille a imprimer avant l'impression ci joint le fichier.

avec mes salutations a tous les membre de forum

Bonjour Aithassan

Voici le code

Private Sub Cbo_Imprimer_Click()
  On Error Resume Next
  Range("A:A").SpecialCells(xlCellTypeBlanks).EntireRow.Hidden = True
  lignefin = [A:K].Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious, LookIn:=xlValues).Row
  ActiveSheet.PageSetup.PrintArea = Range("a1", Cells(lignefin, 11)).Address
  ' masquer l'usf
  Me.Hide
  ' Afficher l'aperçu avant impression
  ActiveSheet.PrintPreview  '' ou ActiveSheet.printout
  ' Afficher l'USF sortie de l'apperçu
  Me.Show
  '
  Range("A:A").EntireRow.Hidden = False
  On Error GoTo 0
End Sub

@+

merci bien Monsieur BrunoM45 pour la Réponse qui Marche Comme il faut ,merci pour l'importance que vous données a mon Sujet avec mes salutations.