DOC2PDF AVEC PDFCREATOR
Utilisateur anonyme
-
30 mars 2007 à 14:42
devsurf Messages postés 148 Date d'inscription dimanche 13 octobre 2002 Statut Membre Dernière intervention 13 novembre 2008 - 19 sept. 2008 à 10:54
devsurf Messages postés 148 Date d'inscription dimanche 13 octobre 2002 Statut Membre Dernière intervention 13 novembre 2008 - 19 sept. 2008 à 10:54
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/42015-doc2pdf-avec-pdfcreator
https://codes-sources.commentcamarche.net/source/42015-doc2pdf-avec-pdfcreator
19 sept. 2008 à 10:54
Ca va surement me servir bientot
Mille mercis.... :)
26 avril 2007 à 20:18
12 avril 2007 à 16:21
6 avril 2007 à 12:54
1 avril 2007 à 10:33
PDFCreator rajoute automatiquement un menu contextuel pour transformer tous les fichiers imprimables en PDF et il intègre Ghostscript.
De plus il peut aussi transformer bien sur PDF, mais aussi en TIFF, JPEG, BMP, EPS, PCX, PS.
31 mars 2007 à 10:03
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.
30 mars 2007 à 15:41
merci pour la fonction instrRev que je ne connaissais pas.
Pour l'autre fonction, j'avais pris telquel sur le site
30 mars 2007 à 14:54
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
30 mars 2007 à 14:42
9/10