Automatiser une impression

S

saverloo

XLDnaute Occasionnel

• 27 Novembre 2008

• #2

Re : Automatiser une impression

pourquoi tu ne passe pas par une macro tu realises ta macro tu imprimes tes doc et ensuite tu ajoutes un bouton et le tour est joué

 

Vote positif 0 Vote négatif

noviceAG

XLDnaute Impliqué

• 27 Novembre 2008

• #3

Re : Automatiser une impression

Bonjour koukou, savertoo, le Forum,
Un essai avec zones nommées tata, titi, toto :

Sub LanceImpression()
Application.Goto Reference:="tata"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Application.Goto Reference:="titi"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Application.Goto Reference:="toto"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Range("A1").Select
End Sub

Bonne journée à vous tous

 

Vote positif 0 Vote négatif

G

Guest

Guest

• 27 Novembre 2008

• #4

Re : Automatiser une impression

Bonjour à tous, le forum,

voici 2 macro à adapter. L'une avec aperçu avant impression pour chaque tableau et l'autre sans.

Remplacer 'Feuil1' par le nom de la feuille qui contient les tableaux
Remplacer 'Tableau 1, 2, 3 Par le noms des tableaux.

Code:

Sub ImprimerTableaux()
    With Sheets("Feuil1").Range("Tableau1")
        .PrintPreview           'Lance l'apperçu avant impression
        .PrintOut               'Lance l'impression
    End With
    
    With Sheets("Feuil1").Range("Tableau2")
        .PrintPreview
        .PrintOut
    End With
    
    With Sheets("Feuil1").Range("Tableau3")
        .PrintPreview
        .PrintOut
    End With
    
End Sub
Sub ImprimerTableaux2()
    With Sheets("Feuil1")
        .Range("Tableau1").PrintOut                'Lance l'impression
        .Range("Tableau2").PrintOut
        .Range("Tableau3").PrintOut
    End With   
End Sub

A+

 

Vote positif 0 Vote négatif

S

STephane

XLDnaute Occasionnel

• 27 Novembre 2008

• #5

Re : Automatiser une impression

bonjour

tu peux définir une zone d'impression comprenant plusieurs plages comme montré ci-dessous
ActiveSheet.PageSetup.PrintArea = "$D$19:$E$23,$B$8:$C$12"

en manipulant la propriété address de l'objet plage tu devrais y arriver
exemple avec 2 plages nommées test1 & test2
ActiveSheet.PageSetup.PrintArea = [test1].Address & "," & [test2].Address

bye

 

Vote positif 0 Vote négatif

koukou40

XLDnaute Occasionnel

• 27 Novembre 2008

• #6

Re : Automatiser une impression

Merci à vous tous !

J'ai retenu la solution de Hasco...parfait !

A bientôt.

Cdt,

 

Vote positif 0 Vote négatif

S

STephane

XLDnaute Occasionnel

• 27 Novembre 2008

• #7

Re : Automatiser une impression

bonsoir

sauf que là tu fais 3 impressions et non pas une seule.

 

Vote positif 0 Vote négatif

G

Guest

Guest

• 27 Novembre 2008

• #8

Re : Automatiser une impression

Stéphane,

sauf que là tu fais 3 impressions et non pas une seule

Cliquez pour agrandir...

C'était pas le souhait de KouKou40?

A+

 

Vote positif 0 Vote négatif

S

STephane

XLDnaute Occasionnel

• 28 Novembre 2008

• #9

Re : Automatiser une impression

ah oui il dit "les imprimer un par un",
mais ce qui m'induit en erreur c'est qu'il dit aussi "les imprimer tous en une seule manipulation" ;-)

 

Vote positif 0 Vote négatif