i try to print pdf but not thing printed on paper
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()