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)

  1. Sous privé btnCallConvert_Click ( )
  2.  
  3. 'Liaison anticipée de Var SevenPDFComObj: Veuillez sélectionner TypeLibrary "SevenPDFComObj Library" sur Projet -> Références, d'abord!
  4. Dim SevenPDFComObj comme nouveau SevenPDFComObj. SevenPDFObjConverter
  5.  
  6. e = 0
  7. En cas d' erreur GoTo err_handler
  8.    
  9. «******* INITIALISATION *********
  10.    
  11. SevenPDFComObj. initialisation
  12. «SevenPDFComObj.UnlockKey (« INSERT LICENSEKEY »)
  13.    
  14. « ********************************
  15.    
  16. '****** Personnalisez certains paramètres PDF *******
  17. 'Remarque: le cryptage PDF ne fonctionne que dans la version enregistrée
  18. « ******************************************
  19.    
  20. SevenPDFComObj. setExportNotes ( 0 )
  21. SevenPDFComObj. setExportNotesPages ( 0 )
  22. SevenPDFComObj. setExportBookmarks ( 0 )
  23.    
  24. 'Définir les options de sécurité PDF
  25. «SevenPDFComObj.setEncryptFile (1)
  26. «SevenPDFComObj.setPermissionPassword (" test1232 ")
  27. «SevenPDFComObj.setRestrictPermissions (1)
  28. «SevenPDFComObj.setChanges (0)
  29. «SevenPDFComObj.setPrinting (1)
  30. «SevenPDFComObj.setEnableCopyingOfContent (0)
  31. 'SevenPDFComObj.setEnableTextAccessForAccessibilityTools (0)
  32.        
  33. «Faites la conversion
  34.    
  35. txtReturncode. Text = CStr ( SevenPDFComObj. ConvertToPdf ( txtFile. Text , txtPDF. Text , 0 ) )
  36.    
  37. Quitter sous
  38.    
  39. err_handler:
  40.  
  41. MsgBox "Erreur imprévue dans le module" & Chr ( 10 ) & Chr ( 13 ) _
  42. & "Description:" & Err . Description & "" , vbExclamation , "Runtime - Error:" & Err . Numéro & ""
  43.    
  44. Quitter sous
  45.    
  46. End Sub
  47.  
  48. Sous privé btnSelect_Click ( )
  49. Avec CommonDialog1
  50. , FileName = ""
  51. , 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
  52. , ShowOpen
  53. Terminez avec
  54.  
  55. txtfile. Texte = CommonDialog1. nom du fichier
  56.  
  57. End Sub
  58.  
  59. Sous privé btnSelectPDF_Click ( )
  60.  
  61. Avec moi . CommonDialog1
  62. , Filter = "Fichier PDF (* .pdf) | * .pdf"
  63. , FileName = "output.pdf"
  64. , DefaultExt = "pdf"
  65. , ShowSave
  66. Terminez avec
  67.  
  68. txtPDF. Texte = CommonDialog1. nom du fichier
  69.  
  70. End Sub

Téléchargements

appendice taille
Télécharger l'exemple de code 3.82 KB
LiveZilla Live Chat Software
Top