>>Never tryed but I think it shoud be:
>>

>>lcCompName = ALLTRIM(LEFT(SYS(0),AT([#],SYS(0))-1))
>>lcPrinterName = [\\]+lcCompName+[\HP DeskJet 712c]
>>SET PRINTER TO NAME (lcPrinterName)
>>

>
>Yes, I just tried it and it seems to work. Thank you very much.

Using STREXTRACT() function

lcCompName = ALLTRIM(STREXTRACT(SYS(0), "", "#"))