Automatiser une impression

[koukou40]

Bonjour !

Dans un fichier, j'ai plusieurs tableaux identiques les uns en dessous des autres. J'ai défini un nom à chacun afin de les imprimer un par un.
N'y aurait-il pas une solution (VBA ?) pour je puisse les imprimer tous en une seule manipulation ?

Je vous remercie,

Cdt,

 

[saverloo]

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é

 

[noviceAG]

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

 

[Guest]

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.

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+

 

[STephane]

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

 

[koukou40]

Re : Automatiser une impression

Merci à vous tous !

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

A bientôt.

Cdt,

 

[STephane]

Re : Automatiser une impression

bonsoir

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

 

[Guest]

Re : Automatiser une impression

Stéphane,

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

C'était pas le souhait de KouKou40?

A+

 

[STephane]

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" ;-)