Fernando,

I couldn't get the WordBasic method to work without changing the default printer. However, the following should work:

#DEFINE wdDialogFilePrintSetup 97

oWord = CreateObject("Word.Application")

WITH oWord.application.Dialogs(wdDialogFilePrintSetup)
	.Printer="HP LaserJet 4 on LPT2"
	.DoNotSetAsSysDefault = .t.
	.execute
ENDWITH

HTH

>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