こんにちわ。
VB.NET2002、クリスタルレポート9を使用しています。
画像ファイルをOLEオブジェクトで貼り付けています。
リンクのところにチェックをいれてファイルが変更したときに反映する設定にしています。
VBから印刷させるようにしているのですが、クリスタルレポートビュアーでは
正しく画像ファイルを読み込んでくるのですが、
printtoprinterで印刷命令させると画像ファイルが更新されずに印刷されます。。。
プログラム上で何か指定しないといけないのでしょうか
わかりにくい説明ですいません。
よろしくお願いします。

CrystalReports初心者です。
当方、CrystalReports11を使っています。

初歩的な質問かもしれないんですが

リストのデータで

--------------------------
1　A
1　B
--------------------------
2　C
2　D
2　E
2　F
--------------------------
3　G
--------------------------

のように数値データの切り替わりのところで
罫線を入れたいのですが、どのようにデザインするのが
いいんでしょうか。
そもそも、CrystalReportsの帳票デザインのみで解決できることなんでしょうか？

どなたかご存知の方がいらっしゃいましたらご教授願えませんでしょうか。
宜しくお願いします。

グループヘッダー --------------------------
詳細　　　　　　　　1　A
詳細　　　　　　　　1　B
グループヘッダー --------------------------
詳細　　　　　　　　2　C
詳細　　　　　　　　2　D
詳細　　　　　　　　2　E
詳細　　　　　　　　2　F
グループヘッダー --------------------------
　　　　　　　　　　　3　G
グループヘッダー --------------------------

デザイン時にグループヘッダーの縦幅をなるべく小さくして罫線を引けば、見栄えはよくなると思います。
あと、グループフッターも同時に挿入されますが、このレポートの場合、とりあえず、非表示にしておきましょう。

早速のアドバイスありがとうございます。
下のほうをきちんと閉じたかったのでグループフッタで同じ事をやってみましたところ、うまくいきました。

ありがとうございました。

クリスタルレポート初心者です。

.NET2003から付属のクリスタルレポートを使って帳票出力しています。
プレビュー表示を行わずに直接印刷したいのですが、
クリスタルレポート.PrintToPrinter() ではいきなり出力してしまうので
その前に印刷ダイアログを出したいと思っています。
クリスタルレポートのメソッドで、印刷前にダイアログを出すという事はできるのでしょうか？
どなたか教えてください

PrintDialogを呼び出して印刷の設定をさせる。

その後PrintDialog.PrinterSettingsから設定を抜き出し、
CrystalReportのPrinterSettingsに格納。

そしてPrintToPrinter．．．で出来ないかなぁ？

はじめまして。
PrintToPrinterを使用して部単位で印刷を行いたいと考えています。
しかしPrintToPrinter(2,TRUE,0,0)というように、
第二引数のcollatedをTRUEにしても部単位で印刷されません。

引数の他に設定する箇所があるのでしょうか?
PrintToPrinterの使用方法が間違っているのでしょうか?

部単位で印刷出来る方法をご存知の方がおられましたら、ご教授をお願いします。

開発環境
OS：WindowsXP Pro
言語：VB.NET2003
クリレポ：CrystalReport for VisualStudio.NET
プリンタ：EPSON LP-9300(ドライバver2.17)
プリンタ：RICOH IPSiO CX9000(ドライバver6.28)

>あぽさん
返信ありがとうございます。
では環境の問題かもしれませんね。
出来れば他のマシンでも試してみようと思います。

自己解決しました。
データベースはMSDEを使用していたのですが、
MSDEのデータベースユーザーにパスワードを設定するとログオンできませんの
エラーになるようです。
ODBCドライバ側でもパスワードの設定をしているのになぜかは不明ですが・・・

はじめまして、
CrystalReports8.5、VB6で開発している初心者です。
OSはXP Proです。

システム日付を戻して表示しようとすると
データベースDLLエラがエラーを検出しました
となります。
どなたか、原因、対処方法をご存じないでしょうか。
よろしくお願いいたします。

Ryu様

パラメータフィールドの編集から「複数の値を認める」をチェックして、
レコード選択式には、以下のように記述してみてください。
{テーブル名.項目名} in {?パラメータフィールド名}

はじめまして。クリスタルレポートの開発で行き詰ってしまい、アドバイスをいただければと思い投稿しました。

グループのネストを使い表示させようとしたときに、子グループにデータがないと親グループも
表示されず困っております。
以下のような感じにだしたいと思ってます
-------------------------
グループA
  グループB
    グループC
      グループD
  グループB      ←でない
    グループC    ←でない
  グループB      ←でない
