Format fichier PDF en fonction résolution windows

Version imprimable

09/02/2017, 14h40
Nebelicht

Format fichier PDF en fonction résolution windows

Bonjour le forum,

Ceci est mon premier poste et je souhaite remercie le forum pour ses aides très précieuses.

J'utilise la fonction d'excel 2013 convertir en PDF :

Code:

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="C:\etc"

Jusqu'ici tout va bien. Mais ma macro est aussi utilisée par mes collègues et c'est là qu'arrive mon problème.

En effet le format du fichier PDF obtenu (affichage, mise en page du tableau xls) varie en fonction des paramètres d'affichage Windows 7 des différents PC (résolution d'écran 1920x1080 ou 1600x900, grossissement du texte 100% ou 125%).

Existe-il une solution autre que d'imposer à mes collègues les paramètres d'affichage ?

Merci et bonne journée,

Nebelicht
10/02/2017, 16h44
EricDgn

Non testé: ajouter le paramètre IgnorePrintAreas

Code:

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="C:\etc", IgnorePrintAreas:=False

Si cela ne fonctionne pas, une autre façon de procéder serait envoyer l'impression sur une imprimante virtuelle pdf.
Cordialement.
13/02/2017, 11h26
Nebelicht

Bonjour EricDgn,

Merci pour votre retour. Je vais tester ça, je vous tiens au courant.

Bonjour le forum,

Après plusieurs tentative le rendu n'était toujours pas bon. J'ai donc opté pour une mise en forme du classeur en fonction des utilisateurs (code trouvé sur le forum)

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
 
Dim Ws As Worksheet
Dim LeUser As String
 
LeUser = UCase(Environ("username")) 'Récupère le nom d'utilisateur en majuscule
 
'Pour les PCs configuré avec affichage à 125%
If LeUser = "USER1" Or LeUser = "USER2" Or LeUser = "USER3" Then  'Teste le nom d'utilisateur
    For Each Ws In ActiveWorkbook.Sheets 'Boucle sur toutes les feuilles du fichier
        With Ws.PageSetup
            .LeftMargin = Application.InchesToPoints(0.1)
            .RightMargin = Application.InchesToPoints(0.1)
            .Zoom = 98
        End With
        ActiveSheet.Select
        Cells.Select
        Selection.RowHeight = 12.8
    Next Ws
 
Else 'Pour les PCs configuré avec affichage à 100%
    For Each Ws In ActiveWorkbook.Sheets 'Boucle sur toutes les feuilles du fichier
        With Ws.PageSetup
            .LeftMargin = Application.InchesToPoints(0.2)
            .RightMargin = Application.InchesToPoints(0.2)
            .Zoom = 100
        End With
        Ws.Activate
        Cells.Select
        Selection.RowHeight = 12
    Next Ws
End If

En tout cas merci EricDgn pour ton aide.