You can use VFP SET() function for that.

ThisForm.PrinterName = SET("printer", 2)

>oNet = CREATEOBJECT("WScript.Network")
>oNet.SetDefaultPrinter("\\Server\Print1"
>
>That's perfect. You don't happen to have the other half of the answer:
>
>I tried:
>
>ThisForm.PrinterName = oNet.GetDefaultPrinter()
>
>and it failed.
>
>TIA
>
>DJ