アクセス2010ラベル印刷の高さ調整をページ設定で

質問

アクセス2010、2013　ラベル印刷

ページ設定＞レイアウト＞高さ

高さの値を変えてもラベルの配置に何の変化もありません。
（幅の方は値を変えると配置が変わります。）

ラベル用紙は各社からたくさんの種類が出ていて同じコマ数でも微妙にサイズが違います。（ラベル間の隙間など）
詳細セクションの高さをだいたいの高さにしておいて、メーカーの違うラベル用紙を使用するときは、

DoCmd.OpenReport "ラベル印刷" , acViewPreview
DoCmd.RunCommand acCmdPageSetup

として微妙な配置位置を調整したいのですが。

ページ設定で高さの調整はできないのでしょうか？

回答No.2

hatena1989 · ベストアンサー

> ページ設定＞レイアウトタブ＞サイズ「高さ」
> この「高さ」に入力された数値を、ページ設定ウインドウを閉じた直後に取得する方法があればよいのですが。

Printer.ItemSizeHeight で取得できるようです。

Private Sub レポートヘッダー_Format(Cancel As Integer, FormatCount As Integer)
Me.詳細.Height = Me.Printer.ItemSizeHeight
End Sub

これで、レウアウトの高さの設定が反映されるのを確認しました。

しかし、こんなことをしないと、反映されない設定ってなんなんでしょうね。（バグ？）

お礼

＞Printer.ItemSizeHeight
これだったんですね。

こちらでも動作確認、正常に動きました。

良かったですぅ。

MSは決して「バグ」とは言わないでしょう。
「仕様」ですって！！

「hatena1989」様ありがとうございます。

回答No.1

hatena1989

確認してみました。
確かに、レイアウトの「高さ」を変更しても反映されませんね。

デザインビューではセクションの高さを最小にしておいて、
レイアウトの「行間隔」で微調整してはどうでしょうか。

補足

dim takasa as long

DoCmd.OpenReport レポート, acViewPreview
DoCmd.RunCommand acCmdPageSetup
takasa=InputBox("高さを入力", "ラベルの高さ", 10)
DoCmd.Close acReport, レポート
DoCmd.OpenReport レポート, acViewPreview

’----------------レポート側
Private Sub 詳細_Format(Cancel As Integer, FormatCount As Integer)
Me.詳細.Height = 567 * takasa
End Sub

ページ設定が完了直後に、ラベルの高さ(takasa)を入力する。
一旦閉じて、再び開く時の詳細フォーマットイベントで、ラベルの高さを設定。

これでまずはいけることが分かりました。
でもスマートでないですね。

＞レイアウトの「行間隔」で微調整してはどうでしょうか。
でもいけそうですが・・・・

ページ設定＞レイアウトタブ＞サイズ「高さ」
この「高さ」に入力された数値を、ページ設定ウインドウを閉じた直後に取得する方法があればよいのですが。