mein Kunde druckt bei bestimmten Aktionen Word-Dokumente aus. Wo kann ich die Methoden finden, die dieses Object hat? Ich möchte einen PrinterDialog erzeugen, damit man den Drucker auswählen kann, auf dem das Dokument gedruckt wird. Normalerweise gilt ja hier der Standarddrucker unter Windows, dies ist aber nicht gewünscht.
Code: Alles auswählen
// Erzeugen einer ActiveX-Komponente
oWord := CreateObject("Word.Application")
IF Empty( oWord )
MsgBox( "Microsoft Word ist nicht installiert" )
ENDIF
oWord:visible := .T.
oWord:documents:open( cFile )
oDoc := oWord:ActiveDocument
aEval( aReplace, {|aR| TokenReplace( oWord,aR[1],aR[2]) } )
IF wordopen == "J"
oDoc:close()
oWord:Quit()
oWord:destroy()
lprint := .F.
ELSE
IF(ValType(lPrint)== "L" .AND. lPrint)
// drucken wenn lPrint =.T.
oDoc:PrintOut()
ENDIF
oDoc:close()
oWord:quit()
ENDIF
IF !lPrint
lSuccess := DllCall("SHELL32.DLL", DLL_STDCALL, "ShellExecuteA", AppDesktop():GetHWND(), "open", AllTrim(cSaveAs), NIL, CurDir(), SW_NORMAL)
ELSE
oWord:destroy()
ENDIF