Hi
Just tried this and works

oWord = CreateObject("Word.Application")
oWord.Visible = .t.
oWord.WordBasic.FilePrintSetup("Canon i550 on USB002",1)

>Hi,
>
>I've got instructions to select in what printer MS-Word will execute its next printout in KB #216026 (ActivePrinter Property in Word Sets System Default Printer) as:
>

>Set oWord = CreateObject("Word.Application")
>
>oWord.WordBasic.FilePrintSetup Printer:="HP LaserJet 4 on LPT2", _
>      DoNotSetAsSysDefault:=1
>

>
>How should I code in VFP the oWord.WordBasic.FilePrintSetup... statement?
>
>Thanks,
>
>Fernando