Postada em 01/11/2011 10:48 hs
Pessoal estou precisando colocar o CAMINHO DO Banco de dados neste código, alguem sabe como faço isso?
OBS.: O caminho dos RPT eu consegui.
Private Sub Form_Load()
Dim Aplicacao As New CRAXDRT.Application
Dim Report As New CRAXDRT.Report
Set Report = Aplicacao.OpenReport(CaminhoRel & ArqRelatorio)
Report.RecordSelectionFormula = StringSQL
Call Report.PrinterSetup(0) 'Opção para selecionar a impressora
CRViewer1.ReportSource = Report
CRViewer1.ViewReport
End Sub
Private Sub Form_Resize()
On Error Resume Next
CRViewer1.Top = 0
CRViewer1.Left = 0
CRViewer1.Height = frmRelatorios.Height - 500
CRViewer1.Width = frmRelatorios.Width
End Sub
|
