Got the same result.

>From the help I see that PrintOut is a method of the application object not the document one. Could you please try this and tell me if this help:

>#define wdGoToPage  1
>#define wdGoToFirst 1
>#define wdPrintCurrentPage 2
>
>*-- Print each page separatly (this goes inside a loop)
>FOR lnPages = 1 TO lnTotalPages
>    WITH THIS.oWord
>        .Selection.GoTo(wdGoToPage,wdGoToFirst, m.lnPages,"")
>        .PrintOut (0, , wdPrintCurrentPage)    
>    ENDWITH
>NEXT