apercu avant impression feuille masqué

[hicham28]

bonsoir a vous, merci en avance de votre aide,
mon problmes se resume que j'aimerai affichier avoir une aprecu avant impression de deux feuilles masqué: effet et cheque, voila mon code
et merci

Private Sub Apercu_Click() 'Aperçu avant impression de la Feuil1
If Effet.Value = True Then
NomFeuil = "effet"
UserForm1.Hide
Worksheets("effet").PrintPreview
Me.Show
ElseIf Cheque.Value = True Then
NomFeuil = "cheque"
UserForm1.Hide
Worksheets("cheque").PrintPreview
Me.Show
Else
MsgBox ("vous devez choisir une feuille")
End If
End Sub

 

[Compte Supprimé 979]

Re : apercu avant impression feuille masqué

Bonjour Hicham28,

Tu dois obligatoirement afficher la feuille avant de faire un apperçu avant impression 😉

Private Sub Apercu_Click()  'Aperçu avant impression de la Feuil1
  If Effet.Value = True Then
    NomFeuil = "effet"
    UserForm1.Hide
    With Worksheets("effet")
      .Visible = True
      .PrintPreview
      .Visible = False
    End With
    Me.Show
  ElseIf Cheque.Value = True Then
    NomFeuil = "cheque"
    UserForm1.Hide
    With Worksheets("cheque")
      .Visible = True
      .PrintPreview
      .Visible = False
    End With
    Me.Show
  Else
    MsgBox ("vous devez choisir une feuille")
  End If
End Sub

A+

 

[hicham28]

Re : apercu avant impression feuille masqué

merci c'est gentil

 

[hicham28]

Re : apercu avant impression feuille masqué

bonjour, une autre question svp, comment faire pour activé une feuille apres la fin de l'apreçu, avec activate ca n'as pas marché, et je ne comprends pas pk,
merci