Word Dokument drucken

Dio

Hallo,

ich möchte ein Word-Dokument drucken welches zuvor mit FileOpen erstellt wurde.

[autoit]

...
$Text=_RTFCreateDocument($Font)
$Textblock=_RTFAppendString($Text,_ArrayToString($MonatZSummeArray,""),$FontColour,$Fontsize,$FontStyle,$Font)
$hFormatErgebnisDatei=FileOpen("MonateErgebnisDatei.doc",1)
FileWriteLine($hFormatErgebnisDatei,$Textblock)
$oFormatErgebnisDatei=_WordAttach("MonateErgebnisDatei.doc","FileName")
_WordDocPrint($oFormatErgebnisDatei,0,1,-1,1,$ListboxText)
...

[/autoit]

Ich brauche für _WordDocPrint die Objektvariable des Word-Dokuments. Erstelle ich ein Dokument per _WordCreate funktioniert FileWriteLine nicht mehr.
Bei dem Quellcode bekomme ich Error 7 (keine Übereinstimmung).

Was mache ich denn da falsch?

Gruß Dio

**autoBert**

Hallo Dio,

kannst du die erstellte Datei per Explorer öffnen?

mfg (Auto)Bert

Dio

Ja das geht.

**Oscar**

Ein FileClose vor dem Zugriff mit _WordAttach sollte ausreichen.

Dio

Also Du meinst so?

Spoiler anzeigen

[autoit]

...
$Text=_RTFCreateDocument($Font)
$Textblock=_RTFAppendString($Text,_ArrayToString($MonatZSummeArray,""),$FontColour,$Fontsize,$FontStyle,$Font)
$hFormatErgebnisDatei=FileOpen("MonateErgebnisDatei.doc",1)$FormatErgebnisDatei ab
FileWriteLine($hFormatErgebnisDatei,$Textblock)
FileClose($hFormatErgebnisDatei)
$FormatErgebnisDatei=_WordAttach("MonateErgebnisDatei.doc","FileName")
if @error Then
MsgBox(0,"",@error)
EndIf
$FormatErgebnisDatei=_WordDocGetCollection($oFormatErgebnisDatei,0)
...

[/autoit]

Leider immernoch Error 7

Dio

Ok ich hab das Ganze nochmal von der anderen Seite versucht:

Spoiler anzeigen

[autoit]

...
$Text=_RTFCreateDocument($Font)
$Textblock=_RTFAppendString($Text,_ArrayToString($MonatZSummeArray,""),$FontColour,$Fontsize,$FontStyle,$Font)
$oFormatErgebnisDatei=_WordCreate("",0,0)
$FormatErgebnisDatei=_WordDocOpen($oFormatErgebnisDatei,@ScriptDir&"\MonateErgebnisDatei.doc",3)
if @error Then
MsgBox(0,"",@error)
EndIf

FileWrite($FormatErgebnisDatei,$Textblock)

[/autoit] [autoit][/autoit] [autoit]

_WordDocPrint($FormatErgebnisDatei,0,1,0,0,$ListboxText)
_WordDocClose($FormatErgebnisDatei)

[/autoit]

Der Druck klappt so.Jedoch funktioniert das FileWrite() nicht. Das heißt ich drucke jetzt ein leeres Dokument.
Wie bekomme ich jetzt den formatierten Text da rein?

Edit: Sorry für den Doppelpost