Discussion :

[bladinium]

Bonjour,

J'utilise une macro me permettant d'ouvrir un fichier HTML contenant un tableau dans un document Word.

Le problème c'est que mon tableau est trop grand, et lorsque je l'imprime je souhaiterais qu'il soit adapté au format de la feuille (A4 paysage)

Du coup j'utilise une fonction affichant 75% cependant j'ai un footer de 7 cm vide

Voici mon code pour l'affichage

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
                Const wdPrintAllDocument = 0
                Const wdPrintDocumentContent = 0
                Const wdPrintAllPages = 0
                AppWord.PrintOut FileName:="", _
                Range:=wdPrintAllDocument, Item:= _
                wdPrintDocumentContent, _
                copies:=1, _
                Pages:="", _
                PageType:=wdPrintAllPages, _
                ManualDuplexPrint:=False, _
                Collate:=True, _
                Background:=False, _
                PrintToFile:=False, _
                PrintZoomColumn:=1, _
                PrintZoomRow:=1, _
                PrintZoomPaperWidth:=0.75 * (8.5 * 1440), _ 'Réduire la taille pour le tableau
                PrintZoomPaperHeight:=0.75 * (11 * 1440), _
                Append:=False
                DoEvents
                AppWord.ActiveDocument.Close SaveChanges:=0    'wdDoNotSaveChanges

Ce qui donne juste un problème au niveau du footer avec une marge de 7cm a droite, gauche et haut c'est parfait.


Cordialement

[bladinium]

Bonjour, personne n'aurait une idée?