Dim caption As String = "Example: PrintSetFromToPage"
Dim gdpicturePDF As GdPicturePDF = 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
If gdpicturePDF.PrintSetPaperBin(7) Then
message = message + " paper bin: 7 (automatic feed)" + vbCrLf
Else
message = "The PrintSetPaperBin() method has failed with the status: " + gdpicturePDF.GetStat()
End If
End If
If gdpicturePDF.GetStat() = GdPictureStatus.OK Then
Dim pSize As System.Drawing.Printing.PaperSize = New System.Drawing.Printing.PaperSize("My custom size", 120, 250)
gdpicturePDF.PrintSetPaperSize(pSize)
If gdpicturePDF.GetStat() = GdPictureStatus.OK Then
message = message + " paper size: 120, 250" + vbCrLf
Else
message = "The PrintSetPaperSize() method has failed with the status: " + gdpicturePDF.GetStat()
End If
End If
If gdpicturePDF.GetStat() = GdPictureStatus.OK Then
gdpicturePDF.PrintSetFromToPage(2, 4)
If gdpicturePDF.GetStat() = GdPictureStatus.OK Then
message = message + " page range: 2-4" + vbCrLf
Else
message = "The PrintSetFromToPage() method has failed with the status: " + gdpicturePDF.GetStat()
End If
End If
If gdpicturePDF.GetStat() = GdPictureStatus.OK Then
If gdpicturePDF.Print() = GdPictureStatus.OK Then
message = message + "The file has been printed successfully using new settings."
Else
message = message + "The file can't be printed." + vbCrLf + "Status: " + gdpicturePDF.PrintGetStat().ToString()
If gdpicturePDF.PrintGetStat() = GdPictureStatus.PrintingException Then
message = message + " Error: " + gdpicturePDF.PrintGetLastError()
End If
End If
Else
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: PrintSetFromToPage";
GdPicturePDF gdpicturePDF = new GdPicturePDF();
string message = "";
if (gdpicturePDF.LoadFromFile("document_to_print.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)
{
if (gdpicturePDF.PrintSetPaperBin(7))
message = message + " paper bin: 7 (automatic feed)\n";
else
message = "The PrintSetPaperBin() method has failed with the status: " + gdpicturePDF.GetStat();
}
if (gdpicturePDF.GetStat() == GdPictureStatus.OK)
{
System.Drawing.Printing.PaperSize pSize = new System.Drawing.Printing.PaperSize("My custom size", 120, 250);
gdpicturePDF.PrintSetPaperSize(pSize);
if (gdpicturePDF.GetStat() == GdPictureStatus.OK)
message = message + " paper size: 120, 250\n";
else
message = "The PrintSetPaperSize() method has failed with the status: " + gdpicturePDF.GetStat();
}
if (gdpicturePDF.GetStat() == GdPictureStatus.OK)
{
gdpicturePDF.PrintSetFromToPage(2,4);
if (gdpicturePDF.GetStat() == GdPictureStatus.OK)
message = message + " page range: 2-4\n";
else
message = "The PrintSetFromToPage() method has failed with the status: " + gdpicturePDF.GetStat();
}
if (gdpicturePDF.GetStat() == GdPictureStatus.OK)
{
if (gdpicturePDF.Print() == GdPictureStatus.OK)
{
message = message + "The file has been printed successfully using new settings.";
}
else
{
message = message + "The file can't be printed.\nStatus: " + gdpicturePDF.PrintGetStat().ToString();
if (gdpicturePDF.PrintGetStat() == GdPictureStatus.PrintingException)
message = message + " Error: " + gdpicturePDF.PrintGetLastError();
}
}
else
{
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();