VB .NET - Impressão usando o System.Drawing.Printing

Uma das grandes lacunas existentes no VB é impressão. Com a versão do VB5 e VB6 tínhamos as seguintes opções para gerar relatórios e imprimir documentos:

• Crystal Reports -  fácil de usar mas acarretava o acréscimo de mais dll´s no seu projeto ; sem contar os problemas de registro de componentes que a ocx do crystal causava.
• Data Report - indicado apenas para relatórios mais simples. Sempre apresentou problemas e nunca convenceu ninguém do motivo a que veio ser incluída no VB.
• O objeto Printer - permitia uma certa liberdade e independência para o desenvolvedor mas exigia codificação extra o que para relatórios mais complexos exigia malabarismos. Tudo isto sem falar em funcionalidades básicas como a visualização da impressão que exigia uma implementação a parte ou a utilização de controle de terceiros.

A respeito deste panorama sombrio com relação a impressão no VB eu tenho duas notícias: uma boa e uma ruim. A ruim é que o VB .NET não resolveu todos os problemas existentes , e a boa é que ficou muito mais fácil imprimir documentos e gerar relatórios no VB .NET.

Neste artigo vou procurar mostrar como podemos usar o namespace System.Drawing.Printing , o sucessor do objeto Printer do VB , para criar relatórios usando código VB.NET.

Para começar vamos dar uma olhada nas principais classes para impressão .

PrintDocument :

• é usada para enviar a saida para uma impressora.
• Você instancia um PrintDocument , define algumas propriedades descrevendo o que deseja imprimir e chama o método Print.
• Esta classe dispara o evento PrintPage para cada página a ser impressa.
• Você geralmente inclui o seu código para impressão para um gerenciador de evento para este evento.

PrinterSettings : Fornece informações sobre como um documento será impresso.

PageSettings : Fornece informações sobre como uma página será impressa.

PrintPageEventArgs : Dados para o evento PrintPage de PrintDocument.

PrintEventArgs : Dados para os eventos BeginPrint e EndPrint em um PrintDocument. Permite cancelar o trabalho de impressão.

PrintPreviewControl : Um controle que exibe um PrintDocument. Permite criar um diálogo de visualizar a impressão.

PrintPreviewDialog : Diálogo que exibe um PrintDocument usando o PrintPreviewControl.

PageSetupDialog : Diálogo das propriedades da página.

PrintController : Controla um PrintDocument que é impresso. Temos dois PrintController

• DefaultPrintController - renderiza para a impressora
• PreviewPrintController - renderiza para o PrintPreviewControl.

Basicamente a lógica para uma impressão até feita usando os eventos de PrintDocument . Quando o método PrintDocument.Print() é chamado temos a seguinte sequência de eventos:

1. BeginPrint
2. PrintPage
3. EndPrint

O tipo de argumentos do evento PrintPage possui a propriedade HasMorePages. Se ela for definida como True quando o evento retornar , PrintDocument define uma nova página e levanta o evento PrintPage novamente. Desta forma a lógica do seu código para impressão no evento PrintPage deverá ser basicamente a seguinte :

• Imprimir o conteúdo da página usando a informação nos argumentos do evento. Eles contém  Graphics para a impressora, PageSettings para a página , as margens da página e o tamanho das margens.
• Determine se existem mais páginas a serem impressas.
• Se existir mais páginas defina HasMorePages como True caso contrário defina como False

Da teoria para a prática

Vou mostrar como podemos criar relatórios via código usando o System.Drawing.Printing usando como exemplo a criação de um relatório que exibe os dados contidos em uma tabela de um banco de dados. Iremos portanto realizar as seguintes tarefas:

• Acessar e abrir um banco de dados
• Exibir os dados de uma tabela deste banco de dados
• Trabalhar com fontes de formatos diferentes no relatório
• Trabalhar com cabeçalhos , rodapés e números de página
• Trabalhar com imagens no relatório
• Visualizar o relatório de dados
• Imprimir o relatório na impressora

Para não termos muito trabalho vou escolher uma tabela de um banco de dados já existente. O escolhido é o já famoso saco de pancadas Northwind.mdb . Iremos acessar a tabela produtos deste banco de dados e exibir em um relatório os campos : Código do Produto, Nome do Produto , Preço Unitário

