NO SE SI TE SIRVA PERO TEENVIO ESTE PEDASITO DE CODIGO ES EN CR 8.5 ESPERO TE SIRVA
Dim Report As New CrystalReport1
Dim RS As New ADOR.Recordset
Private Sub Form_Load()
Screen.MousePointer = vbHourglass
CRViewer1.EnableRefreshButton = Not CRViewer1.EnableRefreshButton
CRViewer1.EnableExportButton = Not CRViewer1.EnableExportButton
base = "select * from entraalalmacen where folio = " & Form2.Text48.Text & ";"
Dim RS As Connection
Set db = New Connection
db.CursorLocation = adUseClient
db.Open "PROVIDER=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;User ID=Admin;Data Source=\\Servidor\BusinessAdmin2k4\BArena.mdb;"
Set adoPrimaryRS = New Recordset
adoPrimaryRS.Open base, db, adOpenStatic, adLockOptimistic
Report.Database.SetDataSource adoPrimaryRS
CRViewer1.ReportSource = Report
CRViewer1.ViewReport
Screen.MousePointer = vbDefault
End Sub
Private Sub Form_Resize()
CRViewer1.Top = 0
CRViewer1.Left = 0
CRViewer1.Height = ScaleHeight
CRViewer1.Width = ScaleWidth
End Sub
AMI ME FUNCIONA BIEN.
ESPERO TE SIRVA
Cesar Leonardo España Reyes
Mexico
chicharos2002@yahoo.com.mx