Dim caption As String = "Example: PrintGetMargins"
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()
string caption = "Example: PrintGetMargins";
GdPicturePDF gdpicturePDF = new GdPicturePDF();
string message = "";
if (gdpicturePDF.LoadFromFile("test.pdf", false) == GdPictureStatus.OK)
{
string curPrinter = gdpicturePDF.PrintGetActivePrinter();
if (gdpicturePDF.GetStat() == GdPictureStatus.OK)
message = "Active printer: " + curPrinter + "\n";
else
message = "The PrintGetActivePrinter() method has failed with the status: " + gdpicturePDF.GetStat();
if (gdpicturePDF.GetStat() == GdPictureStatus.OK)
{
float leftMargin = 0, rightMargin = 0;
gdpicturePDF.PrintGetMargins(ref leftMargin, ref rightMargin);
if (gdpicturePDF.GetStat() == GdPictureStatus.OK)
message = message + " margins: left = " + leftMargin.ToString() + ", right = " + rightMargin.ToString() + "\n";
else
message = "The PrintGetMargins() method has failed with the status: " + gdpicturePDF.GetStat();
}
if (gdpicturePDF.GetStat() == GdPictureStatus.OK)
{
int prnBin = gdpicturePDF.PrintGetPaperBin();
if (gdpicturePDF.GetStat() == GdPictureStatus.OK)
message = message + " paper bin: " + prnBin.ToString() + "\n";
else
message = "The PrintGetPaperBin() method has failed with the status: " + gdpicturePDF.GetStat();
}
if (gdpicturePDF.GetStat() == GdPictureStatus.OK)
{
int prnSize = gdpicturePDF.PrintGetPaperSize();
if (gdpicturePDF.GetStat() == GdPictureStatus.OK)
message = message + " paper size: " + prnSize.ToString() + "\n";
else
message = "The PrintGetPaperSize() method has failed with the status: " + gdpicturePDF.GetStat();
}
if (gdpicturePDF.GetStat() == GdPictureStatus.OK)
{
float prnHeight = gdpicturePDF.PrintGetPaperHeight();
if (gdpicturePDF.GetStat() == GdPictureStatus.OK)
message = message + " paper height: " + prnHeight.ToString();
else
message = "The PrintGetPaperHeight() method has failed with the status: " + gdpicturePDF.GetStat();
}
if (gdpicturePDF.GetStat() == GdPictureStatus.OK)
{
float prnWidth = gdpicturePDF.PrintGetPaperWidth();
if (gdpicturePDF.GetStat() == GdPictureStatus.OK)
message = message + " paper width: " + prnWidth.ToString() + "\n";
else
message = "The PrintGetPaperWidth() method has failed with the status: " + gdpicturePDF.GetStat();
}
if (gdpicturePDF.GetStat() != GdPictureStatus.OK)
{
message = "The example has NOT been followed successfully. Status: " + gdpicturePDF.GetStat().ToString();
}
}
else
{
message = "The file can't be loaded. Status: " + gdpicturePDF.GetStat().ToString();
}
MessageBox.Show(message, caption);
gdpicturePDF.Dispose();