質問をすることでしか得られない、回答やアドバイスがある。

15分調べてもわからないことは、質問しよう!

ただいまの
回答率

87.58%

ACCESSのレポートの改行した空白部分に印刷したい

解決済

回答 2

投稿

  • 評価
  • クリップ 0
  • VIEW 568

こんにちは。
ACCESSでレポートで、箱に貼るシールを出力しています。
VBAを使いグループ設定で改行するようになっています。
印刷は、A4用紙に9枚印字されます。
イメージ説明

グループ設定で改行している関係で、図の①のみ印刷され、②③は空白となり、
次グループが④から始まることがあります。
また、最終グループの最終レコードが①で終われば、②~⑨は全て白紙となります。
この現象は、そのように指示しているのですから、当たり前なのですが、
空白が勿体ないと感じています。

例えばの話ですが、最終ページの②~⑨に会社のロゴ(jpeg)を印刷したい場合に、
何か方法はありますでしょうかか?
最終レコードの後になりますので、VBAにどのように書けばよいのか、さっぱりわかりません。
ヒントでも良いので、教えていただけないでしょうか?

宜しくお願いします。

  • 気になる質問をクリップする

    クリップした質問は、後からいつでもマイページで確認できます。

    またクリップした質問に回答があった際、通知やメールを受け取ることができます。

    クリップを取り消します

  • 良い質問の評価を上げる

    以下のような質問は評価を上げましょう

    • 質問内容が明確
    • 自分も答えを知りたい
    • 質問者以外のユーザにも役立つ

    評価が高い質問は、TOPページの「注目」タブのフィードに表示されやすくなります。

    質問の評価を上げたことを取り消します

  • 評価を下げられる数の上限に達しました

    評価を下げることができません

    • 1日5回まで評価を下げられます
    • 1日に1ユーザに対して2回まで評価を下げられます

    質問の評価を下げる

    teratailでは下記のような質問を「具体的に困っていることがない質問」、「サイトポリシーに違反する質問」と定義し、推奨していません。

    • プログラミングに関係のない質問
    • やってほしいことだけを記載した丸投げの質問
    • 問題・課題が含まれていない質問
    • 意図的に内容が抹消された質問
    • 過去に投稿した質問と同じ内容の質問
    • 広告と受け取られるような投稿

    評価が下がると、TOPページの「アクティブ」「注目」タブのフィードに表示されにくくなります。

    質問の評価を下げたことを取り消します

    この機能は開放されていません

    評価を下げる条件を満たしてません

    評価を下げる理由を選択してください

    詳細な説明はこちら

    上記に当てはまらず、質問内容が明確になっていない質問には「情報の追加・修正依頼」機能からコメントをしてください。

    質問の評価を下げる機能の利用条件

    この機能を利用するためには、以下の事項を行う必要があります。

回答 2

check解決した方法

0

すいません。
空白行に罫線が引ける、という記事を見つけました。
もう少し勉強してみます。
その上で、どうしても出来ない場合は、改めて質問させていただきます。
閲覧いただいた方、ありがとうございました。

投稿

  • 回答の評価を上げる

    以下のような回答は評価を上げましょう

    • 正しい回答
    • わかりやすい回答
    • ためになる回答

    評価が高い回答ほどページの上位に表示されます。

  • 回答の評価を下げる

    下記のような回答は推奨されていません。

    • 間違っている回答
    • 質問の回答になっていない投稿
    • スパムや攻撃的な表現を用いた投稿

    評価を下げる際はその理由を明確に伝え、適切な回答に修正してもらいましょう。

  • 2020/10/22 22:06

    キャンセル

  • 2020/10/22 23:35

    あらー、回答を書いているうちに解決済みになっちゃいましたか。

    キャンセル

0

案1

レコードがない場合も用紙の最後まで罫線を出力する - hatena chips

上記のサンプルの応用

概要

ページヘッダーにロゴを配置。
その上に詳細セクションを重ねて出力。

詳細設定

ページヘッダーに、イメージコントロールにロゴを表示させて9つ配置します。
レポートの幅は用紙の幅から左右余白を引いた幅にします。
ページヘッダーの高さは用紙の高さから上下余白を引いた高さにします。
どちらも計算値より少し小さめにしておいてください。


[ページ設定]-[レイアウト]の設定
行列設定
列数 3
行間隔 0cm
列間隔 0cm

サイズ
幅 (用紙幅 - 左右余白)÷ 3
高さ(用紙高 - 上下余白)÷ 3

実寸 チェックはずす


詳細セクション
背景色 #FEFEFE (白だと透過してしまうので限りなく白に近いグレー)

ページヘッダーのフォーマット時のイベントプロシージャに下記のコードを記述します。

Private Sub ページヘッダーセクション_Format(Cancel As Integer, FormatCount As Integer)
    Me.MoveLayout = False
End Sub

以上で、残りの余った部分にロゴが表示されます。
この方法のメリットは、前回の質問 の右側の列の余白の部分にもロゴが表示される点です。
これで用事が無駄なく使えます。

案2

レコードがない場合も用紙の最後まで罫線を出力する NextRecord版 - hatena chips
上記のページの応用

概要

レポートフッターにロゴ画像を配置して、Me.NextRecord = False で用紙の最後まで繰り返し出力する。

詳細設定

グループ化と並べ替えで、グループの追加 を追加して、グループ化は式を選択して、式を =1 という固定値にする。(固定値なら1でなくてもOK)
ヘッダーセクションなし
フッターセクション付き

グループフッターの高さは、詳細セクションの高さと同じにする。
イメージコントロールにロゴ画像を表示させて配置する。

Private Sub グループフッター1_Format(Cancel As Integer, FormatCount As Integer)
    If Me.Left < 7000 Or Me.Top < 9000 Then
        Me.NextRecord = False
    End If
End Sub

7000 と 9000 は前回の質問と同様に詳細セクションのフォーマット時で、
ebug.Print Me.Left, Me.Top
と記述してプレビューさせて表示させる数値を参考にして決めてください。
上記の数値でたいていいいと思います。

こちらの方法は、右側の列の余白の部分にはロゴは表示されないですが、
表示させる場合は、詳細セクションにロゴ画像を配置して、可視を切り替えて余白部のみ表示させるようにすれば可能です。

投稿

  • 回答の評価を上げる

    以下のような回答は評価を上げましょう

    • 正しい回答
    • わかりやすい回答
    • ためになる回答

    評価が高い回答ほどページの上位に表示されます。

  • 回答の評価を下げる

    下記のような回答は推奨されていません。

    • 間違っている回答
    • 質問の回答になっていない投稿
    • スパムや攻撃的な表現を用いた投稿

    評価を下げる際はその理由を明確に伝え、適切な回答に修正してもらいましょう。

15分調べてもわからないことは、teratailで質問しよう!

  • ただいまの回答率 87.58%
  • 質問をまとめることで、思考を整理して素早く解決
  • テンプレート機能で、簡単に質問をまとめられる

関連した質問

同じタグがついた質問を見る