Fermeture automatique de la fenêtre PDF Creator

[degap05]

Bonjour à tous,

La macro du fichier joint (issue du forum), ne va pas jusqu'à l'impression avec PDF Creator, mais seulement jusqu'à l'ouverture de la fenêtre en photo jointe.

J'ai besoin de votre aide pour valider l'impression sans être obligé d'enregistrer le document en PDF.

Merci de votre aide.
A+

 

[kiki29]

Re : Fermeture automatique de la fenêtre PDF Creator

Salut, tu n'as qu'à supprimer ce qui concerne PDFCreator dans ta procédure d'impression ?

Sinon par curiosité voir https://www.excel-downloads.com/threads/copie-en-pdf.160365/ mais là il s'agit de sauvegarder le fichier en PDF sous un nom donné dans un dossier donné

 

[degap05]

Re : Fermeture automatique de la fenêtre PDF Creator

Bonjour kiki29,

Je souhaite imprimer ma feuille Excel, au format PDF après l'avoir générée grâce à PDF Creator.

Merci.

 

[kiki29]

Re : Fermeture automatique de la fenêtre PDF Creator

re,à adapter

Option Explicit

Sub Tst()
Dim JobPDF As Object
Dim sNomPDF As String
Dim sCheminPDF As String
Dim sPrinter As String

    sPrinter = Application.ActivePrinter
    sNomPDF = "Essai.pdf"
    sCheminPDF = ThisWorkbook.Path & "\"

    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"

    'Fichier dans la file d'attente
    Do Until JobPDF.cCountOfPrintjobs = 1
        DoEvents
    Loop
    JobPDF.cPrinterStop = False

    'Attendre que la file d'attente soit vide
    Do Until JobPDF.cCountOfPrintjobs = 0
        DoEvents
    Loop
    JobPDF.cClose
    Set JobPDF = Nothing
    
    Application.ActivePrinter = sPrinter
    ActiveSheet.PrintOut copies:=1, ActivePrinter:=sPrinter
End Sub

 

[degap05]

Re : Fermeture automatique de la fenêtre PDF Creator

Merci kiki 29,

J'avais trouvé cette macro, ou une ressemblante sur le forum.
Elle me parait trop compliquée à adapter pour mes capacités....
Serait-il possible de conserver comme base de départ la macro de mon fichier initial ?
J'essaie de mon côté mais pour l'instant sans résultat.
En paramétrant PDF Creator, j'arrive à faire sauvegarder le fichier créé, dans un dossier de mon choix, mais pas à l'imprimer.

Merci.
A+

 

[kiki29]

Re : Fermeture automatique de la fenêtre PDF Creator

re,il semble y avoir un probleme de vocabulaire ou de compréhension ( ou les deux )
quand on dit sauvegarder un fichier PDF c'est la même chose que l'imprimer, car PDFCreator comme Distiller ajoute dans tes imprimantes une imprimante dite virtuelle
Pour imprimer ce fichier il suffit de l'ouvrir via un Reader et de sélectionner une imprimante physique ( HP Epson etc )

Dans le fichier fourni sPrinter garde la trace de l'imprimante par défaut ( j'ai supposé que c'était ton imprimante physique ) qui après sauvegarde du fichier au format Pdf réactive cette imprimante et l'imprime sur une feuille papier

L'adaptation à faire est sur sNomPDF = "Essai.pdf" et sCheminPDF = ThisWorkbook.Path & "\"
respectivement le nom sous lequel le fichier PDF sera sauvé et le Dossier dans lequel il sera sauvé

 

[degap05]

Re : Fermeture automatique de la fenêtre PDF Creator

Désolé kiki29,

Je pense que je ne m'exprime pas clairement aujourd'hui.......
Je clos cette discussion.
Excuses pour le dérangement.
Et merci.

A une autre fois.

 

[kiki29]

Re : Fermeture automatique de la fenêtre PDF Creator

Re,ce qui revient à peu de chise à ton code initial (?)

Option Explicit

Sub Tst()
Dim SPrinter As String

    SPrinter = Application.ActivePrinter
    
    Application.ActivePrinter = "PDFCreator sur Ne00:"
    ActiveSheet.PrintOut

    Application.ActivePrinter = SPrinter
    ActiveSheet.PrintOut

End Sub

ATTENTION : Ne00 ou "00" variera suivant le PC sur lequel la macro s'exécutera , en fait dépend de l'ordre d'installation des pilotes