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

質問

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

回答No.1

TAGOSAKU7

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

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