[CR10][VB6] nbre d'exemplaires (avec une boucle)

[eniki]

Bonjour à tous

J'ai un problème depuis quelques jours, suite à une migration de crystal 4.6 (!) vers CR10

J'ai adapté mon soft vb pour utiliser CR10, pas de problème.

Je rencontre un problème :


Je lance une impression
Mon programme remplit une table Stock pour l'item X (avec détail des E/S)
dans la base impression

L'impression est lancée par ce code avec un NombreExemplaire défini

Code :

1
2
3
Dim CrystalTable AS CRAXDRT.DatabaseTable
Dim Appli AS CRAXDRT.Application
Dim Rpt AS CRAXDRT.Report

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
FOR  Item=1 TO MaxItem
' Appel de la sub remplissant la table stock de la base IMPRESSION avec l'item X
 
	FOR i=1 TO NombreExemplaire
		SET Appli = New CRAXDRT.Application
		SET Rpt = Appl.OpenReport(App.Path & "\Stock.rpt")
 
		FOR j = 1 TO Rapport.DATABASE.TABLES.Count
		     Rpt.DATABASE.TABLES(j).Location = app.path & "\impression.mdb"
		Next j
 
		Rpt.DisplayProgressDialog = False
		Rpt.PrintOut False
'pour des raisons de "fonctionnement", je ne peux utiliser l'OPTION  NumberOfCopy de la dll
		Rpt.DiscardSavedData
      SET Appli = Nothing
		SET Rpt = Nothing
Next Item

Lors de l'édition du 1er item, tout va bien (que j'ai 1 ou 100 exemplaire)
En revanche, lorsque que l'on passe au 2è item :
Si j'ai NombreExemplaire=1 : la page sort vide (uniquement le N° de page indiqué)
Si j'ai Nombre Exemplaire= + de 1,
la première page sors comme dans le cas nombreExemplaire=1, par contre, les X autres sortent parfaitement bien !


Mon problème : comment faire pour que la page 1 du 2è item (et du 3è et du 4è etc) sorte correctement?
Sachant que certains items n'ont qu'1 exemplaire, pour ceux ci je n'ai aucune édition correcte...

Titre modifié par l.nico

[L.nico]

le paramètre NumberOfCopy de la méthode PrintOut ne fonctionne pas en V.10 :