[Visual Basic Syntax] Imports Viscomsoft.PDFViewer
Public Class Form1
Private Sub resizeCanvas()
_pdfviewer.Canvas.Size = New Size(Me.ClientSize.Width, Me.ClientSize.Height - 24)
End Sub
Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
_pdfviewer.Canvas.Parent = Me
_pdfviewer.Canvas.Location = New Point(0, 24)
resizeCanvas()
Dim doc As New PDFDocument
Dim i As Integer Dim iCount As Integer Dim str As String
If doc.open("c:\temp\yourfile.pdf") Then
_pdfviewer.Document = doc
_pdfviewer.gotoPage(1) iCount =_pdfViewer.Document.getPaperSourceCountByPrinter ("Microsoft Print to PDF")
For i = 0 to iCount -1 str = _pdfViewer.Document.getPaperSourceNameByPrinter ("Microsoft Print to PDF",i) MessageBox.Show(str) Next _pdfViewer.Document.print2printer "Microsoft Print to PDF",0 End If
End Sub
End Class
|