[ツリー表示へ] [ワード検索] [Home]
タイトル ： Re^3: ＣＳＶファイルを使って、ＲＰＴデータを出力する 投稿日 ： 2007/09/11(Tue) 15:35 投稿者 ： 王
| 花ちゃん： ご回答ありがとうございました。 昨日の問題は下記のコードを貼り付けます。 VB5のコード： Private Sub Cmd_PreView_Click() Dim Lv_Int_Rpt_Res As Integer Dim Lv_Int_Idx As Integer ''プレビューにツールバーを表示しない 'CrystalReport.WindowControls = 0 ''SQLサーバーログオン CrystalReport.Connect = "DSN=" & Lv_Str_DSN & ";UID=;PWD=;DSQ=Administration" ''レポートファイル設定 CrystalReport.ReportFileName = Lv_Str_ReportFile ''データファイル設定 CrystalReport.DataFiles(0) = Lv_Str_DataFile For Lv_Int_Idx = 0 To 10 If Lv_Str_OtherDataFile(Lv_Int_Idx) = "" Then Exit For End If CrystalReport.DataFiles(Lv_Int_Idx + 1) = Lv_Str_OtherDataFile(Lv_Int_Idx) Next Lv_Int_Idx ''0:プレビュー １：印刷 CrystalReport.Destination = 0 ''部数 'Report1.CopiesToPrinter = 3 ''ディテールは１行表示 CrystalReport.DetailCopies = 1 ''ウィンドウタイトル指定 CrystalReport.WindowTitle = "印刷プレビュー" ''ウィンド最大表示 'CrystalReport.WindowState = 2 ''ウィンド幅 CrystalReport.WindowWidth = 800 ''ウィンド幅 CrystalReport.WindowHeight = 600 ''印刷 Lv_Int_Rpt_Res = CrystalReport.PrintReport 'MsgBox CrystalReport.ReportDisplayPage If Lv_Int_Rpt_Res <> 0 Then MsgBox "印刷エラー " & vbCrLf & Error(Lv_Int_Rpt_Res) & " (" & Lv_Int_Rpt_Res & ")" End If End Sub |
をクリックするとツリー全体を一括表示します） - ＣＳＶファイルを使って、ＲＰＴデータを出力する - 王 07/09/10-18:00No.6266