Discussion :

[CFRP_]

Bonjour,

Je suis confronté à deux problèmes de mise en page lors de l'édition d'un PDF.

Le premier concerne des figures réalisées à partir des formes de base proposées par Office (ligne, rectangle, ...). Celles ci se retrouvent décalées par rapport au reste de la zone d'impression.

Le second concerne les graphiques. Sur une page contenant un graphique, celui-ci est représenté deux fois, une première fois à l'échelle de la page et une deuxième, en plus petit, superposé au premier.

Je passe par un USF pour éditer le PDF (code construit avec l'enregistreur de macro) mais le problème persiste en passant par les menus donc je ne pense pas que ça y soit lié.

Code :

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

1
2
3
4
5
6
7
8
Sub editpdf(Nom As String, Chemin As String)
 
    Sheets(Array("Feuil1", "Graph1")).Select
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        Chemin & Nom, Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, _
        OpenAfterPublish:=True
End Sub

L’aperçu avant impression est lui correct.

J'ai préparé un petit fichier exemple au cas où je ne serais pas assez clair. Je le fournirai si besoin.

Merci d'avance pour les éléments que vous pourrez m'apporter

[Daniel.C]

Bonjour,

Si je me souviens bien, il y a toujours eu des problèmes avec la production de tout ce qui est graphiques, figures, etc. Ce qui en a poussé beaucoup à utiliser PDFCreator ou autre au moins jusqu'à Excel 2010.

[RomBon]

Bonjour,
ci-dessous un code qui fonctionne pour imprimer en pdf :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Application.PrintCommunication = True
 
 
'Sélection de la plage à imprimer
    Range("B29:Y101").Select
    ActiveSheet.PageSetup.PrintArea = "$B$29:$Y$101"
 
    ActiveWindow.View = xlPageBreakPreview
    ActiveWindow.View = xlNormalView
 
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "C:\ton chemin\NomFichier.pdf", _
        Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
        :=False, OpenAfterPublish:=True

A priori il fonctionnerait avec 2007 & 2010

[CFRP_]

Merci pour vos réponses.

Si je me souviens bien, il y a toujours eu des problèmes avec la production de tout ce qui est graphiques, figures, etc. Ce qui en a poussé beaucoup à utiliser PDFCreator ou autre au moins jusqu'à Excel 2010.

Le souci est que le résultat est le même avec PDFcreator en passant par du VBA. Par contre, manuellement par les menus, tout va bien...

Pour info, le code que j'ai utilisé est celui-ci.

[Daniel.C]

Bonjour,

Je n'entrerai pas plus dans la discussion, n'ayant pas constaté personnellement le problème. Microsoft ayant reconnu qu'il s'agissait d'un bug (pas spécialement avec VBA), je ne vois pas pourquoi il y aurait un autre bug avec PDFCreator. A tout hasard, je mets l'adresse de la page MS :

http://support.microsoft.com/kb/969413/fr