-------------------------

実際にはもう少し階層が深いのですが基本は上記のようになっています。
データソースにはデータセットを使用しており、ループさせるためにビジュアルリンクエキスパートで
リンクをはっています

主キーは以下のようになっています。
A - key1
B - key1,key2
C - key1,key2,key3
D - key1,key2,key3,key4

リンクは
A(key1) - B(key1)
B(key1) - C(key1)
B(key2) - C(key2)
C(key1) - D(key1)
C(key2) - D(key2)
C(key3) - D(key3)
のように張っています。

分かりずらい説明で申し訳ありませんが分かる方おられましたらよろしくお願いします。

はじめまして、サトウと申します。
CrystalReports8.0で、EUCをしています。
OSはXP Proです。

いつもはOracleにアタッチしてレポートを作成しているのですが、
今回、データソースに「MS Access Database」つまり、MDBを使用する必要があり
rptファイル作成し、Exeに変換して頒布しようと思ったのですが・・・

変換までは出来るのですが、Exeファイルを実行し、データをリフレッシュ
しようとすると、「ログオンのパラメータ」 でパスワードを聞いてきます。

特にパスワードなど、設定した覚えがないのですが・・・
当然、何を入れてもエラーとなります。

対処法をご存知の方がいらっしゃいましたら、何卒ご教授いただきたく
宜しくお願い致します。

はじめまして。
CrystalReport9で開発をしています。
サブレポート内で帳票を作ろうとしています。

作りたい帳票はヘッダー・フッター・データ出力部分１０行からなるものです。

詳細a,bを使ってページヘッダーとページフッターを作ることは成功しました。

さらに詳細cで１０行の表を作りunderlayをして、その中に詳細ｄのデータを順に入力する部分がうまくいきません。

このような処理を行う方法がありましたら、ご教授いただきたく思います。

なお他の方法でも、詳細のみを使い帳票を作る方法をご存知の方がいましたら、よろしくお願いいたします。

わたなべ様

なぜ、サブレポートを利用されるのかわかりませんが、サブレポートを利用しない方法を参考までに記述します。
1.詳細の「出力後に改ページ」の条件式に以下の式を挿入します。
WhilePrintingRecords;
Remainder(RecordNumber,10)=0
2.詳細に1行分の高さでデータベースフィールドを挿入します。
3.ページヘッダーを詳細の10行分の高さに調整します。
4.ページヘッダーに10行分のデータが表示できるように罫線を挿入します。
5.ページヘッダーの「続くセクションをアンダーレイ」をチェックします。
その結果、1ページ毎に10レコード（行）のデータを表示することができます。
シンプルなレポートを例になるため、レポートのデザインによっては参考にならないかもしれませんが・・試してみてください。

 
 この場合の、ヘッダーの条件分けをうまくやる方法をご存知でしたら、ご教授願います。
 

よろしくお願いいたします。

わたなべ様

このサブレポートは、複数ページ存在しているのでしょうか。あるいは、1ページ（10行分のみ）だけですか。

かんてぃ〜様

ページ毎に出力ファイルを変更することはできます。
でも、Crystal Reports 8 は、わかりません。
Crystal Reports 10 RDCの ExportOptions オブジェクトを利用することでできました。
こんな感じのコード記述になります。

Dim i As Integer
Dim j As Integer
Report.ReadRecords
j = Report.PrintingStatus.NumberOfPages
For i = 1 To j
Report.ExportOptions.DestinationType = crEDTDiskFile
Report.ExportOptions.FormatType = crEFTExcel97
Report.ExportOptions.DiskFileName = App.Path & "\test_" & Str(i) & ".xls"
Report.ExportOptions.ExcelExportAllPages = False
Report.ExportOptions.ExcelFirstPageNumber = i
Report.ExportOptions.ExcelLastPageNumber = i
Report.Export False
Next i

Crystal Reports 8 でも RDC を利用することができます。
でもExporOptionsオブジェクト自体とそのプロパティは異なるかもしれませんので
ヘルプで確認してみてください。

VB6でクリレポをはじめて使います。

クリレポは主にデータベースを設定して使う物ですよね？
しかし今回はDBを設定せずに、事前に作っておいた.rptファイルを作っておき
VBのアプリ上で発生した値を直接レポートにセット！→プレビュー→印刷。

このながれでソースを書いているのですがセットした値を改行ってできないのでしょうか？

