XL 2016 Création bouton impression

Créer une discussion
Répondre
  • Initiateur de la discussion Initiateur de la discussion RoseP
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
R

RoseP

XLDnaute Nouveau
Bonjour à tous,
Je souhaite créer deux boutons d'impression au sein de la même feuille excel avec deux zones d'impressions différentes. Est-ce possible?

J'arrive à créer une macro d'impression, mais je n'arrive pas à définir précisément la partie que je souhaite imprimer en cliquant sur l'un des deux boutons d'impression.
Merci d'avance pour votre aide.
 
Solution
C
Re,

Il faut utiliser l'enregistreur de macro et faire votre mise ne page,
ce qui vous donnerait le code que voici 😉
VB: 
Sub MiseEnPage(Sht as WorkSheet, sPlage As String)
  ' Arrêter la communication avec l'imprimante = accélère le processus
  Application.PrintCommunication = False
  ' Avec la feuille active
  With Sht
    With .PageSetup
      .PrintTitleRows = "$1:$1"
      .PrintTitleColumns = ""
      ' Définit la zone d'impression
      .PrintArea = sPlage
      .LeftHeader = ""
      .CenterHeader = ""
      .RightHeader = ""
      .LeftFooter = ""
      .CenterFooter = ""
      .RightFooter = ""
      ' Définir les marges en centimètres
      .LeftMargin = Application.CentimetersToPoints(0.8)
      .RightMargin =...
Trier par date Trier par votes
Oui le voila :
Code: 
Sub Impression_Jour()

ActiveSheet.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False

End Sub

D'ailleurs, même ce code ne fonctionne plus...
Je souhaite sélectionner sur un bouton : les plages B3 à L27

et sur le second bouton, les plages B43 à L67

Vous remerciant par avance de votre aide!!
 
Vote positif 0 Vote négatif
BrunoM45 à dit:
Bonjour RoseP et bienvenue

Et si vous nous donniez le code créé pour votre impression 🤔
Code à mettre entre balises avec me bouton </>

A+
Cliquez pour agrandir...
Oui le voila :
Code: 
Sub Impression_Jour()

ActiveSheet.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False

End Sub

D'ailleurs, même ce code ne fonctionne plus...
Je souhaite sélectionner sur un bouton : les plages B3 à L27

et sur le second bouton, les plages B43 à L67

Vous remerciant par avance de votre aide!!
 
Vote positif 0 Vote négatif
Re,

Il faut utiliser l'enregistreur de macro et faire votre mise ne page,
ce qui vous donnerait le code que voici 😉
VB: 
Sub MiseEnPage(Sht as WorkSheet, sPlage As String)
  ' Arrêter la communication avec l'imprimante = accélère le processus
  Application.PrintCommunication = False
  ' Avec la feuille active
  With Sht
    With .PageSetup
      .PrintTitleRows = "$1:$1"
      .PrintTitleColumns = ""
      ' Définit la zone d'impression
      .PrintArea = sPlage
      .LeftHeader = ""
      .CenterHeader = ""
      .RightHeader = ""
      .LeftFooter = ""
      .CenterFooter = ""
      .RightFooter = ""
      ' Définir les marges en centimètres
      .LeftMargin = Application.CentimetersToPoints(0.8)
      .RightMargin = Application.CentimetersToPoints(0.8)
      .TopMargin = Application.CentimetersToPoints(0.8)
      .BottomMargin = Application.CentimetersToPoints(0.8)
      .HeaderMargin = Application.CentimetersToPoints(0.8)
      .FooterMargin = Application.CentimetersToPoints(0.8)
      '
      .PrintHeadings = False
      .PrintGridlines = False
      '.PrintComments = xlPrintNoComments
      '.PrintQuality = 600
      .CenterHorizontally = False
      .CenterVertically = False
      .Orientation = xlPortrait
      '.Draft = False
      .PaperSize = xlPaperA4
      .FirstPageNumber = xlAutomatic
      '.Order = xlDownThenOver
      .BlackAndWhite = False
      .Zoom = 100
      '.OddAndEvenPagesHeaderFooter = False
      '.DifferentFirstPageHeaderFooter = False
      '.ScaleWithDocHeaderFooter = True
      '.AlignMarginsHeaderFooter = True
      '.EvenPage.LeftHeader.Text = ""
      '.EvenPage.CenterHeader.Text = ""
      '.EvenPage.RightHeader.Text = ""
      '.EvenPage.LeftFooter.Text = ""
      '.EvenPage.CenterFooter.Text = ""
      '.EvenPage.RightFooter.Text = ""
      '.FirstPage.LeftHeader.Text = ""
      '.FirstPage.CenterHeader.Text = ""
      '.FirstPage.RightHeader.Text = ""
      '.FirstPage.LeftFooter.Text = ""
      '.FirstPage.CenterFooter.Text = ""
      '.FirstPage.RightFooter.Text = ""
    End With
  End With
  Application.PrintCommunication = True
End Sub

A utiliser avant l'impression, comme ceci pour le 1er bouton à adapter pour le second
Code: 
Sub Impression_Jour()
  Call MiseEnPage(ActiveSheet, "B3:L27")
  ActiveSheet.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False
End Sub

A+
 
Dernière modification par un modérateur:
Vote positif 0 Vote négatif
Solution
BrunoM45 à dit:
Re,

