folgendes Problem:
ich drucke über XbpPrintDialog() eine RTF-Datei über Word. Ich geben dem Anwender über ageRange() die Möglichkeit die
zu druckende Seitenzahl anzugeben. Aber wie bekommt ich beim Word-Ausdruck das hin ?
Hat jemand oder gibt es eine Auflistung der Active-X- Befehle ???
so sieht der Ausdruck aus:
Code: Alles auswählen
#include "Gra.ch"
#include "Xbp.ch"
#include "Appevent.ch"
#include "Font.ch"
#include "Inkey.ch"
#include "xbpdev.ch"
#pragma Library( "XppUI2.lib" )
#pragma library( "ascom10.lib" )
Function Drucken( cDoc, cDrucker,oDlg)
Local cActivePrinter
Local oWord
Local oDoc
oWord := CreateObject("Word.Application")
IF Empty( oWord )
MsgBox( "Microsoft Word ist nicht installiert" )
RETURN Nil
ENDIF
oWord:visible := .f. // Word unsichtbar!
cActivePrinter := oWord:Activeprinter // aktuellen Drucker feststellen
oWord:Activeprinter:= cDrucker // Neuen Drucker setzen
oWord:documents:Open(cDoc)
oDoc := oWord:ActiveDocument
If AT("filbestandliste.rtf",cDoc) > 0
oDlg:PrintRange:=XBPPDLG_PRINT_PAGERANGE
EndIf
// word suchen seitendruck
oDoc:PrintOut(.f.) // .T.= Druck im Hintergrund
oWord:Activeprinter:= cActivePrinter // alten Drucker setzen
oDoc:close()
oWord:Quit()
oWord:destroy()
oWord := NIL
Return ( NIL )