Bonjour,
Je suis confronté à un problème : Dans mon code vb, je souhaite lancer une impression directement sur une imprimante. Pour l'avoir en visualistaion à l'écran, d'ordinaire, j'utilise ce code :
Ce qui fonctionne très bien !
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12 Screen.MousePointer = HOURGLASS L_Report = App.Path & "Crystal10\Anomalies\anom4.rpt" Set Rpt = Apps.OpenReport(L_Report) Frm_Edition.CRViewer.ReportSource = Rpt Frm_Edition.CRViewer.ViewReport Frm_Edition.Caption = "Listes des anomalies." Frm_Edition.Show Set Rpt = Nothing . . .
Du coup, pour lancer l'impression directement, j'ai essayé de remplacer la portion de code "viewreport" par "printreport" avec les paramètres qui vont bien mais le printreport ne semble pas lui plaire ...
Il me dit : "La méthode 'reportsource' de l'objet 'ICrystalreportViewer10' a échoué."
Si qqn voit d'où ça peut venir ....
Partager