Autres Eviter saut de page.

[FOUQUET Yves]

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:

.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]

Bonjour Yves , le forum

Je te propose un exemple à adapter

Pour un saut de page avant la 5 eme ligne

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

Pour un saut de page vertical avant la 3eme colonne

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

Pour supprimer un saut de page

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

@Phil69970

 

[FOUQUET Yves]

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"

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]

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

 

[Phil69970]

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

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]

Ok merci pour ton aide. Bonne soirée.