Microsoft 365 zone impression

[Moreno076]

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

 

[Staple1600]

Bonsoir le fil, Moreno076

Moreno076
Normalement, cela devrait le faire, non ?

Sub Zone_Impression()
With ActiveSheet
.PageSetup.PrintArea = .Cells(2).Resize(.Cells(Rows.Count, 2).End(3).Row, 13).Address
End With
End Sub

 

[Moreno076]

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

 

[Staple1600]

Re

Ton code ne ressemble pas au mien !!!
Testes seulement le mien tel quel et après on en recause

 

[Moreno076]

Re

Ton code ne ressemble pas au mien !!!
Testes seulement le mien tel quel et après on en recause

Ok la je m'ai mis j'ai 183 lignes et 2 pages en visu (zone d impression prédéfinie)

 

[Staple1600]

Re

Pour info
Tu disais

la macro défini actuellement une zone d'impression correspondant à deux pages allant de la colonne B à la colonne N.

C'est exactement ce que fait mon code VBA
Il définit une zone d'impression de B1 à Nx
ou x est le numéro de ligne de la dernière cellule non vide de la colonne B.

 

[Moreno076]

Et bien là je n'ai que deux pages en impressions s arretant a 55.

 

[Dranreb]

Bonsoir.
Comme d'habitude, sans classeur joint on parle dans le vide …

 

[GALOUGALOU]

bonjour le fil bonjour moreno076 bonjour staple1600 bonjour dranreb
j'ai testé la macro de staple 1600
elle fonctionne nickel
185 lignes à l'impression avec des lignes vides au milieu, de la colonne B à la colonne N
cordialement
galougalou

 

[Moreno076]

Bonsoir.
Comme d'habitude, sans classeur joint on parle dans le vide …

Bonsoir Danreb

 

[GALOUGALOU]

bonsoir le fil
dans la macro il n'y a pas printout ou printpreview. mais comme pour l'autre fil mon système n'accepte pas votre version de fichier 32 bits, donc à voir avec staple1600
@+

 

[Moreno076]

bonsoir le fil
dans la macro il n'y a pas printout ou printpreview. mais comme pour l'autre fil mon système n'accepte pas votre version de fichier 32 bits, donc à voir avec staple1600
@+

Merci quand même.

 

[Staple1600]

Re

Donc je confirme ce que je disais dans le message#6
La preuve

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

 

[Dranreb]

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.

 

[Moreno076]

Bon merci quand même je vais rester à mon impression de deux pages ce sera plus simple. Bonen nuit tout le monde et merci