Postada em 24/01/2007 12:26 hs
Private Sub IMPRIMIR_Click()
On Error GoTo ERRO_RELATORIO
Screen.MousePointer = 11 'muda o ponteiro do mouse
CrystalReport1.Connect = "pwd=sua senha" 'somente se seu banco tiver senha, senão pede apagar alinha
CrystalReport1.ReportFileName = App.Path & "
elatorio.rpt"
CrystalReport1.SelectionFormula = ""
CrystalReport1.WindowTitle = "Relatório"
CrystalReport1.WindowState = crptMaximized
CrystalReport1.PrintReport
Screen.MousePointer = 0 'muda o ponteiro do mouse
Exit Sub
ERRO_RELATORIO:
MsgBox Err.Number & " - " & Err.Description, vbCritical, "Imprimir"
End Sub
Espero ter ajudado!
t+
.:Rodrigo Bedin:.
|
