VB .NET - Usando a classe PrinterSettings

O VB .NET possui uma infinidade de classes que facilitam a vida do programador. Para obter informações das impressoras instaladas no seu computador você pode usar a classe definida em System.Drawing.Printing.PrinterSettings.

Você pode usar esta classe para determinar e efetuar as seguintes operações:

• As impressoras instaladas
• A resolução suportada pela impressora
• Os tamanhos de papéis suportados pela impressora
• A fonte do papel
• Imprimir em cor
• Imprimir dos dois lados do papel
• mudar as configurações padrão da impressora : margem , orientação do papel , etc..

A coleção - InstalledPrinters - contém o nome de cada impressora instalada no seu computador e é usada para acessar a impressora especificada.

A seguir um exemplo de como usar a classe PrinterSettings para obter informações sobre as impressoras instaladas.

Inicie um novo projeto no VS.NET do tipo Windows Application dando ao projeto um nome sugestivo - PrinterSettings .  A seguir inclua no formulário padrão os seguintes controles (conforme figura abaixo) :

• 3 listbox ,  5 labels,  1 textbox(Multiline) , 1 button

O código completo do projeto é o seguinte :

  Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim aConfiguracoes As PrinterSettings

        Dim aNomeImpressora As String

        For Each aNomeImpressora In PrinterSettings.InstalledPrinters

            ListBox1.Items.Add(aNomeImpressora)

        Next

        ListBox1.SelectedIndex = 0

    End Sub

    Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles _
ListBox1.SelectedIndexChanged

        If ListBox1.SelectedIndex <> -1 Then

            Dim aConfiguracoes As New PrinterSettings()

            Dim aResolucao As PrinterResolution

            Dim aTamanhoPapel As PaperSize

            aConfiguracoes.PrinterName = CType(ListBox1.SelectedItem, String)

            For Each aResolucao In aConfiguracoes.PrinterResolutions

                ListBox2.Items.Add(aResolucao.ToString & vbCrLf)

            Next

            For Each aTamanhoPapel In aConfiguracoes.PaperSizes

                ListBox3.Items.Add(aTamanhoPapel.ToString & vbCrLf)

            Next

            Label4.Text = ListBox1.SelectedItem

            TextBox2.Text = aConfiguracoes.DefaultPageSettings.ToString & vbCrLf

        End If

    End Sub

Executando o projeto teremos:

O programa funciona assim:

1- Quando a aplicação inicia o formulário - form1.vb - do projeto é carregado e exibe todos os controles vazios.
2- Quando o usuário clicar no botão - Impressoras - Obter Informações - o código abaixo irá ser executado:

        Dim aConfiguracoes As PrinterSettings

        Dim aNomeImpressora As String

        For Each aNomeImpressora In PrinterSettings.InstalledPrinters

            ListBox1.Items.Add(aNomeImpressora)

        Next

        ListBox1.SelectedIndex = 0

3- O código no evento - SelectedIndexChanged - do Listbox será disparado cada vez que houver uma alteração na seleção de um item do ListBox. A cada mudança ocorrem as seguintes tarefas:

 For Each aResolucao In aConfiguracoes.PrinterResolutions

                ListBox2.Items.Add(aResolucao.ToString & vbCrLf)

 Next	

 For Each aTamanhoPapel In aConfiguracoes.PaperSizes

                ListBox3.Items.Add(aTamanhoPapel.ToString & vbCrLf)

 Next

Muito fácil obter informações sobre a impressora , não é mesmo ? Mas você pode fazer muito mais coisas do que as que eu mostrei aqui.Pode alterar o intervalo de páginas para impressão ; assim :

Existem também outras propriedades públicas que você pode usar para realizar outra tarefas. Abaixo as principais:

A maneira de utilizar é sempre a mesma : Você instancia a classe PrinterSettings e utiliza os seu métodos como mostrado acima.

Até a próxima ...

José Carlos Macoratti