[リストへもどる]
一括表示

投稿時間:2002/12/01(Sun) 22:53
投稿者名:ちこ
Eメール:
URL :
タイトル:
ブラウザで印刷
こんばんわ。
またまた質問させていただきます。

前回教えていただいたとおりにフラグをたて、フォルダを読込むまでまつところまで完了しました。
ありがとうございました。
しかし、まだ印刷処理がうまくいきません。
サーバーから取り込んだファイル(フォルダ)をブラウザで表示し、それを印刷しています。
どうやらブラウザで完全に表示し終わるまでに印刷処理が走ってしまうようです。
制御としては、”.busy”は使っています。
どなたか他によい方法はご存知ないですか?
よろしくお願いします。
 

投稿時間: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

投稿時間:2002/12/02(Mon) 04:18
投稿者名:魔界の仮面弁士
Eメール:
URL :
タイトル:
Re: ブラウザで印刷
> 前回教えていただいたとおりに
「前回」の投稿が見つからなかったので、外しているかもしれませんが…… m(_ _)m


> どうやらブラウザで完全に表示し終わるまでに印刷処理が走ってしまうようです。
DocumentCompleteイベントは利用できないでしょうか?