Private Sub testPage_btn_Click(sender As Object, e As EventArgs) Handles testPage_btn.Click Dim PDFCreatorQueue As pdfforge.PDFCreator.COM.Queue Dim PrintJob As pdfforge.PDFCreator.COM.PrintJob Dim assemblyDir, fullPath As String PDFCreatorQueue = New pdfforge.PDFCreator.COM.Queue() Try assemblyDir = Path.GetDirectoryName(System.Reflection.Assembly.GetExecutingAssembly().Location) assemblyDir = assemblyDir.Replace("\\bin\\Debug", "\\Results") fullPath = Path.Combine(assemblyDir, "TestPage_2Pdf.pdf") MsgBox("Initializing PDFCreator queue...") PDFCreatorQueue.Initialize() MsgBox("Printing windows test page...") printFile() If Not PDFCreatorQueue.WaitForJob(10) Then MsgBox("The print job did not reach the queue within " & " 10 seconds") Else MsgBox("Currently there are " & PDFCreatorQueue.Count & " job(s) in the queue") MsgBox("Getting job instance") PrintJob = PDFCreatorQueue.NextJob PrintJob.SetProfileByGuid("DefaultGuid") MsgBox("Converting under ""DefaultGuid"" conversion profile") PrintJob.ConvertTo(fullPath) If (Not PrintJob.IsFinished Or Not PrintJob.IsSuccessful) Then MsgBox("Could not convert the file: " & fullPath) Else MsgBox("Job finished successfully") End If End If Catch Ex As Exception MessageBox.Show("Original error: " & Ex.Message) Finally MsgBox("Releasing the queue object") PDFCreatorQueue.ReleaseCom() End Try ' End If End Sub

; Sample code is based on the imported COM signatures that are created by: ; /sti /mwr=com /pid PDFCreator.JobQueue variables boolean bResult, bJobIsFinished, bJobIsSuccessful handle hPDFCreatorQueue, hPrintJob numeric nJobCount string fullPath endvariables newinstance "Queue", hPDFCreatorQueue fullPath = $concat($ldir(), "TestPage_2Pdf.pdf") message/info "Initializing PDFCreator queue..." hPDFCreatorQueue->Initialize() message/info "Printing test page..." print "PRINTER" hPDFCreatorQueue->WaitForJob(bResult, 10) If (!bResult) message/error "The print job did not reach the queue within 10 seconds" Else hPDFCreatorQueue->Get_Count(nJobCount) message/info $concat("Currently there are ", nJobCount, " job(s) in the queue") message/info "Getting job instance" hPDFCreatorQueue->Get_NextJob(hPrintJob) hPrintJob->SetProfileByGuid("DefaultGuid") message/info "Converting under %%"DefaultGuid%%" conversion profile" hPrintJob->ConvertTo(fullPath) hPrintJob->Get_IsFinished(bJobIsFinished) hPrintJob->Get_IsSuccessful(bJobIsSuccessful) If (!bJobIsFinished | !bJobIsSuccessful) message/error $concat("Could not convert the file: ", fullPath) Else message/info "Job finished successfully" EndIf EndIf message/info "Releasing the queue object" hPDFCreatorQueue->ReleaseCom()