投稿日 | : 2002/12/02(Mon) 00:19 |
投稿者 | : 花ちゃん |
Eメール | : |
URL | : |
タイトル | : Re: ブラウザで印刷 |
表示されるまで、下記で待ち
Do While IE.Document.ReadyState <> "complete"
DoEvents
Loop
場合によっては下記のような関数で待ち時間を作る
Private Sub WaitTime(st As Single)
Dim sngSt As Single
sngSt = Timer
Do While Timer - sngSt < st
DoEvents
Loop
End Sub