aprecu avant impression

[hicham28]

bonjour, svp j'ai besoin de votre aide,
je suis un débutant en vb, j'ai besoin d'activer l'apercu avant d'impression selon un optionbutton mais ca marche pas, c'est quoi mon erreur? merci
voila le code

Private Sub CommandButton1_Click() 'Aperçu avant impression 
If OptionButton1 Then
Me.Hide
Worksheets("effet").PrintPreview
Me.Show
If OptionButton2 Then
Me.Hide
Worksheets("cheque").PrintPreview
Me.Show
End If
End If
End Sub

 

[supercrapaud]

Re : aprecu avant impression

Bonjour,

Mets un fichier car là c'est un peu compliqué à répondre. Tu devrais plutôt créer un formulaire contenant 2 boutons et en cliquant sur l'un tu aurais l'aperçu. type :
sub 1
userform1.show 0
end sub

Et dans ton formulaire une textbox demandant quelle feuille imprimer, 2 boutons et pour chaque bouton le code suivant

Private Sub CommandButton1 (=> ou 2)_Click()
sheets("effet"=> ou "chèque").PrintPreview
end sub

En espérant que cela va t'aider...

 

[hicham28]

Re : aprecu avant impression

merci pour votre reponse,
en effet, j'ai deux optionbutton, et chaque bouton sera consacré a l'affichage d'une des deux feuilles, merci encore voila le code que j'ai remis

j'aimerai que ces deux feuilles soient masqué et je ne sais pas si ca sera possible ou pas j'aimerai avoir une aide dans ce cadre merci

Private Sub CommandButton1_Click() 'Aperçu avant impression de la Feuil1
If OptionButton1.Value = True Then
NomFeuil = "effet"
UserForm1.Hide
Worksheets("effet").PrintPreview
Me.Show
ElseIf OptionButton2.Value = True Then
NomFeuil = "cheque"
UserForm1.Hide
Worksheets("cheque").PrintPreview
Me.Show
End If
End Sub

 

[Bebere]

Re : aprecu avant impression

bonjour Supercrapaud
Hicham

Private Sub CommandButton1_Click() 'Aperçu avant impression de la Feuil1
Dim NomFeuil as string

If OptionButton1.Value = True Then
NomFeuil = "effet"
ElseIf OptionButton2.Value = True Then
NomFeuil = "cheque"
End If

Me.Hide'feuille userform
Worksheets(NomFeuil).PrintPreview
UserForm1.Show'hors feuille userform
End Sub

à bientôt