Sauts de page et pages ajustées

  • Initiateur de la discussion Sam Agace
  • Date de début
S

Sam Agace

Guest
bonjour tout le monde,

n'ayant pas eu de réponse au précédent post, (je m'étais sans doute mal expliqué), je repose ma petite question.

Mon pb est le suivant :

Comment faire pour insérer des sauts de pages (verticaux) dans une page justifiée en largeur ?

Par exemple, dans la feuiile jointe, comment insérer un saut de page en ligne 20 tout en conservant la mise en page justifiée en largeur ?

Manuellement, on peut parvenir à ce résultat, en faisant dans un premier temps, Fichier - Mise en page - Ajusté à 1 page en largeur,

Puis en refaisant un Fichier - Mise en page , en sélectionnant cette fois la case <Réduire/Agrandir> .

Le % de zoom établi par le précédent ajustement est alors conservé, et les sauts de pages sont rétablis.

Mais comment fait ça en VB ?

Le pb est (à moins qu'il n'y ait un autre méthode) de récupérer la valeur de .Zoom = x % après

ActiveSheet.PageSetup.PrintArea = ""
With ActiveSheet.PageSetup
(...)
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = False
End With

... et là, je suis sec de chez sec sec et associés.

Merci pour vos tuyaux.

Sam Agace
 
S

Sam Agace

Guest
Bon ben piske ça intéresse personne mon truc :) voilà tjrs une solution... y a surement mieux... mais ça marche ...

En Visual basic : On reproduit la même chose que "manuellement" en faisant :

Sub Impression()
ActiveSheet.PageSetup.PrintArea = ""
With ActiveSheet.PageSetup
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = False
End With

' 2ème Mise en page sans paramètre .Zoom ni .Fit
ActiveSheet.PageSetup.PrintArea = ""
With ActiveSheet.PageSetup
End With

ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End Sub

cf macro Impression() dans le fichier joint ( Ctrl+i )
 

Pièces jointes

  • saut_page-reponse.zip
    14.4 KB · Affichages: 20

Discussions similaires

  • Question
XL pour MAC Export pdf
Réponses
0
Affichages
568

Statistiques des forums

Discussions
311 735
Messages
2 082 023
Membres
101 873
dernier inscrit
excellllll