crystal report について
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
これだけのコードでは、原因は分かりません。
crPREP002 に関して設定しているコードをすべて
（デザイン時に設定している場合はそれも）載せて下さい。
Destination しか設定していない
っていうわけではないですよね？
デザインの所でもプレビューは出ましたか？
上記のコードではデータベースと連動させているコードが記述されていません。
そうなると、デザインでＯＤＢＣの設定をしていると推測できますが・・・
回答ありがとうございます。
>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
>デザインの所でもプレビューは出ましたか？
デザインのところでは、プレビューは出力されました。
>上記のコードではデータベースと連動させているコードが記述されていません。
>そうなると、デザインでＯＤＢＣの設定をしていると推測できますが・・・
言葉足らずですいません。その通りです。
たしか、「WindowShowRefreshBtn」を使ってRefreshしないとデータの更新はされなかったような気がするのですが・・・
とおりすがりさん
>たしか、「WindowShowRefreshBtn」を使ってRefreshしないとデータの更新はさ
>れなかったような気がするのですが・・・
詳しく設定方法を教えて頂けないでしょうか？
.PrintReportの前にでも
.WindowShowRefreshBtn = True
と記述してみてください。
でも、その前にデザイン画面ではプレビューでたのですか？
出ない場合は、そこに原因がありますよ。
>でも、その前にデザイン画面ではプレビューでたのですか？
デザイン画面ではプレビューは、出ました
| ツイート |  |