Autres Eviter saut de page.

FOUQUET Yves · 16 Décembre 2020

Bonjour,

J'imprime par procédure des cartes d'adhérents sélectionnées dans un Listview.
Pour faire cela je copie les éléments sélectionnés de la listview dans une feuille (listecarte) que je créée pour l'occasion.
Une fois ma feuille obtenue je lance en boucle l'impression de mes cartes dans une maquette (dans une autre feuille) que je complète du NOM du PRENOM et DATE, à partir
de ma listecarte.
Je lance l'impression ainsi:

VB:

.PageSetup.PrintArea = "A1:E11"
.PageSetup.PaperSize = xlPaperA4
.PageSetup.FitToPagesWide = 1
.PageSetup.FitToPagesTall = 1
.PrintOut Copies:=1, Collate:=True

Sauf que chaque carte (assez petite) me bouffe une page!
Comment éviter le saut de page final à chaque carte pour que les cartes s'enchainent sur la même feuille...
Il doit y avoir une propriété d'imprimante qui doit gérer cela mais laquelle ?

Merci de votre aide
Yves

Phil69970 · 17 Décembre 2020

Bonjour Yves , le forum

Petite modification de mon code (J'ai bégayé un peu quand j'ai écrit le code cette nuit !!!)
J'ai versifié ça fonctionne

VB:

Sub SautPage()

'Ajoute les sauts de page
Worksheets("Carte").Rows(5).PageBreak = xlPageBreakManual ' Saut de page avant la 5 eme ligne
Worksheets("Carte").Columns("C").PageBreak = xlPageBreakManual ' Saut de page vertical avant la 3eme colonne

'Supprime les sauts de page
Worksheets("Carte").Rows(5).PageBreak = xlNone
Worksheets("Carte").Columns("C").PageBreak = xlNone

End Sub

@Phil69970

Phil69970 · 17 Décembre 2020

Bonjour Yves , le forum

Je te propose un exemple à adapter

Pour un saut de page avant la 5 eme ligne

VB:

Worksheets("Feuil1").Rows(5).PageBreak = xlPageBreakManual

Pour un saut de page vertical avant la 3eme colonne

VB:

Worksheets("Feuil1").Columns("C").PageBreak = xlPageBreakManual

Pour supprimer un saut de page

VB:

Worksheets("Feuil1").Rows(5).PageBreak .PageBreak = xlNone
Worksheets("Feuil1").Columns("C").PageBreak = xlNone

@Phil69970

FOUQUET Yves · 17 Décembre 2020

Merci de ta réponse.
Mais quand j'ajoute tes lignes cela me provoque une erreur:
"Propriété ou méthode non gérée par cet objet"

VB:

Worksheets("Carte").Rows(5).PageBreak .PageBreak = xlNone
Worksheets("Carte").Columns("C").PageBreak = xlNone
    .PageSetup.PrintArea = "A1:E11"
    .PageSetup.PaperSize = xlPaperA4
    .PageSetup.FitToPagesWide = 1
    .PageSetup.FitToPagesTall = 1
    .PrintOut Copies:=1, Collate:=True

FOUQUET Yves · 17 Décembre 2020

Bon en fait j'ai contourné l'obstacle en modifiant ma maquette avec 10 carte dessus.
Merci de ton aide.

Phil69970 · 17 Décembre 2020

Bonjour Yves , le forum

Petite modification de mon code (J'ai bégayé un peu quand j'ai écrit le code cette nuit !!!)
J'ai versifié ça fonctionne

VB:

Sub SautPage()

'Ajoute les sauts de page
Worksheets("Carte").Rows(5).PageBreak = xlPageBreakManual ' Saut de page avant la 5 eme ligne
Worksheets("Carte").Columns("C").PageBreak = xlPageBreakManual ' Saut de page vertical avant la 3eme colonne

'Supprime les sauts de page
Worksheets("Carte").Rows(5).PageBreak = xlNone
Worksheets("Carte").Columns("C").PageBreak = xlNone

End Sub

@Phil69970

FOUQUET Yves · 17 Décembre 2020

Ok merci pour ton aide. Bonne soirée.

Autres Eviter saut de page.

FOUQUET Yves

XLDnaute Occasionnel

Phil69970

Phil69970

XLDnaute Barbatruc

FOUQUET Yves

XLDnaute Occasionnel

FOUQUET Yves

XLDnaute Occasionnel

Phil69970

XLDnaute Barbatruc

FOUQUET Yves

XLDnaute Occasionnel

Discussions similaires