A impressão através do Visual Basic

Estes relatórios acompanham os nossos projectos de Visual Basic, e dentro do projecto podemos mandar imprimi-los, acrescentando como já vimos o objecto Crystal Report á nossa ToolBox, e porteriormente ao Form dentro do qual queremos que a impressão se efectue.

Imaginemos que temos dentro de um Form um botão com a propriedade "Caption" = Imprimir e a propriedade "Name" = cmdimprimir.

vamos escrever um código possivel seguido da explicação que achamos pertinente. As linhas numeradas servem unicamente como referência, e não fazem parte do código Visual Basic

1. CrystalReport1.SelectionFormula = "{amigos.nome} = & txtnome.text
2. CrystalReport1.SortFields(0) = "+{amigos.dtnasc}"
3. CrystalReport1.Formulas(0) = "firma='" & sFirma
4. CrystalReport1.Formulas(1) = "cabeçalho='" & "Cabeçalho de Página"
5. CrystalReport1.DataFiles(0) = "c:\projectos\tutoriais\amigos.mdb"
6. CrystalReport1.CopiesToPrinter = 2
7. CrystalReport1.ReportFileName = "c:\projectos\tutoriais\amigos.rpt"
8. CrystalReport1.Destination = 0
9. iResult = CrystalReport1.PrintReport
                 If iResult <> 0 Then
                      MsgBox CrystalReport1.LastErrorString
                 End If

End Sub

Comentário sobre o código que acabámos de escrever:

1. O relatório é impresso somente com detalhes onde o campo da tabela amigos seja igual á caixa de texto "txtnome.text" .
2. A linha de detalhe é impressa com a tabela ordenada pela campo dtnasc.
3. No relatório é impresso uma string numa variavel nome com o valor de sFirma.
4. No relatório é impresso uma string numa 2ª variável com o nome cabeçalho.
5. Esta linha indica o caminho onde está alojada a Base de Dados.
6. Serão impressas duas cópias do relatório.
7. Esta linha indica o caminho e o nome do relatório a ser impresso.
8. Destination=0 indica a visualização no ecran antes de ser reencaminhado para a impressora. Os outros valores possiveis são: 1 - Impressora; 2 - Ficheiro; 3 - Email via MAPI; 4 - Email via VIM
9. Se a execução da ordem de impressão for diferente de zero, é porque ocorreu uma situação de erro, que será visualizada no ecran.

Os caminhos indicados nas linhas 5 e 7 poderão ser substituidas por strings, contendo os valores respectivos.