Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
N copies at once
Message
De
17/12/2007 13:25:31
 
 
À
17/12/2007 13:17:07
Information générale
Forum:
Visual FoxPro
Catégorie:
Gestionnaire de rapports & Rapports
Versions des environnements
Visual FoxPro:
VFP 9 SP2
OS:
Windows XP SP2
Network:
Windows XP
Database:
Visual FoxPro
Divers
Thread ID:
01276279
Message ID:
01276282
Vues:
23
I use LOCATE just in case of some changes in a report engine in a future..

But, the problem isnt' there.. I'm setting to a number that winxp is not recognizing... Even if I do have a number of 10 the printer is running a single one only..

>Why this:
>Locate All For LBLPROD.uniqueid="_2900VJI4I"
>The printer information is ALWAYS in record 1
>
>Use "C:\myfolder\reports\LBLPROD90.LBX" Alias LBLPROD
>GO TOP
>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
>Sele LBLPROD
>Use
>Sele cur_etiq
>Label Form c:\myfolder\reports\LBLPROD90 Next 1  To Printer PROMPT NOCONSOLE
>
>
>
>
>
>
>>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
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform