もり様、

サブレポートにグループヘッダとフッタを挿入して、そのグループの表示が２ページ以上に跨る場合、グループヘッダはページ毎に表示されるがグループフッタは最後のページしか表示されないという問題でしょうか。
ページ毎にグループヘッダを出力のオプションを利用しているわけですね。
このオプションを設定してもグループフッタは、グループヘッダのようにページ毎に表示することはできません。
同一グループ内の最後のデータを表示した後にグループフッタを表示することになります。
そこで、2ページ以降のページ毎にグループフッタの内容を表示する方法ですが、
例えば、詳細セクションを利用します。この詳細セクションにグループフッタの内容をコピーし、挿入します。
ただ。デザインのイメージが分かりませんので、新しく挿入した詳細セクションで実現可能であるか自信はありません。
あと、1ページに表示する件数を固定にします。これは、グループフッタの内容を詳細セクションで表示させるために、同一ページ内で表示する最後のデータを判別できるようにします。
以下は、本掲示版のNo.195の応用です。（1ページに20行(レコード)の場合）
グループヘッダに以下の式フィールドを挿入します。
NumberVar lineNumber := 20;
NumberVar lineCounter := 0;

次に詳細aに以下の式フィールドを挿入します。
NumberVar lineNumber;
NumberVar lineCounter;
lineCounter := lineCounter + 1;
lineCounter := Remainder(lineCounter, lineNumber);

詳細bの出力後に改ページのオプションの条件式に以下の式を挿入します。
WhilePrintingRecords;
NumberVar lineNumber;
NumberVar lineCounter;
// 余り０の場合、
If Remainder(lineCounter, lineNumber) = 0 Then
// グループ内の最後のデータ ?
(If lineCounter = Count({xxxx.field1},{xxx.grfield1}) Then
// 改ページしない
   False
  Else
// 改ページする
   True
)
Else
// 改ページしない
False

さらに詳細bの非表示の条件式に以下の式を挿入します。
WhilePrintingRecords;
NumberVar lineNumber;
NumberVar lineCounter;
// グループ内のレコード件数が20以下か？
If Count({xxxx.field1},{xxx.grfield1}) < lineNumber Then
True
// グループ内の最後のデータか？
Else if lineCounter = Count({xxxx.field1},{xxx.grfield1}) Then
True
Else
// 1ページで表示可能な場合も非表示
lineCounter < lineNumber

この結果、以下の表示イメージとなると思います。
同一グループの内容が1ページで表示される場合、
グループヘッダ
詳細a
詳細b (非表示)
グループフッタ

同一グループの内容が2ページ以上で跨って表示される場合、
(1ページ目〜最終ページ−1まで)
グループヘッダ
詳細a
詳細b (ページの最後のデータのみ表示)

(最終ページ)
グループヘッダ
詳細a
詳細b (非表示)
グループフッタ

簡単なレポートで試したので複雑なもので期待されるような表示できるかわかりません。
上記を参考にして、応用して見てください。

む
ら
ち
ゃ
ん

むのあとに改行　らのあとに改行・・・
テキストオブジェクトをたてに長くすればいいんじゃないでしょうか

い 様、

Crystal Reports 9 では、挿入されたテキストオブジェクトの書式設定から複数行に出力をチェックし、そのオブジェクトの横幅を1文字のみ表示できるように調整します。さらに、テキストオブジェクトのフォントは、縦書きフォントを選択し、
書式設定からテキストの回転を270度とすることでできました。
但し、縦書きフォントは全角文字のみ対象のため、半角文字は270度回転された状態で表示されますので注意してください。

便乗質問で申し訳ないです。

縦書きフォントって名称を教えていただけませんでしょうか？
よろしくお願いいたします。

猿町様ありがとうございます。

結局、長いステップで見た目もよくないですが、強引に作成しました。
いろんな関数が充実していれば工数も削減できるんですがねえ。

--------------
--------------
--------------
--------------
上記のように、帳票ではじめから罫線を引いておく方法を教えて下さい。
データが0件の場合でも表示させたいです。
テーブルからデータをただ引っ張ってくるだけなんすが・・・。

ari様、