Il faut utiliser l'enregistreur de macro et faire votre mise ne page,
ce qui vous donnerait le code que voici 😉
VB: 
Sub MiseEnPage(sPlage As String)
  ' Arrêter la communication avec l'imprimante = accélère le processus
  Application.PrintCommunication = False
  ' Avec la feuille active
  With ActiveSheet
    With .PageSetup
      .PrintTitleRows = "$1:$1"
      .PrintTitleColumns = ""
      ' Définit la zone d'impression
      .PrintArea = sPlage
      .LeftHeader = ""
      .CenterHeader = ""
      .RightHeader = ""
      .LeftFooter = ""
      .CenterFooter = ""
      .RightFooter = ""
      ' Définir les marges en centimètres
      .LeftMargin = Application.CentimetersToPoints(0.8)
      .RightMargin = Application.CentimetersToPoints(0.8)
      .TopMargin = Application.CentimetersToPoints(0.8)
      .BottomMargin = Application.CentimetersToPoints(0.8)
      .HeaderMargin = Application.CentimetersToPoints(0.8)
      .FooterMargin = Application.CentimetersToPoints(0.8)
      '
      .PrintHeadings = False
      .PrintGridlines = False
      '.PrintComments = xlPrintNoComments
      '.PrintQuality = 600
      .CenterHorizontally = False
      .CenterVertically = False
      .Orientation = xlPortrait
      '.Draft = False
      .PaperSize = xlPaperA4
      .FirstPageNumber = xlAutomatic
      '.Order = xlDownThenOver
      .BlackAndWhite = False
      .Zoom = 100
      '.OddAndEvenPagesHeaderFooter = False
      '.DifferentFirstPageHeaderFooter = False
      '.ScaleWithDocHeaderFooter = True
      '.AlignMarginsHeaderFooter = True
      '.EvenPage.LeftHeader.Text = ""
      '.EvenPage.CenterHeader.Text = ""
      '.EvenPage.RightHeader.Text = ""
      '.EvenPage.LeftFooter.Text = ""
      '.EvenPage.CenterFooter.Text = ""
      '.EvenPage.RightFooter.Text = ""
      '.FirstPage.LeftHeader.Text = ""
      '.FirstPage.CenterHeader.Text = ""
      '.FirstPage.RightHeader.Text = ""
      '.FirstPage.LeftFooter.Text = ""
      '.FirstPage.CenterFooter.Text = ""
      '.FirstPage.RightFooter.Text = ""
    End With
  End With
  Application.PrintCommunication = True
End Sub

A utiliser avant l'impression, comme ceci pour le 1er bouton à adapter pour le second
Code: 
Sub Impression_Jour()
  Call MiseEnPage("B3:L27")
  ActiveSheet.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False
End Sub

A+
Cliquez pour agrandir...
Je suis confus, mais cela ne fonctionne pas, je ne comprends pas :/
 
Vote positif 0 Vote négatif
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

JTE
  • Résolu(e)
XL 2010 Excel : Zone impression et Zone texte...
Réponses
5
Affichages
512
JTE
JTE
O
  • Question Question
XL 2010 Boucle sur tout le classeur - Mise en page et impression
Réponses
3
Affichages
379
Olivier1978
O
T
  • Question Question
XL 2013 Impression, choix de feuilles et nombre de copie
Réponses
11
Affichages
577
AtTheOne
AtTheOne
H
  • Question Question
XL 2013 Erreur VBA 1004 Impression zone d'impression tableau
Réponses
13
Affichages
548
Helios77
H
S
  • Question Question
XL 2021 Lien mail hypertexte fonctionnel
Réponses
4
Affichages
149
sfconstant
S
M
  • Question Question
Microsoft 365 Problème d’impression de ticket de caisse : il déroule 2 mètres de papier !
Réponses
2
Affichages
108
microbrasseriewallonie@gm
M
H
  • Question Question
Microsoft 365 Création application excel
Réponses
5
Affichages
293
Lolote83
L
D
  • Question Question
XL 2019 Bouton VBA
Réponses
3
Affichages
414
sylvanu
sylvanu
N
  • Résolu(e)
XL 2010 Mémoriser l'action sur un bouton
2
Réponses
16
Affichages
440
sylvanu
sylvanu
J
  • Résolu(e)
Microsoft 365 Impression groupée de plusieurs feuilles dans plusieurs onglets
2
Réponses
15
Affichages
565
Phil69970
Phil69970
M
  • Question Question
Microsoft 365 automatiser un bouton "efface cellule"
Réponses
5
Affichages
159
matlatarte
M
Titof06
  • Résolu(e)
XL 2019 Création d'un second bouton qui ne fonctionne pas
Réponses
2
Affichages
127
Titof06
Titof06
D
  • Question Question
XL 2013 Aide à création Fichiers, SMS, envoi
Réponses
0
Affichages
232
DARRIEUX
D
N
  • Résolu(e)
Microsoft 365 Rendre des bouton inactifs si des TextBox sont remplies ou pas.
Réponses
5
Affichages
219
NONO14
N
A
  • Résolu(e)
Microsoft 365 Simplification de code
2 3
Réponses
32
Affichages
1 K
Rheeem
R
U
  • Résolu(e)
XL 2016 Création d'un fichier excel à partir d'un bouton
Réponses
7
Affichages
325
Utilisateur_X
U
M
  • Question Question
XL 2010 Macro pour modifier les params d'impression ?
2 3
Réponses
40
Affichages
4 K
ManuXZ
M
P
  • Résolu(e)
Microsoft 365 Exporte format d'impression à d'autres onglet
Réponses
3
Affichages
386
PatrickNyon
P
D
  • Question Question
XL 2021 création de planning perpétuel annualisé
Réponses
1
Affichages
564
vgendron
vgendron
L
  • Résolu(e)
XL 2021 Aide VBA pour appli Gestion de stock
Réponses
2
Affichages
674
LuckyShuri
L
Retour