日付単位で集計した数量1と数量2があります。
ここで迷っているのが、日付単位で集計した数量1と数量2を差し引いた数量3を取得するには、どうすればよろしいでしょうか？
どうかよろしくお願いします。

クリスタルレポートVer：９
ＯＳ：ＸＰ

前回のは、グループ１に対しての集計ですが、
今回お聞きしたいのは、グループ２の集計を行うにはどうすればよろしいのですか？

Sum({xxx.数値1},グループ１)　←　これだと、グループ１に対しての集計
Sum({xxx.数値1}, グループ１, グループ2)　とやると、"ここにはグループ条件を入力できません"というエラーメッセージが出ます。

グループ２を集計する場合は、どうすればよいか教えてください

Kimberly様、ご返事が遅くなり大変申し訳ありませんでした。
適切なご回答を誠にありがとうございました。
小耳で、CR８ではクリスタルレポートオブジェクトの
Formulasメソッドでできるというお話を聞きました。
例）
　CrystalReport.Formulas(0)="text='テスト'"
しかし、CR10ではFormulasメソッドがなくて、未だに困っております。
ご存知でしたらご教授を宜しくお願い致します。

ひで様

>例）
>　CrystalReport.Formulas(0)="text='テスト'

は、OCX(CRYSTL32.OCX)を利用した開発方法で、Crystal Reports 10 ではサポートされておりません。そのため、RDC(CRAXDRT.DLL)を利用する記述になります。また、式フィールドでなく、テキストオブジェクトに文字列を挿入することも可能です。

（記述例）
'式フィールド
Dim i As Integer
For i = 1 To Report.FormulaFields.Count
    If Report.FormulaFields.Item(i).FormulaFieldName = "式フィールド名" Then
        Report.FormulaFields.Item(i).Text = "'" & Text1.Text & "'"
    End If
Next i

'テキストオブジェクト
Dim CRTextField As CRAXDRT.TextObject
Dim i As Integer

'レポートヘッダーの中のテキストオブジェクトの処理
For i = 1 To Report.Sections.Item("RH").ReportObjects.Count
'テキストオブジェクト？
If Report.Sections.Item("RH").ReportObjects.Item(i) = crTextObject Then
　Set CRTextField = Report.Sections.Item("RH").ReportObjects.Item(i)
   If CRTextField.Name = "テキスト1" Then
     CRTextField.SetText Text1.Text
     CRTextField.TextColor = vbBlue
     CRTextField.Font.Size = 10
     CRTextField.Font.Name = "ＭＳ Ｐゴシック"
   End If
End If

.Netに付属しているクリスタルレポートで用紙サイズをＡ３→Ａ４に出来るでしょうか？

はじめまして。
VB6とクリレポ８のOCXを使っています。
windows2003上で実行した際、「レコードの出力」画面でフリーズする
現象が出て困っています。windows2000では問題なかったのですが、
何か解決方法はないでしょうか？
よろしくお願いします。

グループ単位にページとグループ単位の最大ページを
表示するにはどうすればよいのでしょうか？

OS WinXP
VB.net2003
クリスタルレポートVer.9

データフィールドを右クリック→重複データの非表示にチェック入れればいけると思いますが。。。これじゃだめっすか？

はじめまして。

テキストボックス（FieldObject）に、DBから取得したデータを
貼り付けていますが、その項目は事由入力欄で、項目長チェック
くらいの入力制限しか設けてありません。

そこで、文字列が1行を超える場合、自動的に改行するように
なっているのですが、校正機能−−句読点やカッコの終了"）、】、］"が
行頭に来た場合、自動的に前の行の最後につけるか、　または
前の行の最後の文字を次行の先頭につけるように 依頼されました。

オブジェクトのプロパティを変更する程度の修正で、うまくいくような
気もするのですが、ヘルプにもそのような記述がなく、ｗｅｂで検索
しても ヒットする情報がありません。。。

余りにも基本的な質問のため？かもしれません。。。引き継ぎPGで、
前担当者は既に去り、クリレポ未経験のため、困っています。

VBは6.0(sp5)、　クリレポはv9です。

よろしくお願いします。

クリレポを初心者なんですが・・・
宛名ラベルの幅・高さ・縦間隔・横間隔をプログラム上で設定できるんでしょうか？
上記の幅・高さ・縦間隔・横間隔などの情報を元に数種類の宛名ラベルを一つのレポートで制御したいのですが。
どうしていいのか困っています。ご存知の方はご教授をお願い致します。

初めましてです。
いつもこちらでお世話になっている初心者域を出ないものですが、一応改行できる案を書きます。

chr(10) & chr(13)　で、\n と \r を取得できます。＜chr()：ASCIIコードで文字取得

改行を多く使われるのでしたら、

dim vbcrlf    as String
vbcrlf  = chr(10) & chr(13)

としておけば vbcrlf を使って分かりやすく改行できると思いますよ。

他にも策があるかもしれませんが、1つの策として書き込みます・・・。

返信ありがとうございます。
そして返事が遅くなってすみません。。。
Oracle8iとCrystalReport6を使っています。

