Opening Word From VBA

[harvlake]

Hi, I hope you can help. We have an access application and in it we open a word document and print it using

Set objWord = CreateObject("Word.Application")
objWord.Visible = False
Set objDoc = objWord.Documents.Add()

objWord.PrintOut , , , , , , , , , , , , LWordDoc

We have a digital signature that takes a few moments to verify the signature. With out that time, we have an invalid signature.

Is it possible to open the doc, delay, the print it?

Any suggestions are appreciated.
Thanks

[HiTechCoach]

Hi, I hope you can help. We have an access application and in it we open a word document and print it using

Set objWord = CreateObject("Word.Application")
objWord.Visible = False
Set objDoc = objWord.Documents.Add()

objWord.PrintOut , , , , , , , , , , , , LWordDoc

We have a digital signature that takes a few moments to verify the signature. With out that time, we have an invalid signature.

Is it possible to open the doc, delay, the print it?

Any suggestions are appreciated.
Thanks



Here is how I do it.

Place the following code in a new code module named modAPI



Private Declare Sub APISleep Lib "kernel32" Alias "Sleep" (ByVal lngMilliseconds As Long)

Public Function Sleep(lngSeconds As Long) As Boolean
If lngSeconds > 0 Then
Call APISleep(lngSeconds * 1000)

Sleep = True
End If

End Function




Now you can call the Sleep() from VBA code anywhere in you database.

Example:



Set objWord = CreateObject("Word.Application")
objWord.Visible = False
Set objDoc = objWord.Documents.Add()

' have Access wait 10 seconds

Sleep 10

objWord.PrintOut , , , , , , , , , , , , LWordDoc