GdPicture Imaging Forums

Code: Select all

Public Sub AddTask(ByVal pdfpath As String)
        Dim pdfcontent As New GdPicturePDF
        Dim ps As Printing.PrinterSettings = pdfcontent.PrintGetPrinterSettings
        If pdfcontent.LoadFromFile(pdfpath, False) = GdPictureStatus.OK Then
            If pdfcontent.PrintSetActivePrinter(printername) Then
                If pdfcontent.PrintGetStat = GdPictureStatus.OK Then
                    Dim dsa As String = pdfcontent.PrintGetStat.ToString
                    pdfcontent.Print()
                Else
                    Dim dsa As String = pdfcontent.PrintGetStat.ToString

                End If



            End If
        End If
        pdfcontent.CloseDocument()