とゆうか、根本的に使い方がおかしいような気もするのですが、、、。
テストソースです。

Private Sub Form_Load()
      'レポート編集
       CrystalReport1.Formulas(0) = "data1='123'"
       'プレビューモード
       CrystalReport1.Destination = crptToWindow
       
       'クリスタルレポートプレビュー表示
       If CrystalReport1.PrintReport <> 0 Then
              MsgBox "CrystalReport Print Error"
       End If
End Sub

■ReportFileName　等はデザイン側で設定

レポートに式フィールド @data を貼り付け。

これで一応レポートの@dataを貼ったところに 123 がセットされプレビューがでてきます。
これを改行したいんです！

     '.Formulas(0) = "data='123" & Chr(13) & "456" & "'"

これでは駄目でした。
@data は"複数行に出力"　にもチェックしています。

式フィールドの使い方おかしいですか？
こうゆう場合何か違うやりかたがあるのでしょうか？
セットする値は100こくらいあって式フィールドを作るだけで大変です。

ご教授ください！！
よろしくお願いします！

あさやん様

サブレポートの出力条件がどの時点で判定可能かで実現方法が変更になるかと思います。例えば、メインレポートの1ページ目からサブレポートの出力有無の判定可能であれば、ページヘッダBの非表示の条件式に以下の式を挿入してみてはどうしょうか。
WhilePrintingRecords;
if サブレポートの表示条件 = True Then
//サブレポート表示中は、ページヘッダBを表示とする。
  if OnLastRecord Then False
//サブレポート表示前のページヘッダBを非表示とする。
  else True 
Else
//サブレポート表示しないのでページヘッダBを非表示とする。
True

レポートのデザインによってはうまく動作しないかもしれませんが、試してみてください。

レポートの修正で解決いたしました。
お騒がせして申し訳ございませんでした。

うえの様

Crystal Reports 11 では、OCX（Crystl32.OCX)の開発手法は利用することができません。RDCを利用したコードに変更する必要があります。
この掲示板の別の記事に同様な内容の書き込みがありますので参照してみてください。

>CryRepo.ReportFileName = strCryRepoFilePath
↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓

' Application オブジェクトの変数宣言
Dim CR11App As CRAXDRT.Application
' Report オブジェクトの変数宣言
Dim CR11Report As CRAXDRT.Report
'アプリケーション オプジェクトの生成
Set CR11App = CreateObject("Crystalruntime.Application")
'レポート オブジェクトの生成
Set CR11Report = CR11App.OpenReport(strCryRepoFilePath, 1)


>CryRepo.Connect = "DSN=" & gstrDataBaseName & ";UID=" & >gstrUserId & ";PWD=" & gstrPassWord
↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓

With CR11Report.Database.Tables.Item(1)
' ODBC データソース名
    .ConnectionProperties.Item("DSN") = gstrDataBaseName
' ユーザー名
    .ConnectionProperties.Item("User Id") = gstrUserId
' パスワード
    .ConnectionProperties.Item("Password") = gstrPassWord
' ロケーション設定
   .Location = "スキーマ名" & "." & .Location 
End With


>CryRepo.SQLQuery = strSqlObj
↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓

CR11Report.SQLQueryString = strSqlObj


>CryRepo.Action = 1
↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓

Windows 画面にレポートを表示するには、VBフォームにいるActiveX Viewer Control を貼り付けて利用します。
’プレビュー
With CrystalActiveXReportViewer1
　 'レポートオブジェクトの指定
     .ReportSource =  CR11Report                                            　　
    'プレビュー実行
    .ViewReport
End　With

自己レスさせて頂きます。

再度「Crystal Reports XI テクニカルリファレンス ガイド」を読み直したところ、
次のコーディングでOracleとのデータベース接続ができ、解決いたしました。

初歩の質問で申し訳ありませんでした。

========================================================
Dim crxApplication        As New CRAXDRT.Application
Dim Report                As CRAXDRT.Report
Dim crxDatabaseTable      As CRAXDRT.DatabaseTable

Set Report = crxApplication.OpenReport(strCryRepoFilePath, 1)
Set crxDatabaseTable = Report.Database.Tables(1)
With crxDatabaseTable
 .ConnectionProperties("Server") = gstrDataBaseName
 .ConnectionProperties("User ID") = gstrUserId
 .ConnectionProperties("Password") = gstrPassWord
End With
Report.SQLQueryString = strSqlObj
========================================================

初めまして。
調べ物をしている内にここに流れ着きました。
質問させてください。

