Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Autres Eviter saut de page.

FOUQUET Yves

XLDnaute Occasionnel
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
 
Solution
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

XLDnaute Barbatruc
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

XLDnaute Occasionnel
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
 

Phil69970

XLDnaute Barbatruc
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
 
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…