Imprimer plusieurs feuilles dans une même macro

panpan13009 · 26 Décembre 2012

Bonjour,

je souhaiterais ajouter un bouton pour pouvoir imprimer deux feuilles à la suite dans une même macro.

Par ex pour la première feuille j'ai

Sub Imprimer_Devis()
'
' Imprimer_Devis Macro
' Macro enregistrée le 22/10/99 par VdM
'

'
Range("A1:F49").Select
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate _
:=True

ActiveWindow.SelectedSheets.PrintOut From:=2, To:=2, Copies:=1, Collate _
:=True

ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate _
:=True

ActiveWindow.SelectedSheets.PrintOut From:=2, To:=2, Copies:=1, Collate _
:=True

ActiveWindow.SelectedSheets.PrintOut From:=3, To:=3, Copies:=1, Collate _
:=True

ActiveWindow.SelectedSheets.PrintOut From:=2, To:=2, Copies:=1, Collate _
:=True

End Sub

mais pourquoi il est noté au début Range("A1:F49").Select alors que ce qu'il faut enregistrer est de A1 à AV60

Je souhaiterais donc à la suite de devis-dessus imprimer la feuille Funé de A1 à A59 feuille qui est seule et à imprimer une seule fois.

Pourriez vous me réécrire la macro en corrigeant s'il y a des fautes au dessus et en rajoutant la deuxieme feuille

Merci à tous et toutes

Compte Supprimé 979 · 26 Décembre 2012

Re : Imprimer plusieurs feuilles dans une même macro

Bonjour panpan13009

Voici le code

VB:

Sub Imprimer_Devis()
  ' Avec la feuille Devis
  With Sheets("Devis")
    ' Définir la zone d'impression
    .PageSetup.PrintArea = "A1:AV60"
    ' Imprimer la feuille
    .PrintOut From:=1, To:=1, Copies:=1, Collate:=False
  End With
  ' Avec la feuille Devis
  With Sheets("Funé")
    ' Définir la zone d'impression
    .PageSetup.PrintArea = "A1:A59"
    ' Imprimer la feuille
    .PrintOut From:=1, To:=1, Copies:=1, Collate:=False
  End With
End Sub

A+

Imprimer plusieurs feuilles dans une même macro

panpan13009

XLDnaute Nouveau

Compte Supprimé 979

Guest

Discussions similaires