Zones d'impression avec saut de page

  • Initiateur de la discussion Initiateur de la discussion Sanjiv
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Sanjiv

XLDnaute Nouveau
Bonsoir, amis Excelistes...

Pour éditer un planning, j'ai crée une série de zones d'impression, toutes identiques- aux dates près, sur la même feuille. La première couvre la plage A1😀25, et les suivantes sont décalées comme suit:
a) zone1 : HautGauche1:BasDroitede1
b) zone2 : HautGauche1.offset(0, 4):BasDroitede1.offset(0, 3)

Je précise que la hauteur des lignes est 45. Chaue ligne est composée de 4 cellules larges de 27.57, 16.57, 11.71, 102.29 sont hautes (je ne sait pas en quelle est l'unité)

Les zones sont crées et imprimées avec les séquences de code suivantes:

Code:
'Création zone d'impression
    ActiveSheet.PageSetup.PrintArea = HautGauche + ":" + BasDroite
    ActiveWorkbook.Names.Add Name:=NomZoneImp, RefersToR1C1:= _
        "=" & NomFeuille & "!R" & dLign & "C" & dCol & ":R" & fLign & "C" & fCol

'Impression  zone d'impression
    ActiveSheet.PageSetup.PrintArea = NomZoneImp
    ActiveWindow.SelectedSheets.PrintOut Copies:=1

Or à l'impression, Excel insèse des sauts de pages dans la zone, et réparti la zone sur 4 pages(par exemple, pour la 1ere zone A1:C16, D1😀16, A17:C25, D17😀25).
Quelqu'un pourrait-il m'éclairer sur l'origine du problème, et dans la mesure du possible, coment le résoudre.

Merci par avance.
 
Re : Zones d'impression avec saut de page

Bonjour
Pas sûre d'avoir compris mais sans doute que la plage ne tient pas sur une page : essaie de diminuer les marges voire de forcer l'impression en 1 page si cela ne diminue pas trop le coeff car cela devient vite illisible.
 
Re : Zones d'impression avec saut de page

Salut Sanjiv
Code:
'Impression  zone d'impression
    With ActiveSheet.PageSetup
        .PrintArea = NomZoneImp
        .FitToPagesWide = 1
        .FitToPagesTall = 1
    End With
    ActiveWindow.SelectedSheets.PrintOut Copies:=1
ça devrait t'aider
A+
 
Re : Zones d'impression avec saut de page

Bonsoir à tous.

Merci de vos conseils.

En suivant les pistes indiquées, j'arrive à régler mon problème en manuel. Mais pour automatiser tout cela en VBA, les sauts de pages n'en font qu'à leur guise...

avec un patience et tests, j'espère bien en venir à bout.

Merci encore.
 
Re : Zones d'impression avec saut de page

Sanjiv à dit:
Bonsoir à tous.

Merci de vos conseils.

En suivant les pistes indiquées, j'arrive à régler mon problème en manuel. Mais pour automatiser tout cela en VBA, les sauts de pages n'en font qu'à leur guise...

avec un patience et tests, j'espère bien en venir à bout.

Merci encore.
salut
explique ce que tu fais en manuel et on te donnera le code VBA
A+
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Retour