レポートに罫線を予め引いておく方法ですが、
Crystal Reports 9 では、ページヘッダーに罫線を引くことでできます。
1. ページヘッダーの領域に罫線を必要な行数分挿入します。
2. この時、行間は、詳細で表示したいデータの高さに合わせます。
3. ページヘッダーには、以下の式フィールドを作成し、挿入します。
(例えば、1ページに20行表示する場合)
WhilePrintingRecords;
NumberVar lineNumber := 20;
NumberVar lineCounter := 0;
4. 1ページに表示する行数を計算する式を作成し、詳細に挿入します。
WhilePrintingRecords;
NumberVar lineNumber;
NumberVar lineCounter;
lineCounter := lineCounter + 1;
lineCounter := Remainder(lineCounter, lineNumber);
5. ページヘッダーの続くセクションをアンダーレイのオプションをチェックします。
6.詳細の出力後に改ページのオプションの条件式に以下の式を挿入します。
WhilePrintingRecords;
{@上記4の式フィールド名} = 0
固定行数は、予め上記の変数lineNumberに設定することで変更可能です。
また、グループヘッダーでも同様に罫線を挿入して実現することもできます。

前回の回答は、ちょっと説明が間違ってましたね。
>２．ページヘッダーあるいは、ページフッターに挿入する式フィールド
>WhilePrintingRecords;
>NumberVar　全体ページ番号;
>全体ページ番号:=全体ページ番号+1;
これは、各ページのページ番号を表示します。
それと同時にページ全体の総ページ数は、以下のように表示します。
WhilePrintingRecords;
NumberVar 全体ページ番号;
全体ページ番号:=全体ページ番号+1;
全体ページ番号 & "/" & Totalpagecount
式フィールドのTotalPageCount関数を利用します。
お試しください。

ゴルゴ様へ、

すみません。TotalPageCount関数を利用しても駄目でした。
レポートにグループ毎のページ番号（N/M）と全体のページ番号(N/M)を表示することはできないようです。

猿町様

回答ありがとうございました。
早速、試してみます。

教えてください。

列単位に前の行と同一レコードを非表示にしたいのですが、出来るでしょうか？

 L1    | L2           | L3       |
--------------------
0001 | AAAAA   |   001   |
0001 | AAAAA   |   002   | 
0002 | AAAAA   |   001   | 

↓

 L1    | L2           | L3       |
--------------------
0001 | AAAAA   |   001   | 
         |                |   002   | 
0002 | AAAAA   |   001   |

という具合にしたいのですが・・・・

更に、L1がKEYなのでL2が全ての行一緒でも
KEY（L1）の先頭行は全て表示したいです。

よろしくお願いします。

TAKE様、

フィールドの書式設定の非表示オプションの条件式を利用することで
できると思います。
こんなかんじです。
//L1の場合
WhilePrintingRecords;
{xxx.L1} = Previous({xxx.L1})
なお、非表示オプションのチェックは不要です。

//L2の場合
WhilePrintingRecords;
{xxx.L1} = Previous({xxx.L1}) AND {xxx.L2} = Previous({xxx.L2}) 
なお、非表示オプションのチェックは不要です。

それぞれのフィールドの非表示の条件式を利用することになります。

はじめまして。クリスタルレポートは殆ど初心者です。
(VB4付属のものは使ったことがあるのですが、余りにも変わっていて
 以前の知識は役に立たないと思います。)
先週から色々試しながら開発を行っているのですが、どうしても
上手くいかず困っていたところ、この掲示板に出会いました。
お忙しいところ申し訳ございませんが、どなたかご教授頂けませんでしょうか？
宜しくお願い致します。

開発環境
　ＯＳ：Windows2000 SP4
　言語：ASP(HTML・VBS・JavaScriptを組み合わせて使用。.NETではありません。)

質問内容
　「CrystalReportsの7から9へのバージョンアップ方法について」

　現在、CrystalReports7で動作しているWEBシステムを、9で動作できるよう
　バージョンアップ対応を行っているのですが、上手くいきません。
　修正を行ったプログラムを動作させると、実行時エラー等は発生しないの
　ですが、WEB画面にCrystalReportsの枠のみ表示され、内容が表示されません。
　(枠の中には、WEB上で画像等の読み込みに失敗したときに表示されるような
　 ×マークが表示されます)

