No.7ベストアンサー
- 回答日時:
>フッターに1-2、2-1、3-4、4-1・・・というように表示したいのですが
ページフッターにText1というコントロールを配置した場合
Option Compare Database
Dim KonpoCnt As String '←変数名を宣言しておく
ラベルの詳細の印刷時のイベントに
Private Sub 詳細_Print(Cancel As Integer, PrintCount As Integer)
KonpoCnt = KonpoCnt & "・" & [ID] & "-" & [梱包個数]
End Sub
ページフッタのフォーマット時のイベントに
Private Sub ページフッターセクション_Format(Cancel As Integer, FormatCount As Integer)
Me!Text1 = KonpoCnt
End Sub
ページヘッダーのフォーマット時のイベントに変数をクリアする記述をいれる(次のページに対応するため)
Private Sub ページヘッダーセクション_Format(Cancel As Integer, FormatCount As Integer)
KonpoCnt = ""
End Sub
これで・1-2・2-1・3-4・4-1・・・と表示されます。・とか-を変えたい場合は
KonpoCnt = KonpoCnt & "・" & [ID] & "-" & [梱包個数]
の記述の""で区切られた中を変更してください。
No.6
- 回答日時:
>単にコントロールソースを設定すればタックシールの最後(一番右下)の値だけ表示されるのですが、他に何か設定がいるのでしょうか
フッターに配置したコントロールソースに表示したいものを設定すれば当然最後のラベルのそのコントロールソースの値になります。
プレビューで1枚に何枚も表示されていても1ラベルづつ順に出力しているのでページフッターのコントロールのソースで指定した一番最後の値が取得されます。
=[ID] とすれば最後のラベルのIDの値が表示されます。
>他に何か設定がいるのでしょうか
違うものを表示したいのであれば表示できるようなソースの指定や設定をしない限りできません。
>シールの欄外にID,梱包個数というように印刷できないものでしょうか
これも「質問の仕方が悪くてなかなか・・」なのでは
シールの欄外にIDと質問されれば フッターのコントロールソースに =[ID] で表示できます。と回答が返ってきます。例えばどのようにIDを表示したいのかなどがないと無駄に回答が増えてしまうだけです。
梱包個数というように印刷できないものでしょうか ではなく例えば梱包個数の合計数を表示できないか とか。
例えば梱包個数の合計数をフッターに表示したい。とかなら
テキストボックスをラベルの詳細に配置してプロパティで可視をいいえにして見えない(印字されないよう)にしプロパティのデータの集計実行で全体を指定します。フッターの梱包個数の合計数コントロールのソースに=[テキスト1]のようにそのテキストボックス名を指定すれば合計すうを表示できます。などの回答が寄せられます。
何をしたいのか分かるようにしていただければ回答のしようがあるのですが・・。
この回答への補足
お返事が大変遅れまして申し訳ございません。
O_cyanさん丁寧なご回答ありがとうございます。
もう少し具体的に説明いたします。
テーブルは
ID 名前 郵便番号 住所 梱包個数
1 A aa aaa 2
2 B bb bbb 1
3 C cc ccc 4
4 D dd ddd 1
・
・
・
レポートでラベル(2列×5行)にすると
郵便番号 aa 郵便番号 bb
住所 aaa 住所 bbb
氏名 A 氏名 B
郵便番号 cc 郵便番号 dd
住所 ccc 住所 ddd
氏名 C 氏名 D
・
・
・
というラベルができて、フッター(下の余白部分)に
1-2、2-1、3-4、4-1・・・
というように表示したいのですが・・・
(表示の書式はこだわりません)
よろしくお願いします
No.5
- 回答日時:
#1のmshr1962です。
>単にコントロールソースを設定すればタックシールの最後(一番右下)の
値だけ表示されるのですが、他に何か設定がいるのでしょうか?
ページフッターにテキストを貼り付けるまでは分ったのですね。
後はそこで表示印刷させたい内容が問題ですが
何を表示させたいのでしょうか?1枚のシートの最初と最後の会社名とかですか?
こういう場合はページヘッダーのイベントとページフッターのイベントを使えば可能です。
たとえば
Private Sub ページヘッダーセクション_Format(Cancel As Integer, FormatCount As Integer)
CAMP_A = Me.会社名
CAMP_B = ""
End Sub
Private Sub レポートフッター_Format(Cancel As Integer, FormatCount As Integer)
CAMP_B = Me.会社名
End Sub
として
テキストボックスCAMP_AとCAMP_Bをレポートフッターにおけば
最初と最後のラベルの会社名が表示されます。
すべてのラベルの会社名を表示させるなら、
Private Sub ページヘッダーセクション_Format(Cancel As Integer, FormatCount As Integer)
LCNT = 0
End Sub
Private Sub 詳細_Format(Cancel As Integer, FormatCount As Integer)
LCNT = LCNT + 1
CAMP(LCNT) = Me.会社名
End Sub
としてレポートフッターに
CAMP(1)からCAMP(N)までラベル数分のテキストボックスを配置です。
※ラベル数が10枚以上の場合は Dim による配列宣言が必要になります。
この回答への補足
ありがとうございます。
質問の仕方が悪くてなかなか本題にたどり着かなかった感じでしたが、
やっと入り口に来たという感じです。
初心者で私の頭の中が混乱してほんとに申し訳ございません。
表示させたい内容はレコードの中のひとつのフィールドで
例えば
ID、郵便番号、住所、氏名、梱包個数
というテーブルがあった時
ラベルには
郵便番号
住所
氏名
でシールの欄外(余白部分、この場合はフッターなので下部)に
ID,梱包個数
というように印刷できないものでしょうか?
No.4
- 回答日時:
>余白の問題でなくその部分にテーブルの情報が入れられるかどうかなのですが・
#3でコントロール等を配置するのは可能です。
としてあります。コントロールソースに表示したいソースを設定すれば出来ます。
この回答への補足
早速のご回答ありがとうございます。
>コントロールソースに表示したいソースを設定すれば出来ます。
単にコントロールソースを設定すればタックシールの最後(一番右下)の
値だけ表示されるのですが、他に何か設定がいるのでしょうか?
No.3
- 回答日時:
>ページフッターにその情報を入れたいのですがそういったことは可能でしょうか
#1の方の回答にもありますが
お使いになっているラベルによっても差があるかもしれませんが通常はラベルの上下の余白は21mm以上ある物が多いですがレーザープリンターの印字余白は大体4mm前後が多いと思います。(お使いのプリンターにより差がありますが)
ラベル余白とプリンターの印字余白の差に出力する事は可能です。
上記の設定であるとすれば21mm-4mm=17mmとなるのでページフッターに17mm以内のコントロール等を配置するのは可能です。
ただラベルに出力するレコードが無くなった時点でページフッターがラベル余白部分に印字されてしまうので次回使いかけのラベルを使うと同じ位置に別の情報を印字してしまう可能性はあります。(使いかけを使用しないとか別に印字されてもかまわなければ問題ないですが)
No.2
- 回答日時:
通常ラベル印刷の場合、余白はほとんどありません。
あると言うのであれば、デザインビューの画面で、
メニューの[表示]から[ページヘッダーとページフッター]をクリックし、
表示されたフッター部分に[ツールボックス]からAaのボタンをクリックし入力します。
余計なヘッダー部分はマウスで境界部分をつまんでドラッグすれば消えます。
ただし、通常のラベルでは余白はほとんどないと思います。それを知った上で操作してみましょう。
この回答への補足
早速のご回答ありがとうございます。
余白の問題でなくその部分にテーブルの情報が
入れられるかどうかなのですが・・・
規定の時間やページなどは入りますが、テーブルのデータは
表示できないのでしょうか?
分かりましたらお願いします。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- プリンタ・スキャナー Wordで作った宛名ラベルを印刷しようと思って、プリンターの上のところにある、手差しトレイ的なところ 3 2022/11/17 18:40
- その他(買い物・ショッピング) 商品にラベルを貼って出荷するまでのの手順にについて 2 2022/09/29 15:26
- お酒・アルコール 【高級スーパーのお酒コーナーの裏ワザ】で赤ワインのラベル表示に自社の輸入会社名が入っていると安く仕入 1 2022/06/19 21:21
- Android(アンドロイド) スマホGメールラベルについて、 あくまでPCじゃなく スマホでの質問です。 現在は、Androidス 2 2022/12/05 01:49
- Excel(エクセル) エクセルの散布図で新たに入力した値のデータラベルが空欄になる現象 1 2022/04/26 09:31
- Wi-Fi・無線LAN ソフトバンクエアー、こ、故障でしょうか?? 5 2022/05/08 21:53
- Outlook(アウトルック) Excel表のメールアドレスリストからoutlookの宛先を設定、メールを送信する方法 2 2022/09/16 05:29
- その他(Microsoft Office) outlookで宛先が異なるメールを一括送信する方法 outlookで200人それぞれをtoに指定し 2 2023/08/03 21:24
- その他(買い物・ショッピング) JANコードの登録について 1 2022/07/23 14:19
- Visual Basic(VBA) VBAにてメール作成した際、一部指定箇所のみ赤文字にしたいです。 下記の内容ですと作成されたメール本 1 2022/04/27 13:31
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
PDF 余白を無くして用紙いっぱ...
-
Wordで40字×40行にしたいのです...
-
wordの表いっぱいに文字を入れる
-
【至急!】ワードで文字が偏っ...
-
ワードからPDFに変換して保存す...
-
WORDやEXCELで作ったファイルを...
-
アクセスのフォームで、文字を...
-
カシオ ネームランド 前後の余白
-
ワードの警告メッセージの「印...
-
jpg画像の左側と上側に余白を入...
-
wordの2段組の中央の余白の設定...
-
電話番号記入欄のカッコ( ...
-
Excelの左端(A列)をあけてお...
-
PDFを1ページに結合すると余白...
-
Word2010で余白の外の余白に模...
-
エクセルで印刷する時右に少し...
-
Excelの「検索ウィンドウ(ダイ...
-
Wordについて。 余白を上に30mm...
-
エクセルのプロットエリア右側...
-
Mac Bookのテキストエディット
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
PDF 余白を無くして用紙いっぱ...
-
wordの表いっぱいに文字を入れる
-
ワードからPDFに変換して保存す...
-
カシオ ネームランド 前後の余白
-
【至急!】ワードで文字が偏っ...
-
Wordで40字×40行にしたいのです...
-
WORDやEXCELで作ったファイルを...
-
ワードの警告メッセージの「印...
-
ヘッダーフッターの非表示
-
wordの2段組の中央の余白の設定...
-
PDFを1ページに結合すると余白...
-
Excelの左端(A列)をあけてお...
-
アクセスのフォームで、文字を...
-
PhotoshopでA4サイズにトリミン...
-
Wordで変更履歴/コメントを印刷...
-
jpg画像の左側と上側に余白を入...
-
Excel2013 右側の謎の余白について
-
PDFのデータを印刷したいのです...
-
エクセルで印刷する時右に少し...
-
【Outlook】メール本文表示の際...
おすすめ情報