> Tous les forums > Forum Bureautique
 Impression PDF des pièces jointesSujet résolu
Ajouter un message à la discussion
Page : [1] 
Page 1 sur 1
Porruak
  Posté le 12/03/2012 @ 15:06 
Aller en bas de la page 
Petit astucien

Bonjour,

Afin de limiter la taille des fichiers envoyer par la messagerie, j'aimerais convertir le fichier natif joint en pdf et l'envoyer ensuite par la messagerie. mais voila je n'arrive pas à convertir le fichier en pdf. J'ai essayé les codes suivant:

Set Exl_Application = CreateObject("Excel.Application")
Dim dlganswer As Boolean

dlganswer = Exl_Application.Dialogs(xlDialogPrinterSetup).Show

If dlganswer = True Then
FilNam.PrintOut Copies:=1, Collate:=True -> Qualificateur incorrect
End If

et

Set Exl_Application = CreateObject("Excel.Application")

PrinterDefault = Exl_Application.ActivePrinter

Dim NmPtReseau As String
NmPtReseau = Imprimante_AdobePDF
Exl_Application.ActivePrinter = NmPtReseau -> Erreur 1004: La méthode "ActivePrinter"de l'objet "_Application" a échoué

sNomFichierPS = FilNam & ".ps"
sNomFichierPDF = strPDFile & ".pdf"

Set PDFDist = New PdfDistiller
PDFDist.FileToPDF sNomFichierPS, sNomFichierPDF, ""
Set PDFDist = Nothing
Kill sNomFichierPS


Exl_Application.ActivePrinter = PrinterDefault

Private Function Imprimante_AdobePDF() As String
Dim i As Integer
Dim NomPortReseau As String
' 11 imprimantes réseau
For i = 0 To 10
NomPortReseau = "Adobe PDF" & i & ":"
On Error Resume Next
Exl_Application.ActivePrinter = NomPortReseau
If ActivePrinter = NomPortReseau Then
Exit For
End If
Next i
Imprimante_AdobePDF = NomPortReseau
End Function

Pouvez vous m'aider svp

Merci d'avance.

Publicité
qmike549
 Posté le 12/03/2012 à 15:18 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Maître astucien

bonjour

Tu travailles à partir de quel logiciel

Sinon , tu peux aisément créer un fichier .PDF avec PdFCreator , il agit comme une imprimante virtuelle

Porruak
 Posté le 12/03/2012 à 15:37 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

Je travaille à partir de access 2010.

Pas de PDFCreator, non installé sur les postes de destination.

qmike549
 Posté le 12/03/2012 à 15:51 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Maître astucien

bonjour

Tu peux en standard sous Acces 2010 exporter en format PDF

Sélectionner l'onglet données externes

Cliqueer sur l'icone PDF sous le groupe Exporter

Porruak
 Posté le 12/03/2012 à 16:33 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

Je ne veux pas exporter mon projet mais réaliser une impression PDF de la pièce jointe associé à une ligne de la table.

Page : [1] 
Page 1 sur 1

Vous devez être connecté pour poster des messages. Cliquez ici pour vous identifier.

Vous n'avez pas de compte ? Créez-en un gratuitement !


Sujets relatifs
Publipostage avancé avec plusieurs pieces jointes distinctes
Mozilla Thunderbird ne veut plus afficher les pièces jointes
outlook refuse les liens en pieces jointes
Windows Live Mail n'ouvre plus les pièces jointes
Pièces jointes.
pieces jointes trop lourdes
pièces jointes t Kernel outlook viewer pst
Pieces jointes case grisée outlook 2007
Outlook 2003 et pièces jointes
Pièces jointes dans microsoft outlook 2007
Plus de sujets relatifs à Impression PDF des pièces jointes
 > Tous les forums > Forum Bureautique