DOC2PDF AVEC PDFCREATOR

Commentaire de Renfield le 30/03/2007 14:54:25 administrateur CS

quelques remarques concernant le code.

curieux l'ordre des opérations :

    sFiles = Split(Dialog1.FileName, vbNullChar)
    ' Mettre dans une liste grâce à la fonction Split sur le caractère Null
    If Len(Dialog1.FileName) <> 0 Then


sPathRacine = sFiles(0) & ""     <= pourquoi ce & ""  ?

i = 1
Do
    On Error GoTo Fin
    List1.AddItem (sPathRacine & "\" & sFiles(i))
    i = i + 1
Loop
            
    pourquoi ne pas mettre simplement :

For i = 1 To Ubound(sFiles)
    List1.AddItem (sPathRacine & "\" & sFiles(i))  
Next i

utilises InstrRev ici :
        For i = Len(fichier) To 0 Step -1 ' Je commence la recherche du "\" par la fin
            If Mid(fichier, i, 1) = "\" Then ' Dès que je le trouve, je sors du boucle For
                Exit For
            End If
        Next i

Commentaire de Patrice99 le 31/03/2007 10:03:53

Il y a une alternative qui fonctionne bien (en couleur, menu contextuel, Word caché avec option ordre d'impression correcte s'il est inversé par défaut, ...) :

Doc2Pdf : Convertir un document Word en Pdf via un pilote d'imprimante PostScript
www.vbfrance.com/code.aspx?ID=29662

De plus avec ma version, vous avez aussi le composant qui va bien pour CutePdf, qui permet d'imprimer un pdf depuis toute application Windows capable d'imprimer.

Commentaire de aeder le 06/04/2007 12:54:17

Je n'ai pas réussi, hélas, à le faire fonctionner sous Vista

Commentaire de gnieark le 26/04/2007 20:18:31

merci pour ce code qui m'a bien aidé à piger le pilotage de pdf créator. ça m'a bien servi!