Discussion :

[com-ace]

Bonjour

Je cherche depuis quelques heures à résoudre un souci d'impression PDF
Je crée une page de rapport graphique (zone d'impression) et je souhaite l'imprimer (ou l'exporter mais je n'ai pas trouver de solutions) en PDF.
J'utilise simplement

Code :

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

1
2
 
    ActiveSheet.Range("Rapport").PrintOut

Mais j'obtiens un fichier PDF illisible
L'impression manuelle marche très bien
Je soupçonne la déclaration de l'imprimante mais je n'en ai pas la preuve
Voici le code complet

Code :

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

1
2
3
4
5
 
    Chemin = "D:\Mes documents\Téléchargements"
    Nom = "Rapport de synthèse"
    CheminComplet = Chemin & "\" & Nom & ".pdf"
    ActiveSheet.Range("Rapport").PrintOut Copies:=1, Preview:=False, ActivePrinter:="Adobe PDF sur Ne08:", PrintToFile:=True, Collate:=True, PrToFilename:=CheminComplet

Si vous aviez une idée pour me guider
Merci de vos retours

[kiki29]

Salut, de cette façon tu génères un fichier ps ( PostScript ) et non un pdf. Pour cela il te faudrait une 2nde passe PS to PDF, du style :

Code :

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

1
2
3
    Set PDFDist = New PdfDistiller
    PDFDist.FileToPDF sNomFichierPS, sNomFichierPDF, ""
    Set PDFDist = Nothing

Voir avec Manipulations des PDF via Excel / Acrobat / PDFCreator / xPDF, dont le tout 1er post ( datant de 2007 ! ) t'apporte la réponse.

Depuis office 2007 d'autres réponses nettement plus succinctes sont possibles.

[com-ace]

Merci de ta réponse
J'aurai 3 interrogations pour mieux comprendre :
- Pourquoi l'instruction ActiveSheet.Range("A1:J100").PrintOut ne sort qu'un PS alors qu'en manuel l'imprimante ADOBE PDF sort directement un PDF, ce qui oblige à faire une passe supplémentaire. Pour moi, c'est incompréhensible.
- La seconde m’interroge sur le type de variable de PDFDist (je déclare toutes mes variables)
- Y a t il une référence à cocher en plus d'Acrobat DISTILLER
Merci de tes réponses

[kiki29]

Salut, cette 2nde passe existe toujours mais n'est pas "visible". As-tu lu le tout 1er post ( de 2007 ! ) ? La réponse y est.
De plus :

Depuis Office 2007 d'autres réponses nettement plus succinctes sont possibles.

[com-ace]

Bonjour
Je m'arrache le peu de cheveux qui me restent
J'avais bien lu le premier post et n'avais vu la déclaration de variable
D'autre part, je n'ai toujours pas l'explication car une fois de plus, en vba, l'impression avec l'imprimante ADOBE PDF de Windows ne marche pas comme en manuel.
De plus, en appliquant ta solution, j'ai un souci d'un message

Hors, j'ai décoché depuis longtemps cette option avec un téléchargement des polices du fichier en automatique dans la configuration d'ADOBE PDF (dès que cela touche au système Windows, je suis perdu)

Ensuite, si je suis ta méthode, tu transforme un fichier crée en PS en PDF.
Le souci c'est que je souhaite imprimer une plage dans un rapport hebdomadaire en automatique et je t'avoue ne pas savoir passer du fichier à la plage et de ne pas trouver la solution

[kiki29]

Salut, comme ici tout fonctionne via le code du Post 1 ( depuis Acrobat 6 à Acrobat 15 ), donc qq part ton paramétrage est mauvais.
Bis repetita placent :

Depuis office 2007 d'autres réponses nettement plus succinctes sont possibles.

[com-ace]

J'ai précisé dans le post précédent que j'avais décoché cette option depuis le départ dans la configuration de base de l'imprimante dans Windows mais que cela ne fonctionne pas (en plus, j'ai fixé les polices nécessaires aussi) (Bis répétita)
D'autre part, la méthode que tu proposes ne fonctionne pas et je ne comprends pas pourquoi. J'aimerai au lieu d'une solution, avoir une explication pourquoi en manuel cela fonctionne alors que en Vba cela ne marche pas pour trouver moi même la solution
D'autre part, le post que tu parles je l'ai épluché et je ne sais pas passer d'un fichier (ta solution) à une plage nommée, mon besoin.
J'utilise Excel 2013
Merci si tu as une solution ou alors apportes moi un éclairage

[kiki29]

Re, et tu dis l'avoir lu ?

[com-ace]

OUi parce que c'est exactement le code que j'utilise et qui ne marche pas

Code :

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

1
2
3
4
5
6
7
8
9
10
 
    poste = Range("NOM").Value
    chemin = "D:\Mes documents\Téléchargements"
    nom = "Rapport de synthèse - Recrutement - " '& Poste & "au " & Day(Date) & "-" & Month(Date) & "-" & Year(Date)
    cheminComplet = chemin & "\" & nom & ".ps"
    Application.ActivePrinter = "Adobe PDF sur Ne08:"
    ActiveSheet.Range("A1:J100").PrintOut Copies:=1, Preview:=False, ActivePrinter:="Adobe PDF sur Ne08:", PrintToFile:=True, Collate:=True, PrToFilename:=cheminComplet
    Set PDFDist = New PdfDistiller
    PDFDist.FileToPDF cheminComplet, nomFichier, ""
    Set PDFDist = Nothing

J'ai oublié

Code :

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

1
2
 
nomfichier = chemin & "\" & nom & ".pdf"

En fait il me crée un fichier ps vide
Voici le log
%%[ Warning: Empty job. No PDF file produced. ] %%
Je ne sais pas pourquoi le paramétrage de l'imprimante ADOBE PDF ne tient pas alors qu'il est maintenant natif et que j'ai toujours ce message.
Est ce que le fichier vide vient de se message ?

[kiki29]

Re, ici tout baigne

%%[ ProductName: Distiller ]%%
%%[Page: 1]%%
%%[Page: 2]%%
%%[Page: 3]%%
%%[Page: 4]%%
%%[LastPage]%%

[kiki29]

Salut, si tu as Office 2007 ou +, tu as ceci :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Option Explicit
 
Sub Tst_04()
Dim sNom As String
    sNom = ThisWorkbook.Path & "\" & "Test_04.pdf"
    Feuil1.Range("Rapport").ExportAsFixedFormat Type:=xlTypePDF, _
                                                Filename:=sNom, _
                                                Quality:=xlQualityStandard, _
                                                IncludeDocProperties:=True, _
                                                IgnorePrintAreas:=False, _
                                                OpenAfterPublish:=False
End Sub

[com-ace]

L'export marche directement et est plus simple.
Merci