Screenupdate ved brevflet

Prøv at ændre:
W.Visible = True
til
W.Visible = False
eller helt udelade linien

Okay - det prøver jeg...

for øvrigt..:

Jeg synes det kører lidt langsomt - men om det er fordi Worddok. fylder 800 kb eller ??? Kan koden optimeres?

Jeg har tilføjet (eller prøver) en printfunktion - kan man indsætte en "Pause" i VBA kode?

PS. Kan jeg til sidst i min kode så vise alle de word sessioner jeg har åbnet med en løkke?

Det var mange spørgsmål og jeg hæver gerne points til dig.

Jeg ved det ikke. Rent faktisk har jeg ikke forstand på Word. Jegh bruger selv denne linie til at gøre Word synlig efter en dataoverførsel:

objword.Visible = True

Jeg bruger ganske vist en lidt anden kode, så det er et rent gæt til din db.

Men hvis der findes en form for "Pause" jeg kan indsætte er det ikke noget problem for så udskriver jeg bare og lukker word - problemet er at hvis jeg ikke kan pause så lukker Access Word før udskrivningen er færdig....

Jeg bruger denne til at vise dokumentet, derefter udskrives det og Word lukker og vender tilbage til Access:

objword.Visible = True
AppActivate "Microsoft Word"
objword.Documents.Open docname
objword.PrintOut
objword.Visible = False

Kan du vise mig det helt fra start altså alle dim'er og setter...?

men øhhh du lukker vel ikke word - du skjuler det bare eller er det senere?

Jeg ved ikke om den rent teknisk lukker Word. Koden åbner et Word-dokument, hvor formularens felt Nr er = Word-dokumentets navn:

Private Sub Kommandoknap28_Click()
On Error GoTo err_open
Dim docname As String
Dim objword As Word.Application
Dim objdoc As Word.Document
Const dir As String = "D:\VBA\XP\Opskrifter\"
Const ext As String = ".doc"
docname = dir & Me.Nr & ext
On Error Resume Next
Set objword = GetObject(, "Word.Application")
Err.Clear
On Error GoTo err_open
If objword Is Nothing Then
Set objword = GetObject("", "Word.Application")
End If
objword.Visible = True
AppActivate "Microsoft Word"
objword.Documents.Open docname
objword.PrintOut
objword.Visible = False
Exit Sub
err_open:
MsgBox "fejlkode: " & Err.Number
End Sub

Hvis du lægger din e-mail kan jeg sende dig filerne imorgen. Det er et undervisningseksempel på integration mellem access og Word. Må jeg evt. zippe?

Hej Mugs

Ja tak det vil jeg gerne have:

morten.frederiksen@crawford.dk

og du må meget gerne zippe

Sendt.