Discussion :

[Stutak]

Bonjour,

grâce aux divers fils de discussion et surtout grâce à kiki29, je me suis fait une petite macro sous Exel pour imprimer l'onglet en pdf.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
 
Sub Impression()
    Set pdfjob = CreateObject("PDFCreator.clsPDFCreator")
    NomPdf = Onglet & ".pdf"
    With ActiveSheet.PageSetup
        .PrintArea = "$A$1:$G$46"
        .Order = xlDownThenOver
        .Zoom = False
        .FitToPagesWide = 1
        .FitToPagesTall = 1
    End With
 
    With pdfjob
        If .cStart("/NoProcessingAtStartup") = False Then
            MsgBox "Can't initialize PDFCreator.", vbCritical + vbOKOnly, "PrtPDFCreator"
            Exit Sub
        End If
 
        .cOption("UseAutosave") = 1
        .cOption("UseAutisaveDirectory") = 1
        .cOption("AutosaveDirectory") = ThisWorkbook.Path & "\Factures\"
        .cOption("AutosaveFilename") = NomPdf
        .cOption("AutosaveFormat") = 0
        .cClearCache
    End With
 
     ActiveSheet.PrintOut Copies:=1, ActivePrinter:="PDFCreator sur Ne00:"
 
     Onglet = Onglet
 
    Do Until pdfjob.cCountOfPrintjobs = 1
        DoEvents
    Loop
    pdfjob.cPrinterStop = False
 
    Do Until pdfjob.cCountOfPrintjobs = 0
        DoEvents
    Loop
 
    pdfjob.cClose
    Set pdfjob = Nothing
 
End Sub

Ca marche très bien... mais je comprends pas tout

d'où ma petite question : pourquoi faut-il mettre les 2 loops

Voilà, si quelqu'un voulait bien éclairer ma lanterne, merci d'avance

[Menhir]

pourquoi faut-il mettre les 2 loops

DoEvents est une fonction qui temporise la macro pour donner du temps à une application externe de se dérouler.
Dans ce cas, ça permet de ne faire le close que lorsque les jobs de la création de PDF sont terminés.

[Stutak]

Parfait, j'ai compris
Merci pour cette explication

[kiki29]

Salut, d'une manière générale il faut donné du temps au temps, un système n'aime pas travailler en apnée.

Ici précédent le "pdfjob.cPrinterStop = False" qui lance l'impression pour qu'il y ait qqch dans la file d'attente, puis ensuite ne clôturer les opérations qu'une fois la file d'attente vide.

Cela aussi car personne ne peut connaitre les laps de temps nécessaires pour ces opérations et qu'elles ne deviennent bloquantes pour le système.

DoEvents