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
Daniel