いままでWindows2000Server ＋ IIS ＋ ASP ＋ SQLServer7.0 +CrystalReports8  にて運用を行っていました。
レポートはHTML内にフレームで

<FRAMESET ROWS="*,48">
 <FRAME NAME="HEAD"  SRC="<%=レポート名.rpt?init=actx&user0=" & ユーザー名 & "&password0=" & パスワード & 以下パラメータ%>">
 <FRAME NAME="FOOT"  SRC="Foot.asp>
</FRAMESET>

のような感じでViewerを用いて表示させていました。

今度サーバーを入れ替えることになりまして、その際に今後を睨んでCrystalReportsもバージョンを10または11にしようと考えています。
とりあえずバージョン10でそのまま動作するか試してみましたが、Viewerがないのか扱い方が変わっているのかそのままでは表示してくれません。

そこで動作させる方法を調査していたのですが、調べた限りではASP環境にてViewerを使って表示させる方法を見つけることはできませんでした。
＃ASP.NETなどは見つかるのですが…

ひょっとして方法を変えないといけないのでしょうか…。
もしなんらかの手直しが必要なら方法を教えていただけると助かります。
時間がかかるようなら当面は引き続き８での運用を行うかどうか判断をしないといけないので…。

唐突で失礼なことも多いかと思いますが、わらにもすがる気持ちですのでよろしくお願いします。

はじめまして
VB.net、CrystalReport10で開発をしています。

Crystal　Reportを使用し、Jpegを表示しようと考えています。
常に同じ名前のファイルを表示するのは　挿入＞ピクチャ　で
できると思いますが、毎回違う名前のファイルを表示する場合は
どうしたら良いのでしょうか？ SQLサーバー　imageを使って出来ないでしょうか？
よろしくお願いいたします

TSKST様

No.708は、VB6/RDCの記述です。
VB.NETでもRDCを使用しなければ、この記述は使えません。

Kimberly様
回答有難うございます。

教えていただいたサンプルを調べてみました。
サンプルコード”OracleLogonInfo”でcrConnectionInfoの設定で、
    .Password = "PASS"
    .ServerName = "NAME"
    .UserID = "USER"
の部分だけを変更しテストしてみたところ、
　　crTable.ApplyLogOnInfo(crTableLogOnInfo)
この行で”追加情報 : ログオンに失敗しました。”が発生しました。
他にも色々ためしましたが結果は変わりませんでした。


CRXReport.Database.Tables.Item(1).ConnectionProperties.Item("Server") = "Oracle サービス名"
については、ヘルプで読み取り専用と明記されていました。
バージョンによって違うということでしょうか。

もう少し調べてみますが、最終的には、レポート自体の接続設定を個別するようになるかと思います。

何か解ればまた記述させていただきます。

クリレポでグラフを表示出来る場所は、レポートヘッダだけなのでしょうか？
詳細の所にグラフを表示させたいと思っているのですが
詳細の所に移動も出来ません。

何か方法があるのでしょうか？

CristalReport9.0

サレ様

チャートを含むレポートは、サブレポートで実現して、それをメインレポートに挿入することでできると思います。メインレポートでは、レポートヘッダー、フッターとグループヘッダー、フッターのセクションでしか表示できません。

クリスタルレポートにて帳票を作成していましたところ、壁にぶつかりましてこのページにたどり着きました。
どなたかご教授いただきたく存じます。

やりたいこと

ヘッダー１
A　　B
　ヘッダー２
　　　Ｅ　　C　　D
　　　詳細
　　　　　　　　　Da

D＝Sum（Da , Ｅ）であるとき、
C＝Dの場合、ヘッダー１を印字しない、C≠Dの場合、印字するということをしたいです。
ただ、ヘッダー２は複数行存在する可能性があり、全件がC＝Dの場合のみ、印字しないようにしたいのです。

このようなことは可能でしょうか？
分かりにくい説明で申し訳ありませんが、よろしくお願い致します。

初心者様

上記のレポートのイメージだけでは、よくわかりませんが、印刷要否の判定を予めサブレポートを挿入して行うことは可能です。
極端に言えば、同一レポートをサブレポートとして、レポートの先頭に挿入し、サブレポートの処理が終了した時点で、ヘッダーの印刷要否が判明するわけです。
その結果を元に、メインレポートで実現することになります。
ただし、サブレポートはデータ評価用で利用しているので、デザイン後は、内容が表示されないようにサイズを小さくします。非表示では、評価されませんので注意してください。

はじめまして
クリスタルレポートの初心者です。
宜しくお願い致します。