　修正した箇所は以下の通りです。
　　(1)参照するDLLの変更(「CRViewer.dll」から「crviewer9.dll」に変更)
　　(2)プロパティ名をバージョンアップ対応
　　　 (プロパティ「Has Stop Button」を「EnableStopButton」に変更する、等)
　　(3)9になって無くなったプロパティ「MorePrintEngineErrorMessages」を
　　　 記述してある部分を全てコメント化
　　(4)プロパティ「ParameterPromptingEnabled」を記述した部分でエラーが
　　　 発生したが、恐らくこのプロパティも9で無くなったものと
　　　 思われたためコメント化
　　(5)CrystalReportsオブジェクトの変更
　　　(今まで「Server.CreateObject("Crystal.CRPE.Application")」と
　　　 していた記述を
　　　「Server.CreateObject("Crystalruntime.Application.9")」に変更)
　　(6)7で作成した「.rpt」ファイルを9上で開いて上書き保存し、
　　　 9対応させる

　　(実際のコーディングの一部)
　　　　------------ 修 正 前 ------------------
　　　　<OBJECT ALIGN = LEFT ID="CRViewer"  WIDTH=100% HEIGHT=95%
　　　　 CLASSID="CLSID:C4847596-972C-11D0-9567-00A0C9273C2A"
　　　　 CODEBASE="/viewer/activeXViewer/CRViewer.dll#Version=1,2,0,30">
　　　　 <PARAM NAME="Report Name" VALUE="rptserver.asp">
　　　    <PARAM NAME="Show Group Tree" VALUE=1>
　　　    <PARAM NAME="Show Toolbar" VALUE=1>
　　　　　<PARAM NAME="Has Group Tree" VALUE=1>
　　　　　<PARAM NAME="Has Navigation Control" VALUE=1>
　　　　　<PARAM NAME="Has Stop Button" VALUE=1>
　　　　　<PARAM NAME="Has Print Button" VALUE=1>
　　　　　<PARAM NAME="Has Zoom Control" VALUE=1>
　　　　　<PARAM NAME="Has Close Button" VALUE=0>
　　　　　<PARAM NAME="Has Progress Control" VALUE=1>
　　　　　<PARAM NAME="Has Search Button" VALUE=1>
　　　　　<PARAM NAME="Has Refresh Button" VALUE=1>
　　　　　<PARAM NAME="Can Drill Down" VALUE=1>
　　　　　<PARAM NAME="Has Animation Control" VALUE=1>
　　　　</OBJECT>

　　　　------------ 修 正 後 ------------------
　　　　<OBJECT ALIGN = LEFT ID="CRViewer"  WIDTH=100% HEIGHT=95%
　　　　 CLASSID="CLSID:8767A745-088E-4CA6-8594-073D6D2DE57A"
       　CODEBASE="/crystalreportviewers/ActiveXViewer/
         crviewer9.dll#Version=9,2,1,175"">
　　　　　<PARAM NAME="Report Name" VALUE="rptserver.asp">
　　　　　<PARAM NAME="DisplayGroupTree"         VALUE=1>
　　　　　<PARAM NAME="DisplayToolbar"           VALUE=1>
　　　　　<PARAM NAME="EnableGroupTree"          VALUE=1>
　　　　　<PARAM NAME="EnableNavigationControls" VALUE=1>
　　　　　<PARAM NAME="EnableStopButton"         VALUE=1>
　　　　　<PARAM NAME="EnablePrintButton"        VALUE=1>
　　　　　<PARAM NAME="EnableZoomControl"        VALUE=1>
　　　　　<PARAM NAME="EnableCloseButton"        VALUE=0>
　　　　　<PARAM NAME="EnableProgressControl"    VALUE=1>
　　　　　<PARAM NAME="EnableSearchExpertButton" VALUE=1>
　　　　　<PARAM NAME="EnableRefreshButton"      VALUE=1>
　　　　　<PARAM NAME="EnableDrillDown"          VALUE=1>
　　　　　<PARAM NAME="EnableAnimationControl"   VALUE=1>
 　　　</OBJECT>

