Microsoft 365 zone impression

Staple1600

XLDnaute Barbatruc

• 28 Février 2020

• #2

Bonsoir le fil, Moreno076

Moreno076
Normalement, cela devrait le faire, non ?

VB:

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

 

Vote positif 0 Vote négatif

Solution

M

Moreno076

XLDnaute Impliqué

• 28 Février 2020

• #3

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 28 Février 2020

• #4

Re

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

 

Vote positif 0 Vote négatif

M

Moreno076

XLDnaute Impliqué

• 28 Février 2020

• #5

Staple1600 à dit:

Re

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

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 28 Février 2020

• #6

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.

Cliquez pour agrandir...

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.

 

Vote positif 0 Vote négatif

M

Moreno076

XLDnaute Impliqué

• 28 Février 2020

• #7

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

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 28 Février 2020

• #8

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

 

Vote positif 0 Vote négatif

GALOUGALOU

XLDnaute Accro

• 28 Février 2020

• #9

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

 

Vote positif 0 Vote négatif

M

Moreno076

XLDnaute Impliqué

• 28 Février 2020

• #10

Dranreb à dit:

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

Cliquez pour agrandir...

Bonsoir Danreb

 

Pièces jointes

• GRv31TEST.xlsm

  423 KB · Affichages: 12

Vote positif 0 Vote négatif

GALOUGALOU

XLDnaute Accro

• 28 Février 2020

• #11

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
@+

 

Vote positif 0 Vote négatif

M

Moreno076

XLDnaute Impliqué

• 28 Février 2020

• #12

GALOUGALOU à dit:

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
@+

Cliquez pour agrandir...

Merci quand même.

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 28 Février 2020

• #13

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

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 28 Février 2020

• #14

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.

 

Vote positif 0 Vote négatif

M

Moreno076

XLDnaute Impliqué

• 28 Février 2020

• #15

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

 

Vote positif 0 Vote négatif