Solved

VB.NET - Change Windows Printer Settings...

Posted on 2009-05-13
3
1,036 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
ID: 24386569
0
 
LVL 15

Accepted Solution

by:
oobayly earned 500 total points
ID: 24386782
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
ID: 31618525
Thank-You for the excellent example!
0

Featured Post

PRTG Network Monitor: Intuitive Network Monitoring

Network Monitoring is essential to ensure that computer systems and network devices are running. Use PRTG to monitor LANs, servers, websites, applications and devices, bandwidth, virtual environments, remote systems, IoT, and many more. PRTG is easy to set up & use.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Step by step guide to Clean and Sort your windows registry! Introduction: Always remember: A Clean registry = Better performance = Save your invaluable time In this article we're going to clear our registry manually! Yes, manually! The e…
It is only natural that we all want our PCs to be in good working order, improved system performance, so that is exactly how programs are advertised to entice. They say things like:            •      PC crashes? Get registry cleaner to repair it!    …
When you create an app prototype with Adobe XD, you can insert system screens -- sharing or Control Center, for example -- with just a few clicks. This video shows you how. You can take the full course on Experts Exchange at http://bit.ly/XDcourse.
This is a video describing the growing solar energy use in Utah. This is a topic that greatly interests me and so I decided to produce a video about it.

932 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

9 Experts available now in Live!

Get 1:1 Help Now