Program.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 38 39 40 | Imports Bytescout.PDFRenderer Class Program Friend Shared Sub Main(args As String ()) Const PrinterName As String = "Microsoft Print to PDF" ' Create an instance of Bytescout.PDFRenderer.DocumentPrinter object and register it. Dim documentPrinter As New DocumentPrinter() documentPrinter.RegistrationName = "demo" documentPrinter.RegistrationKey = "demo" ' Load PDF document. documentPrinter.LoadDocumentFromFile( "multipage.pdf" ) ' Change some printing options for demo purposes ' (note, some options might be not supported by the printer): ' Change paper orientation documentPrinter.Landscape = True ' Set number of copies documentPrinter.Copies = 2 ' Set collation documentPrinter.Collate = True ' Force black and white printing documentPrinter.Color = False ' Print all document pages to the specified printer documentPrinter.PrintDocument(PrinterName) ' To print specific pages use overridden methods allowing to define pages to print: 'documentPrinter.PrintDocument(PrinterName, 2, 4) ' printer pages from 3 to 5 'documentPrinter.PrintDocument(PrinterName, New Integer() {0, 2, 3, 4, 6}) ' print specific pages 'documentPrinter.PrintDocument(PrinterName, "1,3-5,7-") documentPrinter.Dispose() End Sub End Class |
Click here to get your Free Trial version of the SDK
also available as: