Macro imprimer avec PDFCREATOR et ensuite jointe le PDF à un mail

  • Initiateur de la discussion Initiateur de la discussion dam3117
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

dam3117

XLDnaute Occasionnel
Bonjour le forum,

Je cherche une macro pour pouvoir enregistrer et imprimer avec le logiciel PDFCREATOR (sans ouvrir la boite de dialogue) (non de classeur valeur de la cellule plus date) et ensuite le joindre en pièce jointe à un mail outlook.
merci
dam 3117
 
Re : Macro imprimer avec PDFCREATOR et ensuite jointe le PDF à un mail

Salut, la réponse a été donnée x fois, càd qqch comme

Code:
Option Explicit

Sub Tst_PdfCreator()
Dim JobPDF As Object
Dim sNomPDF As String
Dim sCheminPDF As String

    sNomPDF = "Essai_PdfCreator.pdf"
    sCheminPDF = ThisWorkbook.Path & "\"

    If IsEmpty(ActiveSheet.UsedRange) Then Exit Sub

    Set JobPDF = CreateObject("PDFCreator.clsPDFCreator")

    With JobPDF
        If .cStart("/NoProcessingAtStartup") = False Then
            MsgBox "Initialisation de PDFCreator impossible", vbCritical + vbOKOnly, "PDFCreator"
            Exit Sub
        End If
        .cOption("UseAutosave") = 1
        .cOption("UseAutosaveDirectory") = 1
        .cOption("AutosaveDirectory") = sCheminPDF
        .cOption("AutosaveFilename") = sNomPDF

        '   0=PDF, 1=Png, 2=jpg, 3=bmp, 4=pcx, 5=tif, 6=ps, 7=eps, 8=txt
        .cOption("AutosaveFormat") = 0

        .cClearCache
    End With

    ActiveSheet.PrintOut copies:=1, ActivePrinter:="PDFCreator"

    Do Until JobPDF.cCountOfPrintjobs = 1
        DoEvents
    Loop
    JobPDF.cPrinterStop = False

    Do Until JobPDF.cCountOfPrintjobs = 0
        DoEvents
    Loop

    Application.Wait Now + TimeValue("00:00:03")

    JobPDF.cClose
    Set JobPDF = Nothing
End Sub

Pour l'envoi en mail rechercher CDO sur le forum ou ici et jeter un œil
 
Dernière édition:
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
4
Affichages
243
Réponses
10
Affichages
547
Réponses
6
Affichages
1 K
Retour