以上です。
上記の手順で間違っている部分や、まだ不足している手順等がありましたら
ご指摘頂けませんでしょうか？
また、こういったバージョンアップの方法等は確立されている
ものなのでしょうか？
お手数をお掛けして申し訳ございませんが
ご回答の程、宜しくお願い申し上げます。

はじめまして。クリスタルレポートの初心者です。

今、集計表をクリスタルレポートで作成しています。

各支社毎に[分類]がありまして、支社毎に合計を出力します。
また、レポートの最後には、全社の合計を[分類]毎に計算し出力します。

●イメージ
　支社　　　　分類　　　点数　
　東京支社　　A　　　　  70
             　　　B　        80
             　　　C          65
             　　　D          90
             　　合計　　   305
                       ・
　　　　　　　       ・
　　　　　　       　・
  全支社　　　A　　　　　600
　　　　　　　  B　　　　　800
　　　　　　　  C　　　　　400
　　　　　　　  D　　　　　900
　　　　　　  合計　　　　3700　

この場合の、レポートの最後の[分類]毎に出力する方法が良く分かりません。
ご存知の方、ご教授ください。

この場合、式フィールドを利用して、分類毎に集計する方法でできると思います。
こんな感じで式フィールドを詳細セクションに挿入します。

//集計したい分類の数分の変数を用意する必要があります。
WhilePrintingRecords;
NumberVar a;
NumberVar b;
NumberVar c;
NumberVar d;
if {xxx.分類}="A" then
a:=a+{xxx.点数}
else if {xxx.分類}="B" then
b:=b+{xxx.点数}
else if {xxx.分類}="C" then
c:=c+{xxx.点数}
else if {xxx.分類}="D" then
d:=d+{xxx.点数}

上記の変数で集計された値を表示するための式フィールドを
分類の数分を用意して、レポートの最後に、以下の式を挿入します。
変数a の場合、以下のようになります。
WhilePrintingRecords;
NumberVar a;

あと、上記で利用している変数の初期化の宣言をレポートの先頭に挿入します。
WhilePrintingRecords;
NumberVar a:=0;
NumberVar b:=0;
NumberVar c:=0;
NumberVar d:=0;

集計結果を表示する式フィールド以外は計算のみに利用しているだけなので
非表示にします。

はじめまして。VB.NETと.NET2003のクリスタルレポートを利用しています。

今まで複数の帳票をそれぞれ別フォームでCrystalReportViewerを使用し表示させていたのですが、
今回の仕様でサブレポートを利用し、一画面で複数帳票を表示させることになりました。
そこで質問なのですが、メインレポート起動時にサブレポートのタグを表示させることは可能でしょうか？
CrystalReportViewerでメインレポートを表示した後、DrillDownイベントではタグが表示されるのですが・・・

ご存知の方がいらっしゃいましたら、ご教授ください。
宜しくお願いします。

P.S
各レポートごとにrptファイル、データセットは個別に用意しています。

クリスタルレポート9.0と.Netで開発してます。

コード上から印刷ダイアログを出して、クリスタルポートに設定を反映させる方法
とフィールド定義ファイルの場所を指定してデータベースの照合を行う方法を
探しています。

ご存知の方がいらっしゃいましたら、どうかご教示ください。
お願いします。

フジー様

質問内容から.NETを使っていますか？NETは使ったことがないからわかりませんが、VB6とCRのRDC機能と組み合わせで実現できます。
多分、.NETもCRのRDC機能を利用することができるので可能じゃないでしょうか。

CR7と.NETの組み合わせで動かしたことはありませんが、PrintToPrinter メソッドを利用することで直接印刷することができます。
以下は、サンプルコードです。こんな感じです。

Private Sub CommandButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CommandButton1.Click
 
 Dim crDoc as CrystalDecisions.CrytalReports.Engine.ReportDocument
 Set crDoc = New CrytalDecisions.CrystalReports.Engine.ReportDocument
 crDoc.Load("C:\Report1.rpt")
 crDoc.PrintToPrinter(1, False, 0,0)
 
 Set crDoc = Nothing

End Sub

最近、使い始めたものです。
試してみたけど私も駄目でした。
X軸は、直接データベースのフィールド名を利用するものではないようです。
レコードのデータ値から取得しています。
例えば、以下のデータの持ち方だとご希望のチャートができました。
フィールド　[地域]　[月]　[件数]
レコード１　東京　　　1    10　
レコード2　東京　　　2    12　
レコード3　東京　　　3    13　
レコード4　東京　　　4    16

