Visual Basic

[Guest Lola]

Olá,

tenho um sistema em VB que utiliza o Crystal Report para imprimir relatórios com campos de um banco de dados.

Como faço para, ao pedir impressão, eu possa selecionar quantos relatórios eu quero imprimir? Além disso, como faço para imprimir o relatório um número "X"de vezes com vários nomes diferentes do banco de dados de uma só vez? O Crystal Report tem essa facilidade?

Grata, LOLA.

[Danilo Faciroli]

Ola segue o codigo que você precisa

Private Sub mnuGeral_Click()

On Error GoTo Imp_Error

'cr1.DataFiles(0) = App.Path & "\sistmarcelo.mdb"

cr1.DataFiles(0) = App.Path & "\sistmarcelo.mdb"

cr1.ReportFileName = App.Path & "\salario_obs.rpt"

cr1.Destination = crptToWindow

cr1.Action = 1

Imp_Error:

If Err Then

MsgBox Err.Description, vbCritical, "Atenção"

Exit Sub

End If