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

[dam3117]

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

 

[kiki29]

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

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 là

 

[Jam]

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

Salut dam, kiki,

Une petite recherche "pdfcreator + excel + vba" sur G..... mon ami me donne en 3s le lien:
Automatiser l'impression d'un classeur Excel en PDF via PDFCreator - Le grenier Access

Savoir chercher, c'est le début de la connaissance

 

[dam3117]

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

Merci kiki, jam
Je viens de voir vos réponseS je vais tester cela aujourd'hui.merci dam

 

[dam3117]

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

Bonjour,
Je souhaiterai qu'il me l'imprime en double et en suite qui me le joigne directement à mon mail. Merci

 

[kiki29]

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

Salut, tu as tous les codes et liens pour y parvenir.