hi there ,
try this :
Code:
CrystalReport1.ReportFileName = App.Path & "\lista de accionistas1.rpt"
CrystalReport1.RetrieveDataFiles
CrystalReport1.Destination = crptToWindow
CrystalReport1.WindowState = crptMaximized
CrystalReport1.PrintReport