willam

Amigo el código es un poco largo, porque no me esrcibes un E-Mail y te envío el código fuente, para que no empieces de 0.

El código es largo y complicado, pero si deseas escríbeme un EMail y te envío el código fuente.

Este código te ayudara, si necesitas código más avanzados, escríbeme un E-Mail rep1.Connect = ("C:\sia\base") rep1.DataFiles(0) =("C:\sia\base.mdb") rep1.ReportFileName="C:\sia\rep01.rpt") rep1.Action = 1