Versions Compared

Old Version 30

changes.mady.by.user user-eb51a

Saved on

compared with

New Version 31

changes.mady.by.user user-eb51a

Saved on

Key

  • This line was added.
  • This line was removed.
  • Formatting was changed.

...

execute infmessage 'Document has been sent to the printer.'

ENDROUTINE






EVTROUTINE HANDLING(#SAVEBTN.Click)

*Open the Save dialog

invoke method(#WordApp.Dialogs.item<VA_WORD.wdDialogFileSaveAs>.show)


*update document list

execute doclist

execute infmessage 'Document has been saved.'

ENDROUTINE


EVTROUTINE HANDLING(#CLOSEBTN.Click)

*if a document is open, close it without saving any changes

if cond('#WordApp.Documents.Count *gt 0')

invoke method(#wordapp.activedocument.close) savechanges(0)

endif

execute doclist

execute infmessage 'Document has been closed.'

ENDROUTINE