クリスタルレポートでの出力時間の設定

締切済

質問者：bzpooh
質問日時：2001/10/24 10:57
回答数：1件

VB5のクリスタルレポート５を使っているのですが、出力時間を取得したいんですけどどうしたらいいのでしょうか？？やり方がわかりません誰かわかる方私に教えてください

通報する

この質問への回答は締め切られました。

質問の本文を隠す

回答 (1件)

最新から表示
回答順に表示

No.1

回答者： TAGOSAKU7
回答日時：2001/10/24 12:52

帳票印刷にかかる時間を取得したいのですね？

プログラムのモジュールの先頭と、印刷を行っている関数の中に、下のプログラムを参考に追加してみてください。
１０００分の１秒の単位で処理時間を取得することができます。

Option Explicit
’プログラムの先頭にWindowsAPIを呼び込む宣言を行う
Private Declare Function timeGetTime Lib "winmm.dll" Alias "timeGetTime" () As Long

Sub Main()
　　'経過時間算出ワーク変数
　　Dim lngTime　as Long
　　
　　''''ここに何らかの処理
　　
　　’開始前の時間を取得
　　lngTime = timeGetTime
　　’帳票を印刷
　　Report1.PrintReport
　　’処理時間の出力
　　Debug.Print "処理時間は" & lngTime - timeGetTime &"msです"
End Sub