VB6からクリスタルレポートの出力を行うツールで、クリスタルレポートのバージョンを8から11にバージョンアップさせる開発を行っています。

開発環境は以下のとおりです。
Crystal Reports 11
VB6

Crystal Reports 11ではOCXに対応していないため、

CrystalReport1.SelectionFormula = "{" & TBL_PRN_OUTINFO & ".Index} >= " & 15 - m_SkipNum

のCrystalReport1.SelectionFormulaに変わる物はありませんでしょうか？

初心者で説明が不足しているかと思いますが宜しくお願い致します。

初心者様

VBプロジェクトでCR11のCrystal Reports ActiveX Designer Run Time Library 11.0 (CRAXDRT.DLL) と Crystal ActiveX Report Viewer Library 11.0 (crviewer.dll) を参照できるように登録していますか。
 プロジェクトメニューから 「参照設定」を選択して、「参照可能なライブラリ ファイル」の一覧から選択します。あと、製品付属のVBサンプルプログラムもありますので参考にしてください。

はじめまして。

セクションの表示について悩んでいます。
ページ設定の下余白を”0”に設定して、レポートフッターa,bがあります。
bはサブレポートになっていて、条件が満たされた場合は改ページして表示されます。
条件が満たされない場合は、非表示になり、その分、レポートフッターaの位置が上に上がってしまいます。
条件が満たされる場合と満たされない場合でレポートフッターaの位置に変化がないように
制御したいのですが、条件によりセクションを削除することは可能でしょうか？？

よろしくお願いします。

たか様

以下のサイトに方法が記述されています。
http://support.businessobjects.com/library/kbase/articles/c2017518.asp

VB.NET2003から付属のクリスタルレポートを使って帳票を出力しています。
帳票のテキストオブジェクトをctype( )を使って、テキスト型に変換して、
値の設定をしています。
オブジェクトの数は100個くらいあるのですが、プログラムの中で
一つ一つ取得して、変換して、値を設定、としていると途中で
”オブジェクト参照がオブジェクトインスタンスに設定されていません”というエラーになってしまいます。

For intCrp = 0 To crpKhyou.Section3.ReportObjects.Count - 1
    strObjName = crpKhyou.Section3.ReportObjects（intCrp).Name

        CType(crpKhyou.ReportDefinition.ReportObjects(strObjName), _
             CrystalDecisions.CrystalReports.Engine.TextObject).Text = "テキスト"
Next intCrp

オブジェクトの数が多すぎるのでしょうか！？どなたかヒントをください。。
お願いします。

 はじめまして。

開発環境は、VB.NET2003/付属?のCrystalReportで開発しています。

Form側から、FontSizeの設定をしようと思っています。
HELPをみたら、ApplyFontメソッドで書きましょう！！！のようにのっていたのですが、いまいちPGをどう書いたら良いのかが分かりません。
もし、ご存知の方がいらっしゃいましたら、宜しくお願い致します。

こんにちは。
いつもこちらの掲示板を参考にさせていただいています。

さて、当方VB.net2003 + net2003付属CrystalReports(10?) で開発をしています。
以下のような帳票を作成したいのですが、わからない点があり、
御教授お願いします。

<質問事項>
下記の現象が発生がしない<実現したい帳票>を作成したい。

現象を確認したプリンタは、EPSON LP-8900です。

＜設定＞
1.[デザイナ]の[プリンタ設定]の[用紙]の[サイズ]を[A3 横]、[印刷の向き]を[横]に設定しています
2.セクションエキスパートの[詳細]の[複数の列で書式設定]にチェックを付け、
  [レイアウト]の[詳細サイズ]の[幅]を[40cm]、[印刷方向]を[縦から横]に設定しています。
3.
<現象>
設定の2を行い、詳細の[width]が規定値[16149]以上になると
レポートビューアに1頁で表示された帳票が、2頁分の印刷される。
印刷された1頁目はビューアの内容と同一で2頁目にビューアの右1/3ぐらいのデータが出力される。

＜実現したい帳票＞
・クリスタルレポートの出力サイズがA3横
・レポートは、複数のテキストボックスを横に配置しており、全合計バイト数が350バイト
・レイアウトの変更は不可
・フォントサイズは6ポイント以上
・詳細セクションは複数(a〜f)存在する

<出力イメージ>
|---------------------------------|
| A列 | B列 | C列 ... | Z列       |
|---------------------------------|
| 11  | 22  |会い ....| 2005/05/05|
|---------------------------------|
  ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
            ↑合計350バイト