Discussion :

[mcrocher]

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 :

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
    .
    .
    .

Ce qui fonctionne très bien !

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 ....

[mcrocher]

J'ai trouvé la réponse, en fait, il fallait faire

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
rpt.printout

Voilà, c'est tout !