Création de PDF avec Visual Basic 6.0
Cet exemple vous montre comment créer un PDF à partir d'une application VB6.
Lorsque le code est exécuté, le moteur PDF du créateur de PDF est utilisé pour la génération de PDF. La génération PDF prend en compte les paramètres PDF précédemment définis via les fonctions de paramétrage PDF correspondantes du composant COM.
Une fois la conversion PDF lancée à l'aide de la fonction convertToPDF
, le code attend le code retour du moteur PDF. Cela garantit que le développeur sait exactement quand et si la création du PDF s'est terminée avec succès.
L'exemple de code suivant est disponible au téléchargement en bas de la page.
Extrait de l'exemple de code source (VB6)
- Sous privé btnCallConvert_Click ( )
- 'Liaison anticipée de Var SevenPDFComObj: Veuillez sélectionner TypeLibrary "SevenPDFComObj Library" sur Projet -> Références, d'abord!
- Dim SevenPDFComObj comme nouveau SevenPDFComObj. SevenPDFObjConverter
- e = 0
- En cas d' erreur GoTo err_handler
- «******* INITIALISATION *********
- SevenPDFComObj. initialisation
- «SevenPDFComObj.UnlockKey (« INSERT LICENSEKEY »)
- « ********************************
- '****** Personnalisez certains paramètres PDF *******
- 'Remarque: le cryptage PDF ne fonctionne que dans la version enregistrée
- « ******************************************
- SevenPDFComObj. setExportNotes ( 0 )
- SevenPDFComObj. setExportNotesPages ( 0 )
- SevenPDFComObj. setExportBookmarks ( 0 )
- 'Définir les options de sécurité PDF
- «SevenPDFComObj.setEncryptFile (1)
- «SevenPDFComObj.setPermissionPassword (" test1232 ")
- «SevenPDFComObj.setRestrictPermissions (1)
- «SevenPDFComObj.setChanges (0)
- «SevenPDFComObj.setPrinting (1)
- «SevenPDFComObj.setEnableCopyingOfContent (0)
- 'SevenPDFComObj.setEnableTextAccessForAccessibilityTools (0)
- «Faites la conversion
- txtReturncode. Text = CStr ( SevenPDFComObj. ConvertToPdf ( txtFile. Text , txtPDF. Text , 0 ) )
- Quitter sous
- err_handler:
- MsgBox "Erreur imprévue dans le module" & Chr ( 10 ) & Chr ( 13 ) _
- & "Description:" & Err . Description & "" , vbExclamation , "Runtime - Error:" & Err . Numéro & ""
- Quitter sous
- End Sub
- Sous privé btnSelect_Click ( )
- Avec CommonDialog1
- , FileName = ""
- , Filter = "Tous les fichiers pris en charge (*. *) | *. * | Fichiers Microsoft Office 2007 (* .docx; *. Xlsx; *. Pptx) | * .docx; *. Xlsx; *. Pptx | Fichiers Microsoft Office ( * .doc; *. xls; *. ppt) | * .doc; *. xls; *. ppt | Fichiers OpenOffice.org 1.0 (* .sxw; *. sxc; *. swi) | * .sxw; *. sxc; *. swi | Fichiers OpenDocument (* .odt; *. ods; *. odp; *. odg; *. odf) | * .odt; *. ods; *. odp; *. odg; *. odf | Fichiers StarOffice (* .sdw; *. Sdc; *. Swi; *. Smf; *. Before) | * .sdw; *. Sdc; *. Swi; *. Smf; *. Before | Fichiers texte (*. rtf; *. txt; *. csv) | * .rtf; *. txt; *. csv | Fichiers Web (* .htm; *. html; *. xml) | * .htm; *. html; *. xml | Fichiers mathématiques (* .mml; *. odf; *. sxm; *. smf) | * .mml; *. odf; *. sxm; *. smf | Fichiers image (* .eps; *. tif; * .jpg; *. jpeg; *. png; *. gif; *. bmp) | * .eps; *. tif; *. jpg; *. jpeg; *. png; *. gif; *. bmp | AutoCAD / Formats d'échange de données (* .dxf; *. Dif) | * .dxf; *. Dif " 'Définit le filtre
- , ShowOpen
- Terminez avec
- txtfile. Texte = CommonDialog1. nom du fichier
- End Sub
- Sous privé btnSelectPDF_Click ( )
- Avec moi . CommonDialog1
- , Filter = "Fichier PDF (* .pdf) | * .pdf"
- , FileName = "output.pdf"
- , DefaultExt = "pdf"
- , ShowSave
- Terminez avec
- txtPDF. Texte = CommonDialog1. nom du fichier
- End Sub
Téléchargements
appendice | taille |
---|---|
Télécharger l'exemple de code | 3.82 KB |