Ver Mensaje Individual
  #4 (permalink)  
Antiguo 02/04/2005, 00:22
xochitemol
 
Fecha de Ingreso: diciembre-2004
Mensajes: 79
Antigüedad: 20 años, 2 meses
Puntos: 0
hola bebita

queria ver s me puedes explicar un poquito los pasos

Option Explicit
Dim m_Application As New CRAXDDRT.Application 'aplicacion crystal
Dim m_Report As CRAXDDRT.Report' reporte
Dim FileReport As String' ruta etc

Dim CPProp As CRAXDRT.ConnectionProperty
Dim DBTabl As CRAXDRT.DatabaseTable


Private Sub Form_Load()
FileReport = App.Path & "\Reporte.rpt"
Set m_Report = Nothing
Set m_Report = m_Application.OpenReport(FileReport, 1)
Set DBTabl = m_Report.Database.Tables(1)
DBTabl.Location = DirDataBase

CRViewer1.ReportSource = m_Report
CRViewer1.Zoom 1
CRViewer1.ViewReport
End Sub

Espero que te sirva [/QUOTE]