Zone d' impression et Apercu avant impression

  • Initiateur de la discussion Initiateur de la discussion Aladin
  • 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 !

A

Aladin

Guest
Bonjour le forum


Je recherche du code vba à mettre dans trois macros 'Zone d' impression avec ses sous menus ' Apercu avant impression et Imprimer.

Merci à tous ceux qui pourront m' aider


Aladin
 
Bonsoir
tu dois renseigner les différentes variables et ça roule

Code:
Sub imprim()

    Range('A1:F31').Select
    ActiveSheet.PageSetup.PrintArea = '$A$1:$F$31'
    With ActiveSheet.PageSetup
        .LeftHeader = ''
        .CenterHeader = ''
        .RightHeader = ''
        .LeftFooter = ''
        .CenterFooter = ''
        .RightFooter = ''
        .LeftMargin = Application.InchesToPoints(0.78740157480315)
        .RightMargin = Application.InchesToPoints(0.78740157480315)
        .TopMargin = Application.InchesToPoints(0.984251968503937)
        .BottomMargin = Application.InchesToPoints(0.984251968503937)
        .HeaderMargin = Application.InchesToPoints(0.511811023622047)
        .FooterMargin = Application.InchesToPoints(0.511811023622047)
        .PrintHeadings = False
        .PrintGridlines = False
        .PrintComments = xlPrintNoComments
        .PrintQuality = -3
        .CenterHorizontally = False
        .CenterVertically = False
        .Orientation = xlPortrait
        .Draft = False
        .PaperSize = xlPaperA4
        .FirstPageNumber = xlAutomatic
        .Order = xlDownThenOver
        .BlackAndWhite = False
        .Zoom = 100
        .PrintErrors = xlPrintErrorsDisplayed
    End With
    ActiveWindow.SelectedSheets.PrintPreview
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End Sub
 
Bonjour dg62

Merci pour ta macro d' impression mais il y a un bug a la ligne suivante
.PrintErrors = xlPrintErrorsDisplayed

Mais dans cete macro, l' on n' a pas l' apercu avant impression ?

Aladin
 
bonsoir,
Si DG est parti au gastro je prend sa place...
je pense que tu peux virer '.PrintErrors = xlPrintErrorsDisplayed' sans problème.

cette ligne affiche un aperçu :
ActiveWindow.SelectedSheets.PrintPreview

Cette ligne imprime directement :
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

Il peut-être préférable de remplacer ces deux dernières lignes par :
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Preview := True, Collate:=True
Ok ?
 
- 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
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Réponses
7
Affichages
165
Réponses
40
Affichages
1 K
Réponses
35
Affichages
1 K
Retour