crystal report について (ID:106971)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

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

>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

←解決時は質問者本人がここをチェックしてください。

戻る