ACCESS2007でラベル印刷を印刷をしようとしています。
ページ設定ができないランタイム環境でも使えるようにラベルの印字位置を設定するVBAを考えています。
フォームに設定値を入力する「上余白」、「左余白」、「ラベル幅」、「ラベル高さ」という非連結のテキストボックスを4個作りました。
ラベル印刷用にレポートを作成し、「レポートA」としています。
レポートAにはページ設定で、基本となるラベルのレイアウトなどを設定しています。
フォームに「適用」というボタンを配置し、クリック時のイベントに以下のようなコードを書き込みました。
Private Sub 適用_Click()
DoCmd.OpenReport ("ラベルA"), acViewDesign, , , acHidden
With Reports(ラベルA).Printer
.DefaultSize = False
.TopMargin = Me.上余白.Value
.LeftMargin = Me.左余白.Value
.ItemSizeWidth = Me.ラベル幅.Value
.ItemSizeHeight = Me.ラベル高さ.Value
End With
DoCmd.Close acReport, ("ラベルA"), acSaveYes
End Sub
動作させるとエラーは出ないのですが、設定値がちっとも反映されません。
何が間違っているのでしょうか?
No.1ベストアンサー
- 回答日時:
ランタイムには、結局いまだ手を出せていないのですが(汗)
> 何が間違っているのでしょうか?
ランタイムではデザインビューでは開けない、ということだった
かと思います。
http://www.naboki.net/access/heaven/heaven-01.html
ただ、レポートの「読み込み時」イベントであれば、プリンターの
(一時的な?)設定は可能と思われますので(・・・レポートも
自分ではほとんど使わないので未確認ですが・・・(汗))、
1)フォームの『適用』ボタンで、余白やラベルサイズをテーブルに
記録
2)レポートの「読み込み時」イベントで、当該レポートを開く度に、
そのテーブルに記録された値をDLookupで取得するなどして、
各サイズに適用
という手順を踏めば、実質、「レポートにプリンターの設定を記録」
したのと同様の使い勝手にできる・・・のではないでしょうか。
・・・以上、未確認のアイデア提示ばかりですが(汗)、参考までに。
ご回答ありがとうございます。
質問してから、全然レスが付かなかったもので、自己解決してしまいました。
ご指摘の通り、テーブルを一個余分に作り、必要な値を記録して、レポート読み込み時イベントで反映させる方式にしました。
ちなみに、結構勘違いされる場合が多いようですが、ランタイムでデザインビューを開く事は可能です。
MDEとかだと開けませんが・・・
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- プリンタ・スキャナー Wordで作った宛名ラベルを印刷しようと思って、プリンターの上のところにある、手差しトレイ的なところ 3 2022/11/17 18:40
- プリンタ・スキャナー プラザーのプリンター DCP-J926N-W/B を使用して 100均などで売られている マグネット 1 2022/12/01 14:40
- Excel(エクセル) エクセルの散布図で新たに入力した値のデータラベルが空欄になる現象 1 2022/04/26 09:31
- その他(買い物・ショッピング) 商品にラベルを貼って出荷するまでのの手順にについて 2 2022/09/29 15:26
- Visual Basic(VBA) Accessフォームで全レコードを指定のExcelのセルへ転送し印刷する方法について 2 2022/09/08 18:23
- その他(ネットショッピング・通販・ECサイト) アマゾンの返品について 返送先住所の所に、返品リクエスト日から5日以内に、出品者から返品用ラベルが提 1 2023/08/23 00:27
- 結婚式・披露宴 結婚式の席次表と席札を印刷するおすすめのところ教えて下さい。 結婚式で使用する席次表(ワード)と席札 1 2022/08/18 11:41
- Wi-Fi・無線LAN ソフトバンクエアー、こ、故障でしょうか?? 5 2022/05/08 21:53
- プリンタ・スキャナー レーザープリンターでラベル印刷 3 2023/08/12 10:15
- プリンタ・スキャナー 封筒印刷 差出人印刷ずれる 4 2022/05/01 10:12
このQ&Aを見た人はこんなQ&Aも見ています
-
賃貸で可能な古民家風レトロな部屋作りのコツ!改めて知る畳の高い機能性と魅力も紹介
畳の部屋を雰囲気のよい部屋に仕上げたい!賃貸住宅でもできる古民家風のレトロな部屋作りのコツを伺った。
-
Accessで文字列の長さによって、フィールドの幅を自動で合わせる方法
Excel(エクセル)
-
Accessレポートの詳細の高さ(VBA)
Excel(エクセル)
-
アクセスのレポート印刷がうまくいかない
Access(アクセス)
-
-
4
Accessで作成したデータの、宛名シールへの印字について
その他(データベース)
-
5
Accessの画面更新を一時的に停止する方法。
その他(データベース)
-
6
Access サブフォームでの選択行の取得
その他(データベース)
-
7
Accessのレポート上のテキストボックス値を設定したい
その他(データベース)
-
8
アクセスで数値型のフィールドにNullをいれたい
その他(データベース)
-
9
Access コンボボックスの値をクリアしたい。
PowerPoint(パワーポイント)
-
10
アクセスのレポートにおける印刷時拡張について教えて下さい。
Access(アクセス)
-
11
Access レポートの文字間を設定したい
PowerPoint(パワーポイント)
-
12
Access テキストボックスの文字色
Access(アクセス)
-
13
Accessでテーブルの値をテキストボックスに代入するには?
Access(アクセス)
-
14
アクセスのレポートを印刷すると白紙がでてきます。改ページついて教えてください。
その他(データベース)
-
15
アクセスのラベルサイズ設定で
Access(アクセス)
-
16
アクセスのフォームで、文字を中央揃えにしたい
Access(アクセス)
-
17
Accessでブレークポイントを設定してないのに一時停止してしまう
その他(データベース)
-
18
フォームを開くときに、コンボボックスの値を選択(アクセスVBA)
Visual Basic(VBA)
-
19
Accessのフォームにて、詳細行のボタンを行の内容により、表示/非表
その他(Microsoft Office)
-
20
アクセスでレポート印刷がずれる
Access(アクセス)
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
ワードかエクセルで、KOKU...
-
エクセル宛名ラベルが重複する
-
一点一葉とはどんな意味ですか?
-
インデックスに印刷する方法
-
フラットファイルの背表紙部分...
-
ラベルの差込印刷で2ページ目以...
-
SDカード用のラベルシール
-
筆王
-
ACCESSでラベルの余白と高さ、...
-
wordでラベル差込印刷時に右端...
-
CDやDVDの表面へのラベル...
-
Excel VBAのフォーム_ラベルの...
-
宛名シールの余りについて
-
エクセルでマイタックラベルへ...
-
宛名ラベル 2枚目以降が表示、...
-
直接CD-Rにラベル印字したあと...
-
ワード差し込み印刷:作成した...
-
趣味でお酒のオリジナルラベル...
-
エーワンのラベルシール品番722...
-
一太郎10でA5サイズの?宛...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
ワードかエクセルで、KOKU...
-
一点一葉とはどんな意味ですか?
-
エクセル宛名ラベルが重複する
-
ラベルの差込印刷で2ページ目以...
-
インデックスに印刷する方法
-
ワード差し込み印刷:作成した...
-
CDやDVDの表面へのラベル...
-
筆王
-
フラットファイルの背表紙部分...
-
宛名ラベル 2枚目以降が表示、...
-
ピボットテーブルのΣ値のタイト...
-
DVDのタイトルを変更したい
-
エクセルでマイタックラベルへ...
-
Wordで作った宛名ラベルを印刷...
-
ワード差込印刷 縦書き・横書き...
-
ラベル屋さんでひとつひとつの...
-
Excel VBAのフォーム_ラベルの...
-
ワードで宛名ラベルのフォント...
-
CDラベル剥がれて透明CDに...
-
Accessのレポートで複数列の見...
おすすめ情報