VBA mise en page pour impression Résolu/Fermé

Question

Bonjour, 

Voici mon fichier
http://www.cijoint.fr/cjlink.php?file=cj201109/cijGVXAF83.xls
je sais pas ce que vous pensez de mon code, si vous avez moyen de l'améliorer je ne suis pas contre :-)

ma question porte sur la mise en page. comment faire pour que les petits tableaux ne soient jamais coupés sur 2 pages lors de l'impression ?

Merci d'avance

Configuration: Windows XP / Internet Explorer 7.0

michel_m · Answer

pour l'instant tu parles de petits tableaux et moi je n'en vois qu'un

pour encadrer
par ex:
Range("A1:C46").borders.weight=xlthin

et pourquoi ne fais tu pas ces encadrements en 1 seule fois ?

pijaku · Answer

Bonjour,
je sais pas ce que vous pensez de mon code, si vous avez moyen de l'améliorer je ne suis pas contre
Il fonctionne?
N'est pas lent?
===> Pourquoi le changer...

comment faire pour que les petits tableaux ne soient jamais coupés sur 2 pages lors de l'impression ? Dans ton cas, je ferais une boucle et imprimerais par "sélection" de 5 tableaux (soit 30 lignes).
Du style :
Dim Lign As Integer, DrLign As Integer
'la dernière ligne à imprimer correspond mathématiquement à :
'arrondi supérieur de : (nombre de lignes total/30) * 30 soit en VBA :
DrLign = Round(Range("B" & Rows.Count).End(xlUp).Row / 30 + 0.5) * 30
For Lign = 1 To DrLign Step 30
    Range("A" & Lign & ":E" & Lign + 29).PrintOut
Next--
Cordialement,
Franck P