Impression avec choix page et imprimante. Le sujet est résolu

Y compris Power BI, Power Query et toute autre question en lien avec Excel
L
Ldopa
Membre fidèle
Membre fidèle
Messages : 178
Inscrit le : 19 septembre 2016
Version d'Excel : 2016 FR

Message par Ldopa » 29 août 2017, 18:33

Bonjour à toutes et à tous.

J'ai un fichier avec deux pages dans la même feuille. Je voudrais pouvoir choisir d'en imprimer une ou les deux avec des checkbox et aussi pouvoir choisir l'imprimante, tous cela en VBA.
Merci d'avance pour votre aide.
T
Theze
Passionné d'Excel
Passionné d'Excel
Messages : 3'700
Appréciations reçues : 265
Inscrit le : 26 janvier 2011
Version d'Excel : 2007

Message par Theze » 29 août 2017, 20:12

Bonjour,

Pour les deux pages, regardes du côté de "PrintArea" et pour le choix de l'imprimante, je suis actuellement sur IPAD et donc pas voir les pages de dialogue mais probablement "Application.Dialogs(xlDialogPrinterSetup)"
Il vaut mieux un qui sait que cent qui cherchent :wink:

Ce forum étant un lieu de partage, je n'accepte pas les messages privés !
L
Ldopa
Membre fidèle
Membre fidèle
Messages : 178
Inscrit le : 19 septembre 2016
Version d'Excel : 2016 FR

Message par Ldopa » 29 août 2017, 20:31

Bonsoir Theze.
Merci pour ton aide, mais je patauge complètement.
Voila j'ai créer un formulaire avec deux ckeckbox pour choisir la page à imprimer (voir ci-dessous).

"Private Sub CheckBox1_Click() 'N°1
If CheckBox1.Value = True Then 'Si coché ...
Range("A1:H37").Select
End If
End Sub
Private Sub CheckBox2_Click() 'N°2
If CheckBox2.Value = True Then 'Si coché ...
Range("A39:H75").Select

End If
End Sub"


Dans le formulaire il y un bouton pour lancer l'impression. Je voudrais qu'avec ce bouton s'ouvre une fenêtre pour choisir l’imprimante à utiliser et ensuite lancer l'impression de la ou des pages choisies précédemment.
Et la je patine complètement.
Merci d'avance
a
archer
Membre impliqué
Membre impliqué
Messages : 1'177
Appréciations reçues : 89
Inscrit le : 8 avril 2017
Version d'Excel : 2007/2010

Message par archer » 29 août 2017, 21:15

bonjour
A tester
Sub TestImp()
Application.Dialogs(Excel.XlBuiltInDialog.xlDialogPrinterSetup).Show
End Sub
A+
Maurice
T
Theze
Passionné d'Excel
Passionné d'Excel
Messages : 3'700
Appréciations reçues : 265
Inscrit le : 26 janvier 2011
Version d'Excel : 2007

Message par Theze » 30 août 2017, 08:37

Bonjour,

Avec ceci, tu affiche la boite de dialogue Excel pour l'impression :
Application.Dialogs(xlDialogPrint).Show
Testes ce code :
Private Sub CheckBox1_Click() 'N°1

    If CheckBox1.Value = True Then Imprimer "A1:H37"

End Sub
Private Sub CheckBox2_Click() 'N°2

End Sub
    If CheckBox2.Value = True Then Imprimer "A39:H75"
    
End If

Sub Imprimer(Zone As String)

    'adapter le nom de la feuille...    
    With Worksheets("Feuil1").PageSetup
    
        .PrintArea = ""
        .PrintArea = Zone
        
    End With

    'en cliquant sur le bouton "Aperçu" de la boite de dialogue, tu peux voir les valeurs qui seront imprimées
    Application.Dialogs(xlDialogPrint).Show
    
End Sub
Il vaut mieux un qui sait que cent qui cherchent :wink:

Ce forum étant un lieu de partage, je n'accepte pas les messages privés !
L
Ldopa
Membre fidèle
Membre fidèle
Messages : 178
Inscrit le : 19 septembre 2016
Version d'Excel : 2016 FR

Message par Ldopa » 30 août 2017, 18:59

Bonsoir These.
Merci pour le coup de main.
J'ai utilisé Application.Dialogs(xlDialogPrint).Show, avec une macro qui me permet de sélectionner la zone à imprimer
Ce qui fait que la boite de dialogue de l'imprimante s'ouvre je sélectionne l'imprimante et imprimer la sélection et c'est Ok. :)
Merci
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message