接続処理の記述はあるのですが。。。
どうやら、「PEStartPrintJob」という関数のところでエラーになっているようです。。
この関数自体がよくわかっていないもので、先に進めません。

やま様

画像データを回転させる機能はないと思いますが・・
画像データ側で回転させて再保存するしかないかと思います。

はじめまして、初めてVB.NETでクリスタルレポートを使用しています。

　入力はＭＤＢのテーブル、
　ＭＤＢ接続は、ＯＤＢＣ接続
　ＡＤＯコネクションです。
　１つのプログラムで２つのレポートを出力しています。
　プレビュー画面は１つにしたのですが

どうしても、レポートの最後のデータがプレビューされません。
ＭＤＢには、ちゃんと抽出されているのですが
データが１件の時は、空白行のみが出力されているのですが
中身がプレビューされません。
もう、１週間も悩んでいます。

どうしてでしょうか？
プレビュー画面を１つにしてはまずいのでしょうか？
それとも、１つのプログラムで２つのレポートを出力しているのが
まずいのでしょうか？

どなたか是非是非教えて下さい。
お願いいたします。

どうしたらよいのでしょうか？？？？？？

******************<プログラム>****************************************
          Dim prv在庫総括 As New F_プレビュー
        Dim prv在庫明細 As New F_プレビュー

        '■印刷確認
                If chk総括.Checked = True Then

                    '■総括プレビュー表示の呼出
                    If funW在庫一覧表総括登録() > 0 Then

                        glng帳票番号 = genm帳票番号.在庫一覧表総括・・・レポート番号指定
                        With prv在庫総括
                            .ShowDialog()
                            .Dispose()
                        End With
                 End If

                If chk明細.Checked = True Then

                    '■明細プレビュー表示の呼出
                    If funW在庫一覧表明細登録() > 0 Then

                        glng帳票番号 = genm帳票番号.在庫一覧表明細・・・レポート番号指定
                        With prv在庫明細
                            .ShowDialog()
                            .Dispose()
                        End With
                        'rpt在庫明細 = Nothing
                  End If
            End If
        End If

********************＜プレビュー画面＞***********************************************:
    Private Sub F_プレビュー_Load(ByVal sender As System.Object, _
　　　　　　　　　　　　　　　　　　　　　ByVal e As System.EventArgs) Handles MyBase.Load

        '■各プレビュー表示（指定されたレポートのプレビュー）
        Me.Cursor = Cursors.WaitCursor

        Select Case glng帳票番号
            Case genm帳票番号.在庫一覧表総括
                Dim rpt在庫総括 As New R_在庫一覧表総括
                crvプレビュー.ReportSource = rpt在庫総括
                crvプレビュー.Refresh()

            Case genm帳票番号.在庫一覧表明細
                Dim rpt在庫明細 As New R_在庫一覧表明細
                crvプレビュー.ReportSource = rpt在庫明細
                crvプレビュー.Refresh()

        End Select
        Me.Cursor = Cursors.Default
******************************************************

友香様

シンプルなレポートにグループを挿入し、「グループごとにまとめて表示」をチェックしても改ページは発生しませんが・・もちらん、グループには、1ページ以上のデータは存在しています。もう少しレポートのデザインの詳細を説明して頂かないと回避方法が見つからないと思います。

すいません、質問が大雑把すぎました。
えっと、デザインですが出納帳のような感じで罫線ありです。
グループキーである項目の出納を日付ごと（行）、区分（列）ごとに印字しています。指定期日範囲分を出力したところでグループ計を印字し、次のグループを印字する。全てのグループが出力されたら総合計を印字して終了です。
このときに、グループごとにまとめて表示をしたいのですが、最初のグループが１ページに収まらないようだと、いきなり改ページしてしまうのです。
こんな説明でわかってもらえましたか？
クリレポのサイトを検索してみましたが、現象は報告されているものの回避方法までは見つけることができませんでした。
よろしくお願いします。

友香様

「グループごとにまとめて表示」をチェックする必要性があるのでしょうか。
このオプションにチェックなしでレポートが期待される表示結果であれば問題ないのではないかと思いました。
経験上、このオプションを利用有無でなく、レポートの表示（印刷）される結果が期待されたものになっているかで判断した方がいいのではないでしょうか。
また、こんな風に表示する場合、どうしたらいいか？という質問の方が解決の早道ではないですか。

ちなみに再度、試しても指摘された現象にはなりませんでした。このレポートをデザインする上で何か情報が不足しているのだと思います。

ヘッダ部グループ番号を出すことはできました。
count( , )を使用しました。

がしかし、新たな問題発生です。
例えば、詳細部の値が１、０と変化する値がある場合、１がx個、０がx個と
カウントすることができません。同ページ内では可能なんですが、詳細部が複数ページ
にまたがるとカウントも初期化されてしまいます。

なにかヒントになるようなことをご存知でしたら、ご教示願います。
よろしくお願いします。

すいません

上記に追加します

ＤＢはＯｒａ８です

抽出データを表示・印刷するという機能を付加したいんです。

重ねてお願い申し上げます。

