/
Form1.vb
37 lines (33 loc) · 1.56 KB
/
Form1.vb
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
Imports System
Imports System.Drawing.Printing
Imports System.Windows.Forms
Imports DevExpress.Pdf
Imports DevExpress.XtraPdfViewer
Namespace PdfPrinterSettingsDemo
Public Partial Class Form1
Inherits Form
Public Sub New()
InitializeComponent()
End Sub
Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs)
' Create a PDF Viewer instance and load a PDF into it.
Dim pdfViewer As PdfViewer = pdfViewer1
pdfViewer.LoadDocument("..\..\Demo.pdf")
' If required, declare and specify the system printer settings.
Dim printerSettings As PrinterSettings = New PrinterSettings()
printerSettings.PrinterName = "Microsoft XPS Document Writer"
printerSettings.PrintToFile = True
printerSettings.PrintFileName = "..\..\Demo.xps"
' Declare the PDF printer settings.
' If required, pass the system settings to the PDF printer settings constructor.
Dim pdfPrinterSettings As PdfPrinterSettings = New PdfPrinterSettings(printerSettings)
' Specify the PDF printer settings.
pdfPrinterSettings.PageOrientation = PdfPrintPageOrientation.Auto
pdfPrinterSettings.PageNumbers = New Integer() {1, 3, 4, 5}
pdfPrinterSettings.ScaleMode = PdfPrintScaleMode.CustomScale
pdfPrinterSettings.Scale = 90
' Print the document using the specified printer settings.
pdfViewer.Print(pdfPrinterSettings)
End Sub
End Class
End Namespace