Hello, c'est encore moi

Je suis en train d'écrire un bout de méthode qui imprime des documents 4d Write automatiquement à travers une zone hors écran.

Mais j'ai un problème pour régler le nombre de copie, je n'y arrive pas...
J'ai l'impression que "WR FIXER OPTION IMPRESSION" ne fait absolument rien...

Ci dessous le code dont je me sers :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
	$nb_copie:=2 `nombre de copie
 
	$zone:=WR Hors ecran 
	WR MISE A JOUR ECRAN ($zone;0)
 
	DEBUT SELECTION([table])
 
	Tant que (Non(Fin de selection([table])))		
		WR BLOB VERS ZONE ($zone;[table]champ_)
		WR EXECUTER COMMANDE ($zone;wr cmd mise à jour références )
 
		WR FIXER OPTION IMPRESSION ($zone;wr option nombre copies ;$nb_copie)
 
		WR EXECUTER COMMANDE ($zone;wr cmd imprimer )
 
		ENREGISTREMENT SUIVANT([table])
	Fin tant que 
 
	WR DETRUIRE HORS ECRAN ($zone)
Là je passe par un "WR EXECUTER COMMANDE ($zone;wr cmd imprimer )", ce qui permet à l'utilisateur de choisir son imprimante, ou de faire un aperçu.
Si je passe par un "WR IMPRIMER", le nombre de copie est bien pris en compte, mais cette méthode n'a pas le comportement souhaité vu qu'elle lance directement l'impression...

Une idée ?

Merci à vous


4dV11.4 en client-serveur
MacOS 10.6