Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
N copies at once
Message
De
17/12/2007 13:09:40
 
 
À
Tous
Information générale
Forum:
Visual FoxPro
Catégorie:
Gestionnaire de rapports & Rapports
Titre:
N copies at once
Versions des environnements
Visual FoxPro:
VFP 9 SP2
OS:
Windows XP SP2
Network:
Windows XP
Database:
Visual FoxPro
Divers
Thread ID:
01276279
Message ID:
01276279
Vues:
61
Hi.. the hack of try to open the .lbx file isn't working here to set the number of copies..

I've trying:
Use "C:\myfolder\reports\LBLPROD90.LBX" Alias LBLPROD
Sele LBLPROD
Locate All For LBLPROD.uniqueid="_2900VJI4I"
If  Found()
	Scatter Memvar Memo
	lcresult				= ""
	If  "COPIES"$LBLPROD.Expr
		lnNumLines			= Memlines(m.expr)
		For lnCount = 1 To lnNumLines
			lclinha			= Mline(m.expr, lnCount)
			If  "COPIES="==Substr(lclinha,1,7)
				lclinha		= "COPIES="+Alltrim(Str(cur_etiq.qtde))
			Endif
			lcresult        = lcresult + lclinha + Chr(13)
		Endfor
		m.expr				= lcresult
		Sele LBLPROD
		Gather Memvar Memo
	Endif
Endif
Sele LBLPROD
Use
Sele cur_etiq
Label Form c:\myfolder\reports\LBLPROD90 Next 1  To Printer PROMPT NOCONSOLE  
I'd like to sent at once many copies of a same label...

TIA

Claudio
"Now to him who is able to do immeasurably more than all we ask or imagine, according to his power that is at work within us, Ephesians 3:20
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform