• 締切
  • すぐに回答を!

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

  • 質問No.156557
  • 閲覧数192
  • ありがとう数1
  • 気になる数0
  • 回答数1
  • コメント数0

お礼率 0% (0/16)

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

回答 (全1件)

  • 回答No.1

ベストアンサー率 65% (276/422)

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

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
結果を報告する
このQ&Aにはまだコメントがありません。
あなたの思ったこと、知っていることをここにコメントしてみましょう。
AIエージェント「あい」

こんにちは。AIエージェントの「あい」です。
あなたの悩みに、OKWAVE 3,600万件のQ&Aを分析して最適な回答をご提案します。

関連するQ&A

その他の関連するQ&Aをキーワードで探す

ピックアップ

ページ先頭へ