お世話になっております。
レポートについての質問ですが、
複数の印刷順で同じ出力データを印刷したいのですが、
現在、同じレポートをコピーして、
並べ替え/グループ化の設定をそれぞれ設定した複数のレポートを作成し、
指定された印刷順の設定のしてあるレポートを印刷するようにプログラムしています。
レポートのレイアウトを変更した場合、
コピーしてあるそれぞれのレポートを修正しなければならず不便です。
フォームのようにOrderBy等の設定で並べ替えが変更できるように、
レポートもVBAから印刷順序を変更できるようにしたいのですが、教えていただけないでしょうか?
よろしくお願いいたします。
No.8ベストアンサー
- 回答日時:
s_husky です。
コピーミスでした。
Private Sub コマンド_在庫一覧プレビュー_Click()
DoCmd.OpenReport "在庫一覧", acViewDesign, , , acHidden
With Reports("在庫一覧")
.GroupLevel(0).Properties(0) = "小枝" ' Field名,式
.GroupLevel(0).SortOrder = False
.GroupLevel(0).GroupOn = 1
.GroupLevel(0).GroupInterval = 1
.GroupLevel(0).KeepTogether = 2
End With
DoCmd.Close acReport, "在庫一覧", acSaveYes
DoCmd.OpenReport "在庫一覧", acViewPreview
End Sub
No.7
- 回答日時:
s_huskyです。
Private Sub コマンド_在庫一覧プレビュー_Click()
DoCmd.OpenReport "在庫一覧", acViewDesign, , , acHidden
With
Reports("在庫一覧").GroupLevel(0).Properties(0) = "小枝" ' Field名,式
Reports("在庫一覧").GroupLevel(0).SortOrder = False
Reports("在庫一覧").GroupLevel(0).GroupOn = 1
Reports("在庫一覧").GroupLevel(0).GroupInterval = 1
Reports("在庫一覧").GroupLevel(0).KeepTogether = 2
DoCmd.Close acReport, "在庫一覧", acSaveYes
DoCmd.OpenReport "在庫一覧", acViewPreview
End Sub
※一応、テスト済みです。
No.6
- 回答日時:
印刷順に並べたクエリとレポートを2個ずつ作るのが一番早いかな。
いったんテーブルに書き出してもよいけれど、結局改ページも書き直さなくてはいけないし。
ありがとうございます。
ただ、皆さんの回答は、クエリ等による並べ替えで、私のように、レポートのデザインにある機能「並べ替え/グループ化」で並べ替え・グループ化・同一ページ印刷(改ページ制御)等を設定していないようです。
「並べ替え/グループ化」を設定すると、クエリ等のソート順は無視され、「並べ替え/グループ化」の設定内容が優先されます。
クエリだけでは改ページを制御できません。
ちなみに私の場合、グループヘッダーの改ページプロパティに「カレントセクションの後」を設定しています。
(グループヘッダに何もオブジェクトをおかないで「カレントセクションの後」を設定すると、そのグループが印刷された後、改ページが発生します。最初グループフッタ(下の方)に設定していたのですが、そうすると必ず最後に白紙のページが1ページ印刷されてしまいします。)
No.5
- 回答日時:
s_husky です。
別の質問への答えです。
ヒントにはなると思います。
Private Sub コマンド_在庫一覧プレビュー_Click()
DoCmd.OpenReport "在庫一覧", acViewDesign, , , acHidden
Reports("在庫一覧").RecordSource = "Select * from 在庫一覧 Order by 小枝"
DoCmd.Close acReport, "在庫一覧", acSaveYes
DoCmd.OpenReport "在庫一覧", acViewPreview
End Sub
一度、デザインでレポートを開き、
(1)レコードソースを指定する。
又は
(2)Order By を指定するか。
その後、レポートを開く。
これで、ソート順位を制御できます。
ありがとうございます。
私がイメージしている方法に近いですが、「並べ替え/グループ化」を設定して、保存終了した後、レポートを開きたいのですが。
よろしくお願いいたします。
No.2
- 回答日時:
少し、確認です。
レポートA
レポートB
レポートC
レポートD
があって、
strReportList="レポートD,レポートB,レポートA,レポートC"
という順序を既定した変数を用意し、
strRports()=Split(strReportList, ",")
N=UBound(strRepots())
For I=0 To N
レポートプリントコード
NExt I
のレポートプリントコードの書き方に関する質問でしょうか?
換言すれば、Reportオブジェクトの操作コードの書き方を知りたいのでしょうか?
この回答への補足
お世話様です。
ある顧客データがあり、会場コードと地区コードがあると考えてください。
フォーム上では、会場コード順・地区コード順のボタンがあり、どちらも同じデータを印刷しますが、印刷順序が違います。
しかも、並び順が違うだけでなく、印刷時に会場コード・地区コードが変わると改ページするように設定しています。
例 101 横浜会場
1 高橋
2 井上
3 佐々木
改ページ
102 川崎会場
1 佐藤
2 阿部
のような感じです。
改ページを設定する関係上、「並べ替え/グループ化」で会場コード・地区コードでそれぞれグループ化を設定したレポートを作成しています。
(単に印刷順序だけならいいのですが)
お分かりいただけるでしょうか?
よろしくお願いいたします。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) 【Excel】複数シートがあるエクセルデータで片面印刷と両面印刷設定がシートごとに入 1 2023/03/10 15:25
- Excel(エクセル) エクセルシートのPDFでの保存 2 2022/09/06 13:05
- その他(データベース) Accessフォームからパラメーターで表示したレコードを指定のExcelのセルへ転送する方法について 2 2022/08/22 18:04
- Excel(エクセル) エクセルのマクロで複数シートを両面印刷するには? 2 2022/12/08 23:23
- PDF PDF印刷後に「変更を保存しますか?」と訊かれる 2 2023/04/28 17:35
- Excel(エクセル) エクセルVBAで複数のシート印刷設定 1 2022/09/07 12:03
- Excel(エクセル) エクセルでキーリストからデータを取り出して1枚1枚印刷するには? 11 2022/06/27 09:52
- Excel(エクセル) Excelであるシートだけ印刷できない 1 2022/04/01 09:04
- Excel(エクセル) エクセル2013「次のページ数に合わせて印刷」が小さすぎる 9 2023/03/28 10:18
- Word(ワード) Wordでの印刷サイズについて A4の原稿をB5サイズで出力したいとき、 印刷から用紙サイズの指定か 4 2022/04/30 09:51
このQ&Aを見た人はこんなQ&Aも見ています
-
プロが教えるわが家の防犯対策術!
ホームセキュリティのプロが、家庭の防犯対策を真剣に考える 2組のご夫婦へ実際の防犯対策術をご紹介!どうすれば家と家族を守れるのかを教えます!
-
Accessのレポートで「並べ替え/グループ化」の設定をVBAで行いたい
その他(データベース)
-
Access レポートを開く時、2つの条件で昇順で並び替え
Access(アクセス)
-
Accessでレポートで印刷する際に自分で希望した順序に印刷出来ますか?
PowerPoint(パワーポイント)
-
-
4
アクセスVBAのMe!と[ ]
Access(アクセス)
-
5
Access サブフォームでの選択行の取得
その他(データベース)
-
6
Accessレポートで特定条件で改ページしたい
PowerPoint(パワーポイント)
-
7
(ACCESS)並び替えをしないでグループ化した
Access(アクセス)
-
8
レコードを保存するコード アクセスvba
その他(Microsoft Office)
-
9
SQL文で パラメータが少なすぎます エラー
Access(アクセス)
-
10
Accessで文字列の長さによって、フィールドの幅を自動で合わせる方法
Excel(エクセル)
-
11
Accessフォームを開くときに決まった順番で表示
Access(アクセス)
-
12
アクセスのコンボボックスの重複をなくすには?
Access(アクセス)
-
13
アクセスで入力したデータの順番が変わってしまいます
その他(ビジネス・キャリア)
-
14
【ACCESS】フォーム名/コントロール名を文字列型変数で指定するには
Access(アクセス)
-
15
ACCESS テキストボックスを隙間なくきれいに並べたい
Access(アクセス)
-
16
Accessでテーブルの値をテキストボックスに代入するには?
Access(アクセス)
-
17
フォームを開くときに、コンボボックスの値を選択(アクセスVBA)
Visual Basic(VBA)
-
18
アクセスのレポート印刷がうまくいかない
Access(アクセス)
-
19
access2003 レポートを中央に印刷するには?
Excel(エクセル)
-
20
Accessのレポート上のテキストボックス値を設定したい
その他(データベース)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
印刷ダイアログを表示させない方法
-
PDFファイルを印刷し終了するには
-
vbaでPDFファイルが印刷されない
-
webページの印刷制限について
-
VB.NETで罫線付きのデータを印...
-
印刷要求順番と印刷出力順番が...
-
クリレポのプリンタ設定について
-
プリンターを指定して印刷するには
-
イベントプロシージャ 印刷が...
-
VBscriptでPDFファイルを直接印...
-
スプーラを使わずに印刷する
-
両面印刷設定方法について
-
VBSでExcelファイル印刷時のプ...
-
VBAにて指定したセルをプルダウ...
-
VB6からのエクセルの印刷品...
-
印刷ダイアログを表示させたくない
-
~の文字化けについて
-
ActiveReportsを使って[印刷ダ...
-
URLを指定して直接印刷って出来...
-
ACCESSで設定した帳票の用紙サ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
印刷ダイアログを表示させない方法
-
印刷要求順番と印刷出力順番が...
-
プリンターを指定して印刷するには
-
vbaでPDFファイルが印刷されない
-
VBAで不特定枚数印刷をしたいで...
-
VB.NET+ActiveReports で印刷...
-
ACCESSで設定した帳票の用紙サ...
-
PHPでPDFファイルの直接印刷
-
PDFファイルを印刷し終了するには
-
印刷ダイアログを表示させたくない
-
VBからプリンタに出力する時に...
-
EXCELファイルの複数ダウンロー...
-
webページの印刷制限について
-
VBscriptでPDFファイルを直接印...
-
A4の2枚をA3の1枚にする編集方法?
-
VBSでExcelファイル印刷時のプ...
-
リンク先のページを印刷したい
-
2回以上PDFをコピーや印刷がで...
-
VBAにて指定したセルをプルダウ...
-
ActiveReportsを使って[印刷ダ...
おすすめ情報