Ok
Your link didn't resolve my previous problem but I used with this after I resolved the previous for preventing the next problem.
Any way, here is good code. my problem is that it's slow (comparatively, but two seconds it's long time even for peeling stickers printer).

lcprintername = "Zebra  TLP2844"
lcsavewindefprinter = set("PRINTER", 2)


declare long GetLastError in WIN32API
declare long SetDefaultPrinter in WINSPOOL.DRV string pPrinterName
if setdefaultprinter(lcprintername) = 0
	? winapierrmsg(getlasterror())
else
	? "New default printer: " + set("PRINTER", 2)
endif

if used ('TABLE1')
	use in table1
endif
set safety off
use c:\togn\data\databr\table1 exclusive
zap in table1
set safety on
select table1
insert into c:\togn\data\databr\table1 (labid,dtl) values ('N98758','UG656555 DY125693-9997')
use in table1
set printer to name 'Zebra  TLP2844'
set printer on
declare integer ShellExecute in shell32.dll ;
	integer hndWin, ;
	string cAction, ;
	string cFileName, ;
	string cParams, ;
	string cDir, ;
	integer nShowWin
cfilename = "C:\Program Files\Seagull\BarTender 7.10\Trial\bartend.exe"
caction = "PRINT"
shellexecute(0,caction,"C:\togn\FORMAT2.btw","","",1)
set printer off
set printer to
setdefaultprinter(lcsavewindefprinter)
? "Restored default printer: " + set("PRINTER", 2)

>>Hi
>>I have to print barcode label by Bar tender program.
>>If I print from BARTENDER I get the sticker barcode.
>>But When I run the following command by VFP I get blank sticker.
>>

Set Printer To Name ('BARCODEPRINTER')
>>Set Printer On
>>run("C:\ProgramFiles\bartend\bartend.exe"  /F=c:\myprog\format1.btw /P1 /X" ,1
>>Set Printer Off
>>Set Printer To

>
>Changing printer in VFP would have no affect on external programs you're excuting with RUN command. See http://www.berezniker.com/display/VFP/Changing+Windows+default+printer.