Définir en VBA la zone d'impression

[roméo.juliette]

salut a tous

je voudrais faire un bouton "imprimer"mais qu'il imprime une zone définie

j'ai aucune idée de comment on fait, merci de venir a mon aide.

merci d'avance

 

[Moa]

Macro pour groupe1 :

Sub Groupe1()
Range("C3:J20").Select
Selection.PrintOut
End Sub

Macro pour groupe3 :

Sub Groupe3()
Columns("D").Select
Range("D2").Activate
Selection.EntireColumn.Hidden = True
Selection.PrintOut Collate:=true
Columns("C:Q").Select
Selection.EntireColumn.Hidden = False
End Sub

Macro pour groupe2 :

Sub Groupe2()
Columns("D:K").Select
Range("D2").Activate
Selection.EntireColumn.Hidden = True
Selection.PrintOut Collate:=true
Columns("C:L").Select
Selection.EntireColumn.Hidden = False
End Sub

@ +

Moa

 

[roméo.juliette]

salut Moa

pas de problème pour le groupe 1
le groupe 2 et 3 je n'y arrive pas je te joins mon document
merci de t'on aide car je rame

@+

roméo.juliette

 

[Vériland]

Bonsoir Roméo.Juliette, Moa

bon ben moi (Moa...lol) j'ai appliqué une autre logique qui est celle de masquer ou afficher une zone avec au final un aperçu avant impression...à voir dans le fichier

 

[Moa]

Salut Vériland !

Au départ j'avais pensé, aussi, à définir une feuille intermédiaire d'impression, puis de faire un copier/coller des Colonnes concernées.

Ca marche aussi.

Je viens de vérifier mes macros du dessus, j'ai en effet oublié de resélectionner les plages à imprimer, puisque je fais un "Selection.PrintOut".

Il faut donc rajouter :

Range("C3:Fin dePlageconcernée").select

entre :

Selection.EntireColumn.Hidden = True et


Selection.PrintOut Collate:=true

Désolé Rj de cet oubli !

@ +

Moa

 

[roméo.juliette]

Salut Vériland

Sa marche merci

Mes peut on inclure des lignes en plus des colonnes, et pour mois ça serait parfais

je te joins mon document

encore une fois merci

roméo.juliette

@+

 

[Moa]

Honnêtement, Rj, le travail est mâché !

Rajouter ou enlever quelques lignes, tu peux quand-même ouvrir le Vbe et modifier les macros en conséquence....Non...???


Moa

 

[Vériland]

Re,

Donc si j'ai bien compris le principe en plus des colonnes tu voudrais également gérer les lignes ?...bon ben dans ce cas il faut rajouter Rows…

donc au départ j'ai toujours la même zone d'impression globale par Fichier / Zone d'impression / Définir, (ici B1:S20) ensuite pour chaque bouton je masque la zone couleur par True et j'affiche par False

Je termine la procédure par un aperçu avant impression (PrintPreview) et j'enclenche automatiquement la macro Affiche pour retrouver le tableau initial à la sortie de l'aperçu...

La seule chose et de ne pas avoir les boutons de commande dans la zone masquée auquel cas ils disparraissent avec les lignes...donc je les ai changé de place pour les mettre dans une zone protégée...

Correction dans le fichier...

 

[pat5]

Bonsoir le forum

Pour des lignes et des colonnes

( ça imprime que les lignes et les colonnes avec un " x " dedans ou tout

autre signe )

Je n'ai pas d'imprimante pour essayer ( ça me bloque à l'impression )
mais ça doit marcher

Pat5

 

[roméo.juliette]

Merci a vous

sa marche

@+

roméo.juliette