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(アクセス)
-
Accessレポートの詳細の高さ(VBA)
Excel(エクセル)
-
-
4
Access サブフォームでの選択行の取得
その他(データベース)
-
5
Accessの画面更新を一時的に停止する方法。
その他(データベース)
-
6
ACCESSフォーム入力後の確定
Access(アクセス)
-
7
Access テキストボックスの文字色
Access(アクセス)
-
8
アクセスで数値型のフィールドにNullをいれたい
その他(データベース)
-
9
Accessで作成したデータの、宛名シールへの印字について
その他(データベース)
-
10
Access コンボボックスの値をクリアしたい。
PowerPoint(パワーポイント)
-
11
アクセスのレポートを印刷すると白紙がでてきます。改ページついて教えてください。
その他(データベース)
-
12
Access レポートの文字間を設定したい
PowerPoint(パワーポイント)
-
13
アクセスでテキストボックスの値が空白だったら
Access(アクセス)
-
14
2つ目のレコードの値を取得するには?
Access(アクセス)
-
15
Accessでブレークポイントを設定してないのに一時停止してしまう
その他(データベース)
-
16
Accessのフォーム上にレコード数とレコード番号の表示
その他(データベース)
-
17
Accessのレポート上のテキストボックス値を設定したい
その他(データベース)
-
18
AccessVBAで作成したExcelファイルを削除する方法は?
Visual Basic(VBA)
-
19
アクセスのフォームで、文字を中央揃えにしたい
Access(アクセス)
-
20
フォームを開くときに、コンボボックスの値を選択(アクセスVBA)
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
ワードかエクセルで、KOKU...
-
一点一葉とはどんな意味ですか?
-
エクセル宛名ラベルが重複する
-
ラベルの差込印刷で2ページ目以...
-
CDやDVDの表面へのラベル...
-
フラットファイルの背表紙部分...
-
ラベル屋さんでひとつひとつの...
-
宛名ラベル 2枚目以降が表示、...
-
DVDのタイトルを変更したい
-
CSVデータをIllustratorに自...
-
(^.^) CD-ROMの表に、ラ...
-
CDやDVDのラベルやジャケッ...
-
Excel VBAのフォーム_ラベルの...
-
Excel2010 グラフ内のデータラ...
-
ワード(エクセル)で名札を作成
-
エレコムの宛名ラベル全部の氏...
-
CDラベル剥がれて透明CDに...
-
宛名ラベルの「〒」「様」表示...
-
インデックスに印刷する方法
-
HPB14別ファイルのラベルへのリ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
ワードかエクセルで、KOKU...
-
一点一葉とはどんな意味ですか?
-
エクセル宛名ラベルが重複する
-
インデックスに印刷する方法
-
ラベルの差込印刷で2ページ目以...
-
フラットファイルの背表紙部分...
-
エクセルでマイタックラベルへ...
-
ピボットテーブルのΣ値のタイト...
-
筆王
-
ワード差込印刷 縦書き・横書き...
-
DVDのタイトルを変更したい
-
ワード差し込み印刷:作成した...
-
Wordで作った宛名ラベルを印刷...
-
ワードで宛名ラベルのフォント...
-
CDやDVDの表面へのラベル...
-
Excel VBAのフォーム_ラベルの...
-
wordでラベル差込印刷時に右端...
-
ラベル印刷ソフトで連番を一度...
-
宛名ラベル 2枚目以降が表示、...
-
ラベル屋さんでひとつひとつの...
おすすめ情報