[VB6] Impression DataReport

Bonjour ,
une question surement toue bete ..

lorsque j imprime un DR avec la commande

Code:

---

DRmoutarde.PrintReport

---

, seul la page 1 sur x , s imprime ...

Il me semblait que cette commande lancait la totalitée de l impression .

Merci de vos lumieres ..

Ah oui ... Bonnnnnneeeeeeee année ;-)

YaNn

essai

Code:

---

DRmoutarde.PrintReport True, rptRangeAllPages

---

Citation:

---

Envoyé par juvamine

essai

DRmoutarde.PrintReport True, rptRangeAllPages

---

bjs ,
merci de ton aide . je tente et te tiens au courant

YaNn

bjs
ca ne marche pas , ca m imprime que la premiere feuille .
je vous join mon code desfois que ...

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

Private Sub Fcde_Click() ' FIN DE COMMANDE Fcde.Enabled = False ' Unload DataEnvironment2   DRmoutarde.Orientation = rptOrientLandscape     DRmoutarde.PrintReport True, rptRangeAllPages           DRmoutarde.Hide ' ferme le DR   ean128 = "" SSCC = "" EAND = "" DEST = "" NumCDE = "" NumCDE.SetFocus Fcde.Enabled = True Unload DRmoutarde   End Sub

---

Merci d avance

YaNn

Puisque tu n'as pas eu de reponse depuis ton dernier post de 15h15, je te propose de ne decharger DataEnvironment2 qu'apres ta ligne PrintReport, surtout si cette objet (DataEnvironment2) concerne DRmoutarde (suposant que DataEnvironment2 alimente ton DRmoutarde)

Code:

---

1 2 3 4 5 6 7 8 9 10

Private Sub Fcde_Click() ' FIN DE COMMANDE Fcde.Enabled = False '   DRmoutarde.Orientation = rptOrientLandscape   DRmoutarde.PrintReport True, rptRangeAllPages Doevents Unload DataEnvironment2 DRmoutarde.Hide ' ferme le DR ' ......

---

bjs ,
cette methode ne marche pas non plus , je ne comprend vraiement pas .
seul la page 1/ s imprime ?

YaNn

Encor un essai du genre

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

Option Explicit Dim DRmoutarde   Private Sub Form_Load() Set DRmoutarde = New DataReport End Sub   Private Sub Fcde_Click() ' FIN DE COMMANDE Fcde.Enabled = False ' DRmoutarde.Orientation = rptOrientLandscape DRmoutarde.PrintReport True, rptRangeAllPages 'apres la validation de la boite de dialogue, la Sub DRmoutarde_AsyncProgress va s'activée End Sub   Private Sub DRmoutarde_AsyncProgress(JobType As AsyncTypeConstants, Cookie As Long, PageCompleted As Long, TotalPages As Long) If JobType = rptAsyncPrint Then '1 rptAsyncPrint, Opération d'impression (méthode PrintReport) Do While PageCompleted <> TotalPages DoEvents Loop 'la fermeture pêut être faite car la derniere page est traitée Unload DataEnvironment2 DRmoutarde.Hide ' ferme le DR   ean128 = "" SSCC = "" EAND = "" DEST = "" NumCDE = "" NumCDE.SetFocus Fcde.Enabled = True Unload DRmoutarde End If End Sub

---