あまり役立ちませんね。　すみません。

弥太郎様

データベースの構造を変えないで実現する方法は難しいと思います。
でも、１つテーブルを作成すると期待通りのチャートが作れます。
少し面倒ですが、サブレポートを利用して、チャートを表示します。
まず手順は、以下の通りです。
1. レコード件数分のデータを保存する配列を作成します。
StringVar Array 地域データ;  
Redim 地域データ[1];
2. １レコード内の各フィールドの値を保存する配列を作成し、保存します。
StringVar Array 月データ;
Redim 月データ[12];　//12ヶ月分
月データ[1]  := ToText({xxx.1月});   
月データ[2]  := ToText({xxx.2月});   
月データ[3]  := ToText({xxx.3月}); 
月データ[4]  := ToText({xxx.4月}); 

3. 2.で作成した配列の内容を繋いで、その値を1.で作成した配列に保存します。
そうすることで、二次元配列のようなものができる。
地域データ[1]:=月データ[1]+月データ[2]+月データ[3]+月データ[4]・・
4.サブレポートにこの配列を渡すための式フィールドを作成します。
WhilePrintingRecords;
StringVar Array 地域データ[1];
5. 新しくテーブルを追加します。
名称 値
1月   1
2月   2
3月   3
4月   4
6.このテーブルを利用してサブレポートを作成します。
7. 4.で作成した式フィールドでサブレポートとリンクします。
8.チャートで表示する値のための式フィールドを作成します。
これを実現するためにどうしても１つテーブルが必要になりました。
テーブルを作らないでよい方法がわかりませんでした。
どうもレコードが存在しないとうまく作れないのがCrystal Reportsの特徴？のようですね。
この式の内容は、メインレポートから渡された配列の内容をこのテーブルの値を
インデックスとして取得します。
WhileReadingRecords;
StringVar 表示データ :={?Pm-@式}[{新テーブル名.値}];
If IsNumeric(表示データ) Then ToNumber(表示データ) Else 0
9.新しいテーブルの月の名称と8.で作成した式フィールドでチャートを作成します。
表示する値に式フィールドを指定して、集計なしとします。
X軸がソートされてしまうので指定順序で1月、2月、順に指定すると期待通りのチャートができます。
レコード件数が増えても地域データの配列と、配列をサブレポートに引き渡す式フィールドを増やすことで可能になると思います。

読み返すといろいろ間違った記述が多くて申し訳ございません。ごめんなさい。
サブレポートに渡す、1レコード分の配列の内容は、10,12,13,16　と各フィールドのデータの間に区切り文字を挿入するように式フィールドを作成します。
サブレポートでは、この配列の内容を読み出すために Split関数で個別に取得する
式フィールドを作成します。
WhileReadingRecords;
StringVar 表示データ :=Split({?Pm-@式},",")[{新テーブル名.値}];
If IsNumeric(表示データ) Then ToNumber(表示データ) Else 0
この式フィールドがチャートの作成に重要な部分になります。  
お試しください。

はじめまして。ケイと申します。

VB6.0+クリスタルレポート9.2で開発を行っております。

ページヘッダに特殊フィールドのページ数(N/M)を
使用してレポートを作成しました。

クリスタルレポートをインストールしていないマシンで
VBのEXEからレポートを実行した場合に、
「page 1 of 〜」のような英語表示になります。

クリスタルレポートがインストールされているマシンでは、
「1/2」のように表示されるのですが・・・。

クリスタルレポートインストールしない場合、
「page 1 of 〜」で表示されるのはしょうが無い事なのでしょうか？

回避策や詳しい原因が分かる方、教えて下さい。

はじめまして、.Net、CrystalReport9で開発しています。
CrystalReportはじめて間もないものでよく参考にさせてもらっています。

お聞きしたいことがあるのですが、レポートで非連結フィールドなどを設定しておいて、
後からコネクションを確立してデータセットに入れたデータを使ってあとから連結する
方法があれば教えていただきたいのですが・・・

よろしくお願いします。

環境　WinXp、．Net2003、クリレポ9
で開発しています。

