FiveTech Support Forums

oWord := TOleAuto():New("Word.Application")
oWord:Quit()
oWord:= NIL

oWord := TOleAuto():New("Word.Application")
oWord:Quit()
oWord:= NIL

oWord := TOleAuto():New("Word.Application")
oWord:Quit()
oWord:= NIL

procedure KillProcess()
local st
local oWmi:=WmiService(), oList, oProc
private dim:={"WINWORD.EXE", "OpusApp", {}}

  EnumChildWindows( 0, ;
      { | hCt, nLParam | L_Tsk(hCt) }, 0 ) // optional supplied value

  for st=1 to len(dim)
    oList:= oWmi:ExecQuery( "select * from Win32_Process where Name = '" + ;
                                                          dim[st,1] + "'" )

    for each oProc in oList // list of processes
        oProc:Terminate()
    next
  next
return nil

Function L_Tsk(hWn) && CALLBACK of EnumChildWindows
local fl
** hWn - handle of window 

    fl:=ascan(dim, {|xx|xx[2]=GetClassName(hWn)}) 
    if fl>0 // this is the desired process 
      aadd(dim[fl,3], {GetWindowProcessID(hWn), hWn})
    endif
return .T.

#include "FiveWin.ch"

static oWnd

function Main()

   local oBar, cPdf

   //cPdf := "C:\FWH\SAMPLES\MODELO.PDF"       // NO FUNCIONA
   //cPdf := "C:\FWH\SAMPLES\MATERIAL.TXT"  // FUNCIONA, IMPRIME NORMAL.
   //cPdf := "C:\FWH1905\SAMPLES\MODELO.RTF"   // FUNCIONA, IMPRIME NORMAL.
   cPdf := "C:\FWH1905\SAMPLES\DATA_DOC.doc" // FUNCIONA, IMPRIME NORMAL.

   DEFINE WINDOW oWnd TITLE "Test Word"

   DEFINE BUTTONBAR oBar _3D OF oWnd

   DEFINE BUTTON OF oBar ACTION( PrintPDF( cPdf ) )

   SET MESSAGE OF oWnd TO "Test Word" NOINSET CLOCK DATE KEYBOARD

   ACTIVATE WINDOW oWnd

return nil

function PrintPDF( cPdf )

   local oWord, oDoc, lVisible

   if Empty( cPdf ) .or. !File( cPdf )

      MsgAlert( "Invalid File Name" )

      return .f.

   elseif ( oWord := WinWordObj() ) == nil

      MsgAlert( FWString( "Word not installed" ) )

      return .f.

   endif

   oWord:DisplayAlerts := .f.

   lVisible := oWord:Visible

   // oWord:Visible := .f.

   oDoc := oWord:Documents:Open( truename( cPdf ), .f., .t. )

   // oDoc:PrintOut()  // Se que quiser direto na impressora de PDF.
   // oDoc:Close()

   // oWord:Visible := lVisible
   oWord:Visible = .T.
   oWord:WindowState = 1 // Maximize

   SETFOREGROUNDWINDOW( FINDWINDOW( "OpusApp" ) )

return .t.

// FIN

// http://forums.fivetechsupport.com/viewtopic.php?f=6&t=40281&sid=3f16d00cecfaf1c793020bff84ac719d

#include "Fivewin.ch"

FUNCTION MAIN()

   LOCAL cDoc := CURDRIVE() + ":\" + CURDIR() + "\test.doc"
   LOCAL oWord

   If FILE( cDoc )

      oWord = TOleAuto():New( "Word.Application" )
      oWord:Documents:Open( cDoc )
      oWord:Visible = .T.
      oWord:WindowState = 1 // Maximize

      SETFOREGROUNDWINDOW( FINDWINDOW( "OpusApp" ) )

   ENDIF

RETURN NIL