A estrutura da tabela produtos do banco de dados Northwind.mdb é a seguinte :

 O layout do relatório deverá ser algo parecido com :

O acesso aos dados

Como iremos montar um relatório que vai exibir os dados da tabela Pedidos teremos que criar uma conexão e extrair os dados que desejemos exibir via instrução SQL.

Como iremos acessar uma base de dados Access irei usar o namespace System.Data.OleDb e o provedor  "Provider=Microsoft.Jet.OLEDB.4.0;".

Vamos utilizar um objeto DataReader para obter as informações da tabela via objeto OleDbCommand.

Conforme já mostrei no artigo - ADO.NET - Uma visão geral  I :  Objetos Connection ,  Command e DataReader - o código para conexão com uma base de dados Access em c:\teste\northwind.mdb usando um DataReader pode ser expresso assim :

Dim conn As New OleDbConnection()
conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\teste\northwind.mdb"
Dim cmd As OleDbCommand = conn.CreateCommand

cmd.CommandText = "Select CódigoDoProduto,NomeDoProduto, PreçoUnitário from Produtos"

conn.Open()
Dim leitor As OleDbDataReader = cmd.ExecuteReader()

Try
    While leitor.Read()
                'código para visualizar o relatório
    End While
    leitor.Close()
    conn.Close()

Catch erro As Exception
        MsgBox("Erro " & vbCrLf & erro.ToString, MsgBoxStyle.Critical, "Erro")
End Try
End Sub

No interior loop While/End While iremos é que vamos colocar o código que permite a visualização da impressão pois e no interior do loop que estaremos lendo os registros da tabela Produtos. Devemos fazer o seguinte:

• Criar um objeto PrintDocument
• Estabelecer uma relação entre o evento PrintPage e o relatório a ser gerado.

Nota: Para saber mais leia o artigo :  Impressão e Visualização. O que há de novo ?

O código deverá ficar assim :

        While drProdutos.Read

            'cria um novo documento para impressão
            Dim pd As PrintDocument = New PrintDocument()

           'relaciona o objeto pd ao procedimento rptProdutos
            AddHandler pd.PrintPage, AddressOf Me.rptProdutos

            'cria uma nova instância do objeto PrintPreviewDialog()

            objPrintPreview = New PrintPreviewDialog()

            'define algumas propriedades do obejto

            With objPrintPreview

                 'indica qual o documento vai ser visualizado

                .Document = pd

                .WindowState = FormWindowState.Maximized

                .PrintPreviewControl.Zoom = 1   'maxima a visualização

                .Text = "Catálogo de Produtos"

                 'exibe a janela de visualização para o usuário

                .ShowDialog()

            End With

        End While

A única novidade seria o código que relaciona o objeto PrintDocument com o evento rptProdutos :

 AddHandler pd.PrintPage, AddressOf Me.rptProdutos

Aqui estamos usando a declaração AddHandler e o operador AddressOf .

Neste caso estou associando o procedimento rptProdutos ao evento pd.PrintPage , ou seja , o procedimento rptProdutos irá os dados enviados pelo objeto DataReader e gerará o relatório formatado para visualização/impressão.

Agora só falta definir o código do procedimento rptProdutos. Embora seja um pouco trabalhoso o código é simples. Vamos a ele:

1- Primeiro vamos definir o procedimento que irá receber os dados do objeto DataReader sua declaração é a seguinte:

 Private Sub rptProdutos(ByVal sender As Object, ByVal Relatorio As System.Drawing.Printing.PrintPageEventArgs)

O procedimento possui um argumento do tipo PrintPageEventArgs chamado de Relatorio que iremos usar para definir a formatação do relatório através de cabeçalho, rodapé , título , fontes , linhas , imagens , texto, etc.

Antes de prosseguir vamos assumir que: Estamos imprimindo na impressora padrão. Agora vamos definir os itens que irão formatar o nosso relatório:

- Margens : vamos assumir as margens definidas pela impressora padrão para isto vamos usar a propriedade MarginBounds do objeto

Dim margemEsq As Single = Relatorio.MarginBounds.Left

Dim margemSup As Single = Relatorio.MarginBounds.Top

Dim margemDir As Single = Relatorio.MarginBounds.Right

