VBA Excel - redimensionner le contenu

**max0042** · 21/02/2007, 08h30

Salut à tous

Je developpe une application avec vb2005 qui pilote excel. Je génere des fiches d'arret pour une société de transport.
Pour chaque fiche d'arret, je dois imperativement ne pas exceder une page.

Existe t'il une fonction qui redimensionne le contenu afin que tout puisse rentrer sur une seule page ??

Mercii

edit : si un gentil modo pouvais déplacer mon topic dans le forum VBA

ça serait super

**max0042** · 21/02/2007, 19h40

personne ne sait...

**helios77** · 22/02/2007, 10h41

tu les écris comment ts fiches d'arrêt??

Si c'est du ligne par ligne, faudra compter le nmbre de ligne je pense

**max0042** · 22/02/2007, 10h46

En recherchant j'ai trouvé les parametres FitToPagesWide et FitToPageTall.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
        With maworksheet.PageSetup
            .PaperSize() = Microsoft.Office.Interop.Excel.XlPaperSize.xlPaperA5
            .Orientation = Microsoft.Office.Interop.Excel.XlPageOrientation.xlPortrait
            .LeftMargin = 0
            .RightMargin = 0
            .BottomMargin = 0
            .TopMargin = 0
            .CenterHorizontally = true
            .CenterVertically = true
            .FitToPagesWide = 1
            .FitToPagesTall = 1
        End With

Le probleme c'est que ça ne fonctionne pas

.
Le document fait toujours 2 pages lorsque je souhaite l'imprimer.

**max0042** · 22/02/2007, 10h50

Envoyé par helios77

tu les écris comment ts fiches d'arrêt??

Si c'est du ligne par ligne, faudra compter le nmbre de ligne je pense

lol nos message se sont croisés.

Effectivement c'est du ligne par ligne. Je peux avoir le nombre total de ligne. Mais comment determiner si le document fera plus de 1 page ?.

Merci pour ta reponse