ご回答ありがとうございます。

只今、別件で立て込んでおりまして
すぐには験せないのですが
また事後報告させていただきます。

最後になりましたが、ご返答が遅くなりましたこと
お詫びいたします。

一ヶ月以上前の話で誠に恐縮ですが。。

ご指南いただいた内容でバッチリでした。
ページ設定の部分までコードをほぼそのまま使わせていただきました。

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

毎度、参考にさせていただいています。
現在、２つのテーブルからデータを取得し、出力する帳票を作っています。

テーブルＡ
　1レコード目：　AAAA, BBBB
　2レコード目：　CCCC, DDDD

テーブルＢ（4番目の「1」「2」はページ番号を指す）
　1レコード目：　GG, 1111, 2222, 1
　2レコード目：  HH, 3333, 4444, 1
  3レコード目：  GG, 5555, 6666, 2
　4レコード目：  HH, 7777, 8888, 2

以下のように出力させたい
＜１ページ目＞
   | AAAA   |  BBBB
====================================
GG | 1111   |  2222
------------------------------------
HH | 3333   |  4444

＜２ページ目＞
   | CCCC   |  DDDD
====================================
GG | 5555   |  6666
------------------------------------
HH | 7777   |  8888

現在、詳細でテーブルＢを連続出力していますが、
次ページに遷移したとき、テーブルＡから取得されたデータが反映されません。

何かよい方法があればご教授ください。
開発環境は、Crystal Report8.0です。
よろしくお願いします。

repさん、コメントありがとう御座います。
サブレポート使ってやってみます。

初投稿です。

CryatalReport8.5で複数ページになるレポート作成しています。

======================
理想構成

【1ページ目】
ページヘッダーa
グループヘッダー
詳細
グループフッダー
ページフッダー

【2ページ以降】
ページヘッダーb
グループヘッダー
詳細
グループフッダー
=====================

上記のような構成にしたくページフッダーの
'非表示ードリルダウン不可'の式エディタにて
「PageNumber > 1」と記入して2ページ以降は
ページフッダーを表示させないようにはできたのですが
2ページ以降に1ページで表示していたページフッダー分の
空白のスペースが出来てしまいます。

=======P1.======
1.ページヘッダーa
2.グループヘッダー
3.詳細
4.詳細
5.詳細
6.詳細
7.詳細
8.ページフッダー
========P2.=======
1.ページヘッダーb
2.詳細
3.詳細
4.詳細
5.詳細
6.詳細
7.詳細
8. --空白--（これはＮＧ 詰めて詳細を入れたい)
========P3.=======
1.ページヘッダーb
2.詳細
3.詳細
4.詳細
5.グループフッダー
6.--空白--(これはＯＫ)
7.--空白--(これはＯＫ)
8.--空白--(これはＯＫ)
==================

空白スペースを詰めて詳細を入れる方法を
ご存知の方ご教授ください
よろしくお願いします。

ありがとうございます。

例を参考に作成したところ、印刷ができました。
助かりました。感謝です！！

これからは帳票の詳細なデザインです。
次のステップへ行くことができました。ありがとうございます。

はじめまして。MARAです。

クリスタルレポートの余白をプログラムから設定したいのですが、
設定する方法が分かりません。
プログラムから設定するにはどうすればよいのでしょうか？
何か方法があれば教えてください。よろしくお願いします。

環境:Microsoft Visual C# .NET
     Crystal Reports for Visual Studio .NET
OS:WinXP+SP2

毎度、参考にさせていただいています。
サブレポートの結果を共有変数に格納して、メインレポートに反映させたいのですがうまくできません。何かよい方法があればご教授ください。
開発環境は、Crystal Report9.0、DB2です。
よろしくお願いします。

自己レスです。
無事解決するころができました。
お騒がせしました。

さかもと様
ありがとうございます。アンインストールはできないんです
会社のシステムの関係上、クリスタルレポートが必要だったらしいので
システム会社の人に勝手にインストールされてしまったようなんです

Kimberly様
ありがとうございます。
チェックをはずしてその時は消えてはくれるのですが
次回エクセルを起動させたりすると、ツールバーが表示されてしまうんです

VBから以下のような手順で値をレポートファイルにセットしています。

　　CrystalReport.Formulas(0) = "date='20050216'"

VBより渡された値をレポートファイル側で条件に指定する方法を
どなたかご存知ありませんか？

よろしくお願いします。

環境:VB6+SP6
OS:WinXP+SP2
クリスタルレポート:VB6バンドルの4.6.1

ひろみ様

CrystalReport.Formulas(0) = "date='20050216'" の date は、式フィールドの名称ではないでしょうか。レポートの中に式フィールドで同一名称が存在すれば、その内容を書き換えたことになると思います。
この式フィールドをレポートに挿入するあるいは、レコード選択式に利用することができると思います。

複数レポートを１つのPDFファイルに出力することはできないと思いますが・・
１つのレポートを１つのPDFファイルに出力し、VBコードで複数のPDFファイルを繋ぎ合わせる以外ないと思います。試したことがないのでうまくいくかわかりません。