VBA Excel - redimensionner le contenu

Version imprimable

21/02/2007, 08h30
max0042

VBA Excel - redimensionner le contenu

Salut à tous :D

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 ?? :koi:

Mercii :D

edit : si un gentil modo pouvais déplacer mon topic dans le forum VBA :D ça serait super :merci:
21/02/2007, 19h40
max0042

personne ne sait... :( :pleure:
22/02/2007, 10h41
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

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

Code:

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.

22/02/2007, 10h50
max0042

Citation:

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
22/02/2007, 13h23
max0042

C'est bon, j'ai trouvé.:D

En fait il faut desactiver le zoom avant de se servir de FitToPagesTall et de FitToPagesWide.

Code:

maworksheet.pagesetup.zoom = false