はじめまして、タグチといいます。
2004/09/27　の『フジ』さんの投稿と同じなのですが、

開発環境とテスト環境で印刷する用紙設定が違ってくるという現象が発生しています。
開発環境ではデザイン時に右クリック→デザイン→プリンタの設定で用紙サイズを設定し
デバッグでは設定したサイズでプレビュー、印刷ができます。
しかし、テスト環境へインストールすると用紙サイズがまったく違ってプレビュー、印刷されます。ロジックでは用紙サイズは設定していません。
対策方法などご存知の方はご教授ください。

用紙は『連続紙　たて4　1/2インチ』です。
ロジックで用紙設定出来ませんでしょうか?

はじめまして、私はクリスタルレポートを使うのは初めてなのですが、使っていて気になることがあったので質問します。クリスタルレポートには一ミリごとに目盛がついていて大変わかりやすく線オブジェクトなどミリ単位で配置できるのはいいのですが、そこに配置するフィールドは一ミリ単位で配置することはできないのでしょうか？

詳しく説明します。ミリ単位の帳票を作る必要があって、線オブジェクトやボックスオブジェクトでかなり細かい枠を作ったのですが、それにうまく当てはまるフィールドが書式の変更などで調整してもできません。書式の変更を使うよりさらに細かく調整する方法はあるのでしょうか？

始めまして。
　.NET、クリスタルレポート、SQLServerで開発が始まりました。
　.NETは今回初めてです。さっぱりわからなくて困ってます。
　ODBCを使わず、INIファイルを取得しServerにログインし、
　DBからデータを取得しクリスタルレポートでプレビューしろとの事です。

　上位プログラムでWORKファイルを作成し、ODBC経由でサクッと
　作表するつもりだったのにー！！！

　どうすればいいんだろう？？？INIファイル取得は共通関数があるようなのですが
　どうすればいいか教えてください！

ご回答、ありがとうございます。
やってみます！

猿町さん、ありがとうございました。
ＯＫでした。感謝します。

解決しました。お騒がせして申し訳ないです。

まずはグリッドを調節してみてください。グリッドにあわせて調整してくれるのでレイアウトは割としやすいと思われますが・・。グリッドが邪魔なのであれば　”グリッドにあわせる”のチェックをはずせばいいと思います。

有り難うございました。グリッドのチェックをはずしたところ
微調整が出来ました。「デフォルト」というところにグリッド
調整があったので発見できませんでした。
作業もとてもはかどるようになりました。
本当に有り難うございます。

僕も始めたばかりなんですよ。この掲示板にはかなり助けられています。お互い頑張りましょう。

むらちゃん様、

最初の質問のレポート、ページ、グループ、詳細等と上記の帳票レイアウトの関係
が見えないため、上記の帳票レイアウトから考えられる方法で回答します。
例えば、本体、追加、合計が同一グループ（枝番フィールド）でグループ挿入できる
と仮定して、枝番でグループを挿入することで罫線を挿入することでできるのではないでしょうか。
そのときに、以下の式フィールドでグループを挿入します。
WhileReadingRecords;
if {xxx.枝番} = 0 then
"本体"
else if {xxx.枝番} >= 1 and {xxx.枝番} <= 99 then
"追加"
else if
{xxx.枝番} = -1 then
"合計"
その結果、枝番は３つに分類でき、さらにグループの変更オプションから
指定順序で本体、追加、合計の順で設定します。
このグループヘッダーにもう一つセッションを下に挿入します。
グループヘッダーaに罫線を挿入します。
グループヘッダーbに以下の式を挿入します。
if {@上記の式フィールド名}= "本体" then "本 　体"
else if {@上記の式フィールド名}= "追加" then "追　加"
else if {@上記の式フィールド名}= "合計" then "合　計"
この式フィールドの書式設定で複数行に出力のオプションをチェックします。
また、横幅を1文字表示できるサイズに調整します。
グループヘッダーbで続くセクションをアンダーレイのオプションをチェックします。
次に、詳細にもセクションを下に挿入します。詳細aに表示するフィールドを挿入し、
詳細bに罫線を挿入します。その結果、以下のようなデザインイメージになります。
(枝番でグループ)
グループヘッダーa　------------------------------------------
グループヘッダーb  式フィールド（本体、追加、合計の表示）
詳細a　　　　　　　  　　　表示するフィールド
詳細b　　　　　　　　　  　------------------------------------
グループフッター     ----------------------------------------
このままでは、詳細の罫線とグループフッターの罫線がダブって表示されるところがあります。
そこで、以下の式を詳細bの非表示のオプションの条件式に挿入します。
OnLastRecord  or　{@グループヘッダーbに挿入した式フィールド名}<>next({@グループヘッダーbに挿入した式フィールド名})

ページヘッダー、フッター、他のグループ、改ページの条件、改ページの条件等に
ついては考慮していませんが、上記の帳票レイアウトに近い表示ができると思います。

もり様、

サブレポートにグループヘッダとフッタを挿入して、そのグループの表示が２ページ以上に跨る場合、グループヘッダはページ毎に表示されるがグループフッタは最後のページしか表示されないという問題でしょうか。
ページ毎にグループヘッダを出力のオプションを利用しているわけですね。
このオプションを設定してもグループフッタは、グループヘッダのようにページ毎に表示することはできません。
同一グループ内の最後のデータを表示した後にグループフッタを表示することになります。
そこで、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
この式フィールドがチャートの作成に重要な部分になります。  
お試しください。