Thank you for the reply. I ran the report using your code, but it does not display any messages on the screen. But after closing the report screen I get this message:

RUN TIME ERROR -2147417848(80010108).
Method 'PrintReport' of object 'CrystalCtrl' failed.

Do you have any ideas?