Hej,
Jag har följande text i mitt program.
Allt funkar...nästan... Efter utskriften avslutas inte word.
Hur gör jag för att det ska hända?





Dim objWord As Object
Dim objDoc As Object

Set objWord = CreateObject("Word.Application")
Set objDoc = objWord.Documents.Open(FileName:=syspath & "\mallar\faktura.doc")



Selection.GoTo what:=wdGoToBookmark, Name:="vår_referens"
Selection.TypeText text:=seksys.Text1.text
Selection.GoTo what:=wdGoToBookmark, Name:="er_referens"
Selection.TypeText text:="Systemansvarig"
Selection.GoTo what:=wdGoToBookmark, Name:="utskriftsdatum"
Selection.TypeText text:=Date
Selection.GoTo what:=wdGoToBookmark, Name:="betalningsdatum"
Selection.TypeText text:=Date + 30 'temporärt med 30 dagars bet...
Selection.GoTo what:=wdGoToBookmark, Name:="antal_timmar"
Selection.TypeText text:=seksys.Text500.text & " timmar"
Selection.GoTo what:=wdGoToBookmark, Name:="pris_timme"
Selection.TypeText text:=seksys.Text6.text & " kr"
Selection.GoTo what:=wdGoToBookmark, Name:="resetid"
Selection.TypeText text:=seksys.Text100.text & " timmar"
Selection.GoTo what:=wdGoToBookmark, Name:="pris_resa"
Selection.TypeText text:=seksys.Text7.text & " kr"
Selection.GoTo what:=wdGoToBookmark, Name:="fastpris"
Selection.TypeText text:="0"
Selection.GoTo what:=wdGoToBookmark, Name:="summa"
Selection.TypeText text:=Int(seksys.Text2) + Int(seksys.Text13) & " kr"

Selection.GoTo what:=wdGoToBookmark, Name:="faktureringsadress"
Selection.TypeText text:=seksys.Label15.Caption & Chr(10) & Chr(13) & seksys.Label20.Caption & Chr(10) & Chr(13) & seksys.Label21.Caption


Selection.GoTo what:=wdGoToBookmark, Name:="specifikation"
Selection.TypeText text:=seksys.Text4.text




objWord.Visible = False

DoEvents


Set objDoc = Nothing
Set objWord = Nothing

inte säker, men finns det ingen close-metod eller liknande?

annars kan du köra appactivate "Word blablabla"
och sen sendkeys "[alt][f4]"

Prova den här koden
<code>
Dim Word As Object
Set Word = CreateObject("Word.Application")
Word.Application.Documents.Open(FileName:=syspath& "\mallar\faktura.doc")

Word.Visible = True
Word.PrintOut Background:=False
Word.Application.Quit
Set Word = Nothing
</code>

Tack, ska prova

Jag får syntax error på:

Dim Word As Object
Set Word = CreateObject("Word.Application")
Word.Application.Documents.Open(FileName:=syspath & "\mallar\faktura.doc")

Prova det här
<code>
Dim Word As Object
Set Word = CreateObject("Word.Application")
Word.Application.Documents.Open App.Path & "\mallar\faktura.doc")
Word.Visible = True

With Word.Application
.Selection.GoTo Name:="vår_referens"
.Selection.TypeText Text:=seksys.Text1.Text
.Selection.GoTo Name:="er_referens"
.Selection.TypeText Text:="Systemansvarig"
.Selection.GoTo Name:="utskriftsdatum"
.Selection.TypeText Text:=Date
End With

Word.PrintOut Background:=False
Word.Application.Quit SaveChanges:=0
Set Word = Nothing
</code>

Funkar mycket bättre.. men..

Har fått ett nytt problem.
När jag skriver ut första gången funkar allt, nästa gång får jag ett fel som säger:

Runtime error 462
The remote server machine does not exist or is unavailable...

Felet inträffar på första raden i med Select.Goto...

With Word.Application
Selection.GoTo what:=wdGoToBookmark, Name:="vår_referens"
Selection.TypeText text:=seksys.Text1.text


Vad tusan kan det vara?