グリッドで確認してもデータセットにはデータが入っているのでうが、
ビューワには値が表示されません。

Dim daSearch As New OracleDataAdapter(strSql, mCon)
Dim ds  As New DatasetTest

daSearch.Fill(ds, "test")
Me.DataGrid1.SetDataBinding(ds, "test")

Dim rpt As New CR
rpt.SetDataSource(ds)
rptViewer().ReportSource = rpt

ご存知の方がいらしたらどうかご教授下さい。

[OSのVER]:Win2000
[VBのVER]:6.0

クリスタルレポート10にてはじめて開発を行っています。

ＡＤＯ経由でビューワーにレポートを出力しようと試みています。
プレビューはできるのですが、レポートの接続先ＭＤＢを
動的に変更することができず、レポートデザイン時のＭＤＢデータばかり
出力されてしまいます。

実行時に接続先ＭＤＢを変更したいのですが、
下記のモジュールでは不可能でしょうか？

-------------------------------------------
Dim Report As New CrystalReport1
Dim cnn As ADODB.Connection
Dim datcmd As ADODB.Command


' データ接続を開きます。
Set cnn = New ADODB.Connection
strCnn = "Provider=Microsoft.Jet.OLEDB.4.0; Persist Security Info = false; Data Source=" & App.Path & "\aaa.mdb; Mode=Read"
cnn.Open strCnn

' ADO コマンド オブジェクトの新しいインスタンスを作成します。
Set datcmd = New ADODB.Command
Set datcmd.ActiveConnection = cnn
datcmd.CommandText = App.EXEName
datcmd.CommandType = adCmdTable

'データ ソースをレポートに追加します。
Report.Database.AddADOCommand cnn, datcmd

’プレビュ
CRVIEW.ReportSource = Report
CRVIEW.ViewReport
--------------------------------------------------------

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

以下のコードで変更ができた。

Private Sub Command1_Click()

'データベースの変更
Report.Database.Tables(1).Location =  App.Path & "\bbb..mdb"

'プレビュ
CRVIEW.ReportSource = Report
CRVIEW.ViewReport

End Sub

でも、この場合、ADO接続にならないかも ?

初めまして、私もレポート出力で色々検索をしていましたが、ほしい情報が
見つからず、悩んでいたところです
ひらちゃんの　入門編風　を見て、VB.NETで作成してしていますが、
レポート表示で、ログインの画面が出てしまいます。
どこが間違っているか、お分かりになりますでしょうか
ｆｏｒｍ２でレポートを表示しようとしています

    Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As
 　　　　　　　　　　　　　　　　　System.EventArgs) Handles MyBase.Load
        '// まずはデータセットのインスタンスを生成
        Dim dtset As DataSet = New PASDataset
        Dim dttable As DataTable
        'Dim pkcol As DataColumn
        Dim dtrow As DataRow
        Dim cr = New CrystalReport1

        'テーブル宣言
        dttable = dtset.Tables("USERIDTBL")

        'テーブルにレコードを追加する
        dtrow = dttable.NewRow()
        dtrow("USERID") = "1234567"
        dtrow("PASSWORD") = "ABCDEFGHI"
        dttable.Rows.Add(dtrow)
        cr.SetDataSource(dtset)

        dtrow = dttable.NewRow()
        dtrow("USERID") = "9876543"
        dtrow("PASSWORD") = "ZZZZZZZZZ"
        dttable.Rows.Add(dtrow)
        cr.SetDataSource(dtset)

       CrystalReportViewer1.ReportSource = cr

    End Sub

済みません、FORM１でFORM２をShowしているのですが、その後に
データベースのログイン　画面が出ます
ｆｏｒｍ１はボタンのみです
    '********************************************************************************************************
    '* クリスタルレポートの表示を行う                                                                       *
    '********************************************************************************************************
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
 　　　　　　　　　　　　　　　　　　System.EventArgs) Handles Button1.Click
        Dim frm_pp As Form2
        frm_pp = New Form2
        frm_pp.Show()
    End Sub

ぱんださんの要求を満たすかは分かりませんが、新規でレポートを作成するのであれば、このＨＰの【《入門編風》複数行あるデータを横に並べて出力】を参考にしてみたらいかがでしょうか