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 NOCONSOLEI'd like to sent at once many copies of a same label...