XL 2016 Création bouton impression

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
R

RoseP

XLDnaute Nouveau
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
R

RoseP

XLDnaute Nouveau
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
C

Compte Supprimé 979

Guest
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
R

RoseP

XLDnaute Nouveau
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

Discussions similaires

C
  • Résolu(e)
Macro VBA. Impression de plusieurs feuilles d'un classeur en fonction d'une autre feuille
2
Réponses
16
Affichages
848
Hasco
Hasco
J
  • Question
XL 2016 envoie mail automatique lors de double-clic sur cellule
Réponses
6
Affichages
262
J@ba
J
J
  • Question
XL 2016 Problème de formulaire, checkbox dynamiques
Réponses
12
Affichages
280
Jingxi
J
L
  • Résolu(e)
XL 2019 Export to pdf / Problème Zone d'impression
Réponses
7
Affichages
513
Compte Supprimé 979
C
B
  • Résolu(e)
XL 2013 Barre de progression.
Réponses
7
Affichages
411
fanfan38
fanfan38
halecs93
  • Résolu(e)
XL 2016 calcul en colonne BS qui ne se met pas à jour
Réponses
3
Affichages
436
halecs93
halecs93
C
  • Question
XL 2021 VBA - créer une boucle de calcul pour remplir un tableau à partir de 2 autres sur une même feuille
Réponses
7
Affichages
314
clineM
C
H
  • Résolu(e)
XL 2021 Fiche de non conformité et tableau de suivi
2
Réponses
15
Affichages
900
Phil69970
Phil69970
F
  • Question
XL 2021 Boutons Excel vers emplacement de stock
Réponses
6
Affichages
329
chris
chris
L
  • Résolu(e)
Microsoft 365 Création d'un code VBA pour sélectionner des zone selon choix multiples.
Réponses
3
Affichages
145
Lionel Alfred
L

Membres actuellement en ligne

5 membres et 99 invités.

Partager cette page

Tutos vidéos

Power Query : Ajouter des requêtes (Excel et Power BI)
Créez votre première fonction LAMBDA dans Excel en 3 étapes!
LAMBDA, l’arme secrète de Microsoft pour Excel !
Office Insider - Découvrez les nouveautés Excel avant tout le monde

Statistiques des forums

Discussions
312 215
Messages
2 086 328
Membres
103 180
dernier inscrit
Vcr