Microsoft 365 zone impression

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Moreno076

XLDnaute Impliqué
Bonsoir à tous.

J'ai un bouton impression où la macro défini actuellement une zone d'impression correspondant à deux pages allant de la colonne B à la colonne N.

Je voudrais savoir si il est possible de garder ces parametres mais en se basant aussi sur le nombre de lignes pleines. La plus part du temps une feuille suffit.

Macro actuelle

Sub Impression()
'
' IMPRESSION Macro
'

Range("A:A").Select
Selection.EntireColumn.Hidden = True
ActiveWindow.SelectedSheets.PrintOut Copies:=3, Collate:=True, _
IgnorePrintAreas:=False
Range("A:A").Select
Selection.EntireColumn.Hidden = False
Range("A1").Select
End Sub


Merci
 
Dans mon cas non ca marche pas. Il faut supprimer la zone d impression predefini avant? Imprimer que la colonne B à N.

Tout est dans el desordre

Sub Impression()
'
Range("A:A").Select
Selection.EntireColumn.Hidden = True
With ActiveSheet
.PageSetup.PrintArea = .Cells(2).Resize(.Cells(Rows.Count, 2).End(3).Row, 13).Address
End With
ActiveWindow.SelectedSheets.PrintOut Copies:=3, Collate:=True, _
IgnorePrintAreas:=True
Range("A:A").Select
Selection.EntireColumn.Hidden = False
Range("A1").Select
End Sub
 
Re

Donc je confirme ce que je disais dans le message#6
La preuve 😉
VB:
Sub Impression_V2()
Dim Zone_Print As Range
With ActiveSheet
Set Zone_Print = .Cells(2).Resize(.Cells(Rows.Count, 2).End(3).Row, 13)
.PageSetup.PrintArea = Zone_Print.Address
MsgBox Zone_Print.Address
End With
End Sub
 
Dans le classeur joint il n'y avait pas 183 lignes renseignées dans la feuille Synthèse mais 9.
À l'ouverture, la zone d'impression était néanmoins définir à B1:N51.
après exécution de la macro Impression, du module Impression, qui ne fait pas d'impression d'ailleurs, la zone d'impression est définie à B1:N9.
Tout cela me semble très correct.
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
10
Affichages
467
Réponses
10
Affichages
772
Retour