Nachfolgendes Beispiel demonstriert die Ansteuerung der CIB pdf toolbox unter Visual Basic.

Das im Codebeispiel verwendete Test.pdf kann durch ein beliebiges PDF ersetzt werden.

Module Print
 
‚Der nachfolgende Programmcode zeigt den Druck über die CIB pdf toolbox als VB 
Codebeispiel. Ausgangssituation ist ein fertiges PDF-Dokument.
‚Fehlermeldungen und Fehlerentwicklungen werden hier nur eingeschränkt berücksichtigt.
‚Dieses Beispiel wurde mit Visual Studio 2008, Visual Basic .NET Framework 3.5 erstellt.
 
‚Deklaration der Methoden, die über die „CibPdf32.dll“ geöffnet werden und als 
Long ausgegeben werden
Private Declare Function CibPdfJoin Lib “CibPdf32.dll” () As Integer
Private Declare Function CibPdfSetProperty Lib “CibPdf32.dll”
(ByVal a_PropName As String, ByVal a_pPropValue As String) As Integer
Private Declare Function CibPdfGetProperty Lib “CibPdf32.dll”
(ByVal a_PropName As String, ByVal a_pProbValue As String) As Integer
Private Declare Function CibPdfShowPrintDialog Lib “CibPdf32.dll”
(ByVal a_ButtonID As Integer) As Intege
Private Declare Function CibPdfGetLastError Lib “CibPdf32.dll”
(ByRef a_iError As Integer) As Integer


Sub Main()
‚ Die Variable t_Return besitzt den Datentyp Long, hier werden die Rückgabewerte abgelegt
Dim t_Return As Integer
‚1. Festlegen der notwendigen Properties
‚Das Eingabe-Dokument wird angegeben. Diese Datei wird gedruckt
t_Return = CibPdfSetProperty(„InputFilename“, „C:\test.pdf“)
‚3. Optional einen Druckdialog einblenden, der dem Anwender Änderungen ermöglicht
CibPdfShowPrintDialog(0)
‚Ausgabeformat festlegen. Über den Befehl „FormatPrinter“ wird das Dokument auf 
dem Drucker ausgegeben.
t_Return = CibPdfSetProperty(“OutputFormat”, “FormatPrinter”)
‚2. Optional mögliche Funktionalitäten angeben (nur exemplarisch in diesem Besipiel)
‚Mit den Standardeinstellungen des Druckers wird der Duplex Druck vorgenommen.
t_Return = CibPdfSetProperty(“DuplexPrint2”, “DuplexPrintLong”)
‚Der Drucker druckt die Seiten 1,2,3,4,5.
t_Return = CibPdfSetProperty(„PageSelection“, „1-5“)
‚Es wird zusätzlich 1 Kopie ausgegeben
t_Return = CibPdfSetProperty(“PrintCopies2”, “1”)


‘Ausgabe anstoßen
t_Return = CibPdfJoin()

If (t_Return = 0) Then
‚Fehlernummer abholen
Dim t_Fehlernummer As Integer
CibPdfGetLastError(t_Fehlernummer)
End If

End Sub

End Module