Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
N copies at once
Message
From
17/12/2007 13:09:40
 
 
To
All
General information
Forum:
Visual FoxPro
Category:
Reports & Report designer
Title:
N copies at once
Environment versions
Visual FoxPro:
VFP 9 SP2
OS:
Windows XP SP2
Network:
Windows XP
Database:
Visual FoxPro
Miscellaneous
Thread ID:
01276279
Message ID:
01276279
Views:
62
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
Next
Reply
Map
View

Click here to load this message in the networking platform