Désolé, je n'ai pas le temps de me 'faire chier' a chercher les fichiers necessaires en runtime...
Déjà, il y a un site de support pour crystal report, les developpeurs et l'accent est mit sur le VB, donc => RTFM.
Indice :
Dim vReport As CRAXDRT.Report
Set vReport = mProjet.OpenReport("fichier" & ".rpt")
Si tu utilises un ttx, ou que ton rapport est 'compatible' :
vReport.Database.SetDataSource rec
Mais ce n'est pas necessaire si ta requete est 'contenue' dans le rapport.
Et enfin, pour l'impression :
vReport.PrintOut False
Le false est un argument facultatif, ca evite a l'user d'avoir a cliquer sur ok a chaque edition.
eh
c'est simple
tu change l'option '.destination' a crptoprinter
en outre
nom_du_ctrl_crystal.destination=crptToPrinter
nom_du_ctrl_crystal.action=1
ok