Dim caption As String = "Example: PrintGetPaperBin"
Dim gdpicturePDF As New GdPicturePDF()
Dim message As String = ""
If gdpicturePDF.LoadFromFile("document_to_print.pdf", False) = GdPictureStatus.OK Then
    Dim curPrinter As String = gdpicturePDF.PrintGetActivePrinter()
    If gdpicturePDF.GetStat() = GdPictureStatus.OK Then
        message = "Active printer: " + curPrinter + vbCrLf
    Else
        message = "The PrintGetActivePrinter() method has failed with the status: " + gdpicturePDF.GetStat()
    End If
    If gdpicturePDF.GetStat() = GdPictureStatus.OK Then
        Dim leftMargin As Single = 0, rightMargin As Single = 0
        gdpicturePDF.PrintGetMargins(leftMargin, rightMargin)
        If gdpicturePDF.GetStat() = GdPictureStatus.OK Then
            message = message + "    margins: left = " + leftMargin.ToString() + ", right = " + rightMargin.ToString() + vbCrLf
        Else
            message = "The PrintGetMargins() method has failed with the status: " + gdpicturePDF.GetStat()
        End If
    End If
    If gdpicturePDF.GetStat() = GdPictureStatus.OK Then
        Dim prnBin As Integer = gdpicturePDF.PrintGetPaperBin()
        If gdpicturePDF.GetStat() = GdPictureStatus.OK Then
            message = message + "    paper bin: " + prnBin.ToString() + vbCrLf
        Else
            message = "The PrintGetPaperBin() method has failed with the status: " + gdpicturePDF.GetStat()
        End If
    End If
    If gdpicturePDF.GetStat() = GdPictureStatus.OK Then
        Dim prnSize As Integer = gdpicturePDF.PrintGetPaperSize()
        If gdpicturePDF.GetStat() = GdPictureStatus.OK Then
            message = message + "    paper size: " + prnSize.ToString() + vbCrLf
        Else
            message = "The PrintGetPaperSize() method has failed with the status: " + gdpicturePDF.GetStat()
        End If
    End If
    If gdpicturePDF.GetStat() = GdPictureStatus.OK Then
        Dim prnHeight As Single = gdpicturePDF.PrintGetPaperHeight()
        If gdpicturePDF.GetStat() = GdPictureStatus.OK Then
            message = message + "    paper height: " + prnHeight.ToString()
        Else
            message = "The PrintGetPaperHeight() method has failed with the status: " + gdpicturePDF.GetStat()
        End If
    End If
    If gdpicturePDF.GetStat() = GdPictureStatus.OK Then
        Dim prnWidth As Single = gdpicturePDF.PrintGetPaperWidth()
        If gdpicturePDF.GetStat() = GdPictureStatus.OK Then
            message = message + "    paper width: " + prnWidth.ToString() + vbCrLf
        Else
            message = "The PrintGetPaperWidth() method has failed with the status: " + gdpicturePDF.GetStat()
        End If
    End If
    If gdpicturePDF.GetStat() <> GdPictureStatus.OK Then
        message = "The example has NOT been followed successfully. Status: " + gdpicturePDF.GetStat().ToString()
    End If
Else
    message = "The file can't be loaded. Status: " + gdpicturePDF.GetStat().ToString()
End If
MessageBox.Show(message, caption)
gdpicturePDF.Dispose()