Comment imprimer de états Crystal report avec le bouton imprimer de commonDialog

Bonjour,

J'ai une application sous VB6 avec des états conçus avec Crystal Report 9.2. Je voudrais pouvoir imprimer n'importe lequel de mes états ouvert par le bouton Imprimer du commondialog de windows, pas avec le bouton imprimer de crystal report. Voici le code que j'ai mis sur click du bouton imprimer

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

Private Sub menu_imprimer_Click() On Error Resume Next If ActiveForm Is Nothing Then Exit Sub     With dlgCommonDialog .DialogTitle = "Imprimer" .CancelError = True .Flags = cdlPDReturnDC + cdlPDNoPageNums If ActiveForm.rtfText.SelLength = 0 Then .Flags = .Flags + cdlPDAllPages Else .Flags = .Flags + cdlPDSelection End If .ShowPrinter If Err <> MSComDlg.cdlCancel Then ActiveForm.rtfText.SelPrint .hdc End If End With End Sub

---

La boite de dialogue d'impression s'ouvre mais quand je lance, l'état qui est ouvert n'est pas imprimé. Que faire pour arriver à imprimer mes états avec la boite d'impression du commonDialog ?

Merci d'avance.

Notre précédente discussion ne t'a pas aidé ?
http://www.developpez.net/forums/sho...d.php?t=230719

Je ne pense pas que tu penches vers la bonne solution en faisant cela.
Montre-nous plutôt comment tu ouvres ton .rpt via VB (utilisation des composants CR)

Salut Phifi

Très content de te lire de nouveau.

Citation:

---

Notre précédente discussion ne t'a pas aidé ?
http://www.developpez.net/forums/sho...d.php?t=230719

---

Je finirai dans 8 jours mon programme. Le temps de la compilation venu, je mettrai en pratique tes recommandations et te ferai signe.

Pour mon problème actuel, voici le code qui ouvre mon état .rpt:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36

Private Sub Form_Load()   Dim rptReport As New CRAXDRT.Report Dim rptRepApp As New CRAXDRT.Application Dim rtpViews As CRAXDRT.DatabaseTable Dim CRXPFDs As CRAXDRT.ParameterFieldDefinitions Dim test As CRAXDRT.ParameterFieldDefinition   Set rptReport = rptRepApp.OpenReport(App.Path & "\Etats\recu.rpt")     CRVReport.ReportSource = rptReport Screen.MousePointer = vbHourglass Dim n As Integer n = Int(CaisseRs![num_enr]) ' Récupère la collection des champs paramètre du rapport Set CRXPFDs = rptReport.ParameterFields ' Récupère le premier champ paramètre de la collection Set test = CRXPFDs.Item(1) ' Ajoute la chaîne de caractères au champ paramètre test.AddCurrentValue (n) CRVReport.ViewReport Screen.MousePointer = vbDefault     'Plein écran Me.Top = 0 Me.Left = 0 Me.Width = Screen.Width Me.Height = Screen.Height - 400 CRVReport.Top = 0 CRVReport.Left = 0 CRVReport.Width = Me.Width CRVReport.Height = Me.Height End Sub

---

Je reste en stand by. Merci pour tous vos apports.

Juste une question, pourquoi veux-tu utiliser CommonDialog pour imprimer ?

En fait, c'est d'abord pour pouvoir choisir une imprimante en cas de besoin. Ensuite, j'ai une barre d'outils dans laquelle j'ai un image d'une imprimante sur click de laquelle on pourra aussi lancer l'impression de l'état ouvert et évidement obtenir le même résultat pour en passant par le menu Fichier > Imprimer.
Mais s'il y a une autre solution plus simple mais efficace, je suis preneur.

Ok donc pour le choix de l'imprimante par le CommonDialog

Pour ce qui est du bouton d'impression, je reste persuadé que tu devrais avoir avec les composants CR9, un truc du style :

Code:

---

rptReport.PrintOut(Options...)

---

Vérifie avec l'intellisense si tu as une méthode d'impression

Oui, j'ai effectivement cette méthode d'impression :

Code:

---

rptReport.PrintOut(options...)

---

Et ? ça c'est bon alors ?

Salut Phifi.
Merci pour ton aide et ta patience. Mais, pourras-tu me dire concrètement comment exploiter cette méthode pour pourvoir imprimer n'importe lequel de mes états ? Un peu de code me sera vraiment utile. Merci

Bon, callo.

Il faudrait voir à ne pas exagérer.
Ce forum est un forum d'aide aux développeurs, pas un site d'écriture de code en ligne...

Ou tu t'y mets et tu étudies VB, ou tu vas poster dans le forum Offres d'emploi pour demander qu'on fasse ton boulot pour toi.

salut AlainTech

Veuillez m'excuser. Mais, j'ai besoin de savoir comment imprimer l'état actuellement ouvert. Faudrait-il passer en parmètre le nom de l'état actuellement ouvert?, que faire concrètement pour que le programme sache que c'est l'état actuellement ouvert qu'il faut imprimer ? Et pour ça, je ne sais pas comment écrire cette instruction, raison por laquelle, je demande un bout de code pour m'éclairer. Je ne demande pas qu'on fassse le boulot pour moi. J'ai fait beaucoup de recherches aavant de poster ce sujet.

Ben tu as déjà quasiment tout fait :

Par exemple, sur un bouton d'impression des reçus (2 exemplaires)

Code:

---

1 2 3 4 5 6 7 8 9 10

Sub ImprimRecu_Click Dim rptRepApp As New CRAXDRT.Application Dim rptReport As New CRAXDRT.Report ' Set rptReport = rptRepApp.OpenReport(App.Path & "\Etats\recu.rpt") rptReport.PrintOut NumberOfCopy:=2 ' Set rptReport = Nothing Set rptRepApp = Nothing End sub

---

A toi de voir comment définir la portée des composants CR (c'est pas terrible dans mon cas =), comment charger les états etc., rien de bien compliqué

Je vois pas trop où tu coinces...

En fait, j'ai une form MDI avec un menu fichier > Imprimer. Le formulaire qui m'ouvre l'état CR avec le composant CRViewer est un MDIChild. J'ai plusieurs états dans mon application. Quand un état est ouvert, je désire l'imprimer via le menu Fichier > Imprimer du MDIForm. Pour ça, il me semble que j dois passer en paramère le nom de l'état. Je comprends tout a fait l'instruction

Code:

---

Set rptReport = rptRepApp.OpenReport(App.Path & "\Etats\recu.rpt")

---

Mais le problème c'est qu'il pourra s'agir aussi d'un état facture.rpt. C'est dire que je connais pas à priori le nom de l'état à imprimer.Raison pour laquelle je voudrais savoir comment passer en paramètre le nom de l'état actif. Peux ête que je m'explique mal. Alors s'il faut plus de détails, je ne vais pas hésiter à en donner. Encore une fois merci pour votre patience.

Tu as plusieurs états ouverts en même temps et tu aimerais imprimer celui dont la fenêtre est active ? C'est ça ?

Effectivement, c'es bien ce que je désire faire

A l'aide s'il vous plait. J'ai cherché sur le net comment savoir l'état dont la fenêtre est active mais en vain. Alors si quelqu'un a une idée, merci de me donner un coup de main.

T'as essayé .ActiveForm ?

La difficulté réside dans le fait que plusieurs types de fenêtres peuvent être ouvertes (viewer CR, autres fenêtres...) donc, peut-être qu'il te faudra faire des tests complémentaires pour savoir si l'objet rptReport existe pour la fenêtre active, et auquel cas, récupérer la valeur de celui-ci