PDF Erzeugung mit Visual Basic 6.0

VB6 Beispielanwendung - PDF COM Api

Dieses Beispiel zeigt Ihnen wie Sie aus einer VB6 Anwendung heraus ein PDF erzeugen.

Wenn der Code ausgeführt wird, so wird die PDF-Engine von 7-PDF Maker zur PDF-Erzeugung verwendet. Die PDF Erzeugung berücksichtigt die PDF-Einstellungen, die zuvor über die entsprechenden PDF Setting Funktionen der COM Komponente festgelegt wurden.

Nachdem die PDF Umwandlung über die Funktion convertToPDF angestoßen wurde,   wartet der Code auf den Returncode der PDF-Engine. Das stellt sicher, dass der Entwickler genau weiss, wann und ob die PDF Erzeugung erfolgreich abgeschlossen wurde.
 

Codebeispiel herunterladen

Quelltextauszug des Sourcecodebeispiels (VB6)

  1. Private Sub btnCallConvert_Click()
  2.  
  3. 'Early binding of Var SevenPDFComObj: Please select TypeLibrary "SevenPDFComObj Library" over Project -> References, first!
  4. Dim SevenPDFComObj As New SevenPDFComObj.SevenPDFObjConverter
  5.  
  6. e = 0
  7. On Error GoTo err_handler
  8.    
  9.     '******* INITIALIZATION *********
  10.    
  11.     SevenPDFComObj.Init
  12.     'SevenPDFComObj.UnlockKey ("INSERT LICENSEKEY")
  13.    
  14.     '********************************
  15.    
  16.     '****** Customize some PDF Settings *******
  17.     'Notice: PDF encryption works only in registered version
  18.     '******************************************
  19.    
  20.     SevenPDFComObj.setExportNotes (0)
  21.     SevenPDFComObj.setExportNotesPages (0)
  22.     SevenPDFComObj.setExportBookmarks (0)
  23.    
  24.     'Set PDF Security Options
  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.     'Make the Conversion
  34.    
  35.     txtReturncode.Text = CStr(SevenPDFComObj.convertToPdf(txtFile.Text, txtPDF.Text, 0))
  36.    
  37.     Exit Sub
  38.    
  39. err_handler:
  40.  
  41.    MsgBox "Unvorhergesehener Fehler in Modul" & Chr(10) & Chr(13) _
  42.         & "Beschreibung: " & Err.Description & "", vbExclamation, "Runtime - Error: " & Err.Number & ""
  43.    
  44.    Exit Sub
  45.    
  46. End Sub
  47.  
  48. Private Sub btnSelect_Click()
  49. With CommonDialog1
  50.     .FileName = ""
  51.     .Filter = "All supported Files (*.*)|*.*|Microsoft Office 2007 Files (*.docx;*.xlsx;*.pptx)|*.docx;*.xlsx;*.pptx|Microsoft Office Files (*.doc;*.xls;*.ppt)|*.doc;*.xls;*.ppt|OpenOffice.org 1.0 Files (*.sxw;*.sxc;*.swi)|*.sxw;*.sxc;*.swi|OpenDocument Files (*.odt;*.ods;*.odp;*.odg;*.odf)|*.odt;*.ods;*.odp;*.odg;*.odf|StarOffice Files (*.sdw;*.sdc;*.swi;*.smf;*.vor)|*.sdw;*.sdc;*.swi;*.smf;*.vor|Text based Files (*.rtf;*.txt;*.csv)|*.rtf;*.txt;*.csv|Web based Files (*.htm;*.html;*.xml)|*.htm;*.html;*.xml|Maths Files (*.mml;*.odf;*.sxm;*.smf)|*.mml;*.odf;*.sxm;*.smf|Image Files (*.eps;*.tif;*.jpg;*.jpeg;*.png;*.gif;*.bmp)|*.eps;*.tif;*.jpg;*.jpeg;*.png;*.gif;*.bmp|AutoCAD / Data Interchange Formats (*.dxf;*.dif)|*.dxf;*.dif" 'Sets the filter
  52.     .ShowOpen
  53. End With
  54.  
  55. txtFile.Text = CommonDialog1.FileName
  56.  
  57. End Sub
  58.  
  59. Private Sub btnSelectPDF_Click()
  60.  
  61. With Me.CommonDialog1
  62.   .Filter = "PDF File (*.pdf)|*.pdf"
  63.   .FileName = "output.pdf"
  64.   .DefaultExt = "pdf"
  65.   .ShowSave
  66. End With
  67.  
  68. txtPDF.Text = CommonDialog1.FileName
  69.  
  70. End Sub