Imprimer plusieurs feuilles dans une même macro

panpan13009

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

Compte Supprimé 979

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

Discussions similaires

Réponses
1
Affichages
566

Statistiques des forums

Discussions
312 841
Messages
2 092 703
Membres
105 514
dernier inscrit
Hébera