Dim margemInf As Single = Relatorio.MarginBounds.Bottom

- Fontes : você pode usar a fonte que desejar com tamanho e estilos a sua escolha. Eu vou trabalhar com a fonte Verdana definida para Título , rodapé e normal. Para isto vou usar a classe Font.

Dim fonteTitulo As Font

Dim fonteRodape As Font

Dim fonteNormal As Font
 

fonteTitulo = New Font("Verdana", 15, FontStyle.Bold)

fonteRodape = New Font("Verdana", 8)

fonteNormal = New Font("Verdana", 10)

- Linhas , imagens e texto : Para imprimir linhas , imagens e/ou texto vamos usar os métodos do objeto PrintPageEventArgs(relatorio) conforme abaixo:

- Linhas - Para imprimir um a linha reta entre dois pontos usa o método : relatorio.Graphics.DrawLine - DrawLine ( pen , point1, point2) :

• pen : define a cor , estilo e espessura da linha
• Point1 : define o ponto inicial
• Point2 : define o ponto final

- Imagens - Para imprimir uma imagem (bmp,wmf, gif ou jpg) usamos o método: relatorio.Graphics.DrawImage - DrawImage(image,point):

• image - indica o caminho e nome do arquivo de imagem que vamos imprimir
• point - indica as coordenadas para o eixo x e y que referencia a posição da imagem no documento

- Textos - Para imprimir uma string usamos o método : relatorio.Graphics.DrawString - DrawString( string ,font, brush, point, format)

• String : é o texto a ser impresso
• Brush : define a cor , espessura e estilo da fonte
• Point : indica as coordenadas para o eixo x e y que referencia a posição da string no documento
• Format : indica parâmetros de formatação avançada: ( impressão vertical , etc.)

Então a seguir vou mostrar como podemos imprimir as secções do relatório usando os métodos e propriedades já vistos até aqui.

- Impressão do cabeçalho: Abaixo temos uma imagem do cabeçalho que desejamos:

e a seguir o código que implementa isto :

Relatorio.Graphics.DrawLine(caneta, margemEsq, 60, margemDir, 60)

Relatorio.Graphics.DrawImage(Image.FromFile("c:\teste\" & "maco10.gif"), 100, 68)

Relatorio.Graphics.DrawLine(caneta, margemEsq, 160, margemDir, 160)

Relatorio.Graphics.DrawString("Catálogo de Produtos", fonteTitulo, Brushes.Blue, margemEsq + 275, 80, New StringFormat())

- Impressão dos títulos das colunas do relatório.

O  título das colunas irá exibir os nomes : Código , Produto e Preço no relatório. O código esta abaixo:

o resultado é :

Precisamos definir o número de linhas por página conforme a área de impressão , assim poderemos ajeitar o rodapé na página. O código para isto é o seguinte:

Vamos a seguir atribuir os dados da fonte de dados para as variáveis já definidas

Finalmente iremos iniciar o laço While/End e ler enquanto a linha atual for menor que o número de linhas por página e houver dados. Quando o número de linhas atual for maior que o permitido iremos criar o rodapé , verificar se ainda há dados para serem lidos e , se for o caso , continuar a impressão na próxima página.

O resultado da visualização da impressão será o seguinte :

Usando as classes do System.Drawing.Printing podemos criar relatórios completos com recursos de visualização sem precisar recorrer a soluções de terceiros.

Até o próximo artigo VB.NET

Referências:   

  Gostou ?   Compartilhe no Facebook   Compartilhe no Twitter

Referências:

• Seção VB .NET do Site Macoratti.net

• Super DVD .NET - A sua porta de entrada na plataforma .NET

• Super DVD Vídeo Aulas - Vídeo Aula sobre VB .NET, ASP .NET e C#

• Seção C# do site Macoratti.net

• Super DVD C#

• Super DVD Visual Basic

• Curso Básico VB .NET - Vídeo Aulas

• Curso C# Básico - Vídeo Aulas

• Seção de Jogos - Macoratti .NET

• Impressão e Visualização. O que há de novo ?

• VB .NET - Imprimindo via código

• Visualizandoa impressão no VB

• VB 2008 - Cadastro de Alunos

José Carlos Macoratti