Ritournelle05
XLDnaute Nouveau
Bonjour,
je remercie tout d'abord ceux qui auront le courage de lire ce post.
Je souhaiterai faire un aperçu avant impression d'une userform, j'ai trouvé le code our faire un aperçu d'une feuille excel mais je voudrais l'adapter à un userform. Le voici:
Private Sub CB_apercu_Click()
Application.ScreenUpdating = False
UForm_resultat.Hide
Sheets("Bilan interne des commandes").PrintPreview
Application.ScreenUpdating = True
UForm_resultat.Show
End Sub
J'ai laissé le code comme cela pour le moment pour éviter que mon programme ne beug
Ensuite, j'ai également trouvé le code pour imprimer une userform. J'affiche donc la boîte d'impression mais je ne peux faire aucune modification ou cocher certains critères, ça ne répond pas. Par exemple, je souhaite imprimer ma userform en format paysage et quand je coche cette option dans la boîte d'impression, ma userform est quand même imprimer en portrait. Quand je clique sur le bouton apreçu de cette boîte d'impression, il ne se passe rien.
Voici mon code:
Private Sub CB_imprimer_Click()
Dim P As Byte
P = MsgBox(Range("Résultat!A1"), vbYesNo + vbDefaultButton1)
If P = vbNo Then Exit Sub
Application.Dialogs(xlDialogPrint).Show
With UForm_resultat
.Zoom = 90
End With
UForm_resultat.PrintForm
With UForm_resultat
.Zoom = 100
End With
Unload UForm_resultat
End Sub
Je vous remercie d'avance de votre aide
Bonne soirée
je remercie tout d'abord ceux qui auront le courage de lire ce post.
Je souhaiterai faire un aperçu avant impression d'une userform, j'ai trouvé le code our faire un aperçu d'une feuille excel mais je voudrais l'adapter à un userform. Le voici:
Private Sub CB_apercu_Click()
Application.ScreenUpdating = False
UForm_resultat.Hide
Sheets("Bilan interne des commandes").PrintPreview
Application.ScreenUpdating = True
UForm_resultat.Show
End Sub
J'ai laissé le code comme cela pour le moment pour éviter que mon programme ne beug
Ensuite, j'ai également trouvé le code pour imprimer une userform. J'affiche donc la boîte d'impression mais je ne peux faire aucune modification ou cocher certains critères, ça ne répond pas. Par exemple, je souhaite imprimer ma userform en format paysage et quand je coche cette option dans la boîte d'impression, ma userform est quand même imprimer en portrait. Quand je clique sur le bouton apreçu de cette boîte d'impression, il ne se passe rien.
Voici mon code:
Private Sub CB_imprimer_Click()
Dim P As Byte
P = MsgBox(Range("Résultat!A1"), vbYesNo + vbDefaultButton1)
If P = vbNo Then Exit Sub
Application.Dialogs(xlDialogPrint).Show
With UForm_resultat
.Zoom = 90
End With
UForm_resultat.PrintForm
With UForm_resultat
.Zoom = 100
End With
Unload UForm_resultat
End Sub
Je vous remercie d'avance de votre aide
Bonne soirée