Solved

VB.NET - Change Windows Printer Settings...

Posted on 2009-05-13
3
1,035 Views
Last Modified: 2012-08-13
I am trying to figure out how to show the user a list of their installed printers to choose from.  Then, based on the printer they select, show then the available paper sizes for that printer.  And then, for the printer they selected, change some of their windows printer settings for that printer.  Specifically:  Paper Size and print Landscape instead of Portrait.

So what I'm needing to figure out how to do:

1.  Show the user a list of their installed printers via combobox or listbox
2.  Based on their selection, show the user the available paper sizes for that printer via combobox or listbox.
3.  Change the default paper size and orientation of the chosen printer.  (Same as you would do manually by going to Printers and Faxes, right-clicking on the printer, and choosing Properties.)
0
Comment
Question by:LittleOleMeDesigns
3 Comments
 
LVL 83

Expert Comment

by:CodeCruiser
Comment Utility
0
 
LVL 15

Accepted Solution

by:
oobayly earned 500 total points
Comment Utility
You can use the PrinterSettings class in System.Drawing.Printing.

Assuming you've got a form called Form1 with 2 ComboBoxes comboPrinters & comboPaperSizes
Private settings As New PrinterSettings()

Private page As PageSettings
 

Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs) Handles Form1.Load

    '' Populate a combobox with all the printer names

    comboPrinters.BeginUpdate()

    comboPrinters.Items.Clear()

    For Each name As String In PrinterSettings.InstalledPrinters

        comboPrinters.Items.Add(name)

    Next

    comboPrinters.EndUpdate()

    comboPrinters.SelectedItem = settings.PrinterName

End Sub
 

Private Sub comboPaperSizes_SelectedValueChanged(ByVal sender As Object, ByVal e As EventArgs) Handles comboPaperSizes.SelectedValueChanged

    page = New PageSettings(settings)

    page.PaperSize = DirectCast(comboPaperSizes.SelectedValue, PaperSize)

End Sub
 

Private Sub comboPrinters_SelectedIndexChanged(ByVal sender As Object, ByVal e As EventArgs) Handles comboPrinters.SelectedIndexChanged

    '' Populate a combox with paper sizes 

    settings.PrinterName = DirectCast(comboPrinters.SelectedItem, String)

    Dim sizes As New BindingList(Of PaperSize)()

    For Each size As PaperSize In settings.PaperSizes

        sizes.Add(size)

    Next

    comboPaperSizes.DisplayMember = "PaperName"

    comboPaperSizes.DataSource = sizes

End Sub

Open in new window

0
 
LVL 4

Author Closing Comment

by:LittleOleMeDesigns
Comment Utility
Thank-You for the excellent example!
0

Featured Post

Comprehensive Backup Solutions for Microsoft

Acronis protects the complete Microsoft technology stack: Windows Server, Windows PC, laptop and Surface data; Microsoft business applications; Microsoft Hyper-V; Azure VMs; Microsoft Windows Server 2016; Microsoft Exchange 2016 and SQL Server 2016.

Join & Write a Comment

Suggested Solutions

If your system is showing symptoms of browser hijacks or 'google search redirects' check out my other article (http://rdsrc.us/u3GP7A) first and run the tool TDSSKiller (http://rdsrc.us/GDBBs4) to get rid of the infection. Once done, and if the …
Wouldn’t it be nice if you could test whether an element is contained in an array by using a Contains method just like the one available on List objects? Wouldn’t it be good if you could write code like this? (CODE) In .NET 3.5, this is possible…
This video shows how to remove a single email address from the Outlook 2010 Auto Suggestion memory. NOTE: For Outlook 2016 and 2013 perform the exact same steps. Open a new email: Click the New email button in Outlook. Start typing the address: …
This tutorial demonstrates a quick way of adding group price to multiple Magento products.

771 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

10 Experts available now in Live!

Get 1:1 Help Now