crystal report について

自己 2003-04-28 17:25:38 No: 106968 IP: [192.*.*.*]

os:win2000
db:oracle8i

vb6.0のプログラムないでcrystal reportを使用して
oracleDBの情報をプレビュー→印刷したいのですが、
プレビュー画面にも出力されません。
ちなみにODBCの設定も済みです。

原因がわかりません。ご存知の方ご教授願えないでしょうか？

『VBソース』
    If p_index = 0 Then
        'クリスタルレポートのプレビュー
        With p_frm.crPREP002
            .WindowState = crptMaximized
            .Destination = crptToWindow
            .PrintReport
        End With
    Else
        'クリスタルレポートの印刷
        With p_frm.crPREP002
            .PrinterSelect
            .Destination = crptToPrinter
            .PrintReport
        End With

編集削除

名前なし 2003-04-28 17:44:49 No: 106969 IP: [192.*.*.*]

これだけのコードでは、原因は分かりません。
crPREP002 に関して設定しているコードをすべて
（デザイン時に設定している場合はそれも）載せて下さい。

Destination しか設定していない
っていうわけではないですよね？

編集削除

とおりすがり 2003-04-28 18:09:02 No: 106970 IP: [192.*.*.*]

デザインの所でもプレビューは出ましたか？
上記のコードではデータベースと連動させているコードが記述されていません。
そうなると、デザインでＯＤＢＣの設定をしていると推測できますが・・・

編集削除

自己 2003-04-28 18:09:47 No: 106971 IP: [192.*.*.*]

回答ありがとうございます。

>crPREP002 に関して設定しているコードをすべて
>（デザイン時に設定している場合はそれも）載せて下さい。

以下のソースです。
'--------------------------------------------------------------------
'印刷処理を行う。
'--------------------------------------------------------------------
Public Function PREP002_PrintOut(p_frm As frmPREP002, p_index As Integer) As Boolean

    Dim i As Integer
    Dim Ssql As String
    Dim s_connect_str As String
    Dim p_sql As String
    Dim PREP002_VIEW As String
    Dim RNM As String


    PREP002_PrintOut = False

    Select Case gfrmPREP002_EXEC
    Case GC_PREP002_TSK
        'ビュー
        PREP002_VIEW = "PREP002_R01"
        'レポート
        RNM = "PREP002_R01.rpt"

    Case GC_PREP002_SKI
        'ビュー
        PREP002_VIEW = "PREP002_R02"
        'レポート
        RNM = "PREP002_R02.rpt"
    End Select


    Ssql = ""
    Ssql = "select * from " & PREP002_VIEW
    Ssql = Ssql & " where SEQ = " & gSEQ
    Ssql = Ssql & " order by 資格CD,所属SEQ,所属内SEQ"


    s_connect_str = "DSN=" & gSID & ";UID=" & gUserID & ";PWD=" & gPassWord

    'クリスタルレポート・プロパティの設定。
    With p_frm.crPREP002
        .Connect = s_connect_str
        .ReportFileName = gREP_DIR & "\" & RNM
        .SQLQuery = Ssql
    End With


    If p_index = 0 Then
        'クリスタルレポートのプレビュー
        With p_frm.crPREP002
            .WindowState = crptMaximized
            .Destination = crptToWindow
            .PrintReport
        End With
    Else
        'クリスタルレポートの印刷
        With p_frm.crPREP002
            .PrinterSelect
            .Destination = crptToPrinter
            .PrintReport
        End With


    End If


    PREP002_PrintOut = True

End Function

編集削除

自己 2003-04-28 18:24:03 No: 106972 IP: [192.*.*.*]

>デザインの所でもプレビューは出ましたか？

デザインのところでは、プレビューは出力されました。

>上記のコードではデータベースと連動させているコードが記述されていません。
>そうなると、デザインでＯＤＢＣの設定をしていると推測できますが・・・

言葉足らずですいません。その通りです。

編集削除

とおりすがり 2003-04-28 18:25:25 No: 106973 IP: [192.*.*.*]

たしか、「WindowShowRefreshBtn」を使ってRefreshしないとデータの更新はされなかったような気がするのですが・・・

編集削除

自己 2003-04-28 18:29:51 No: 106974 IP: [192.*.*.*]

とおりすがりさん

>たしか、「WindowShowRefreshBtn」を使ってRefreshしないとデータの更新はさ
>れなかったような気がするのですが・・・

詳しく設定方法を教えて頂けないでしょうか？

編集削除

とおりすがり 2003-04-28 18:45:07 No: 106975 IP: [192.*.*.*]

.PrintReportの前にでも
.WindowShowRefreshBtn = True
と記述してみてください。

でも、その前にデザイン画面ではプレビューでたのですか？
出ない場合は、そこに原因がありますよ。

編集削除

自己 2003-04-28 19:18:40 No: 106976 IP: [192.*.*.*]

>でも、その前にデザイン画面ではプレビューでたのですか？

デザイン画面ではプレビューは、出ました

編集削除