Access VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
2169 / 2272 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【3611】特定の宛名だけを印刷したい時 お初 04/9/30(木) 17:53 質問[未読]
【3614】Re:特定の宛名だけを印刷したい時 クロ 04/10/1(金) 10:40 回答[未読]
【3629】Re:特定の宛名だけを印刷したい時 お初 04/10/2(土) 13:51 質問[未読]
【3630】Re:特定の宛名だけを印刷したい時 クロ 04/10/2(土) 14:17 回答[未読]
【3631】Re:特定の宛名だけを印刷したい時 クロ 04/10/2(土) 14:18 回答[未読]
【3633】Re:特定の宛名だけを印刷したい時 お初 04/10/2(土) 17:58 お礼[未読]
【3611】特定の宛名だけを印刷したい時
質問  お初  - 04/9/30(木) 17:53 -
引用なし
パスワード
   こんにちは。
分からない部分がありましたので、どなたかお教え下さい。

現在、宛名ラベル（スタックシール）６行２列の縦長で合計１２枚印刷できるタイプなのですが、特定の宛名だけ印刷できるようにしたいのですが、
どのようにしたらよろしいでしょうか？

現在、同じラベルを重複して印刷できるようにしてありますので、
その数字を「０」にしたらそのラベルは非表示で印刷されないようにしたいと思っておりますが、できるものなのでしょうか？

現在、入力フォームには郵便番号と住所と名前と枚数を入力する欄があります。
枚数に数字を入力するとその数だけ印刷するようになってます。
レポートの詳細のプロパティイベント印刷時で下記の用に記入してあります。

If Me.PrintCount < Me.枚数 Then
　 Me.NextRecord = False
End If

どなたかよろしくお願い致します。
【3614】Re:特定の宛名だけを印刷したい時
回答  クロ  - 04/10/1(金) 10:40 -
引用なし
パスワード
   レポートの開く時のイベントに

Me.Filter = "[印刷枚数]>0"
Me.FilterOn = True

のようにフィルタをかけてはどうでしょうか？
【3629】Re:特定の宛名だけを印刷したい時
質問  お初  - 04/10/2(土) 13:51 -
引用なし
パスワード
   ▼クロ さん：
すいません。初歩的なことをお聞きいたしますが、
レポートを開く時のイベントというのは、
フォーマット時のイベントではないでよね。
どのような意味でしょうか？
（クエリを作成してマクロ等で指定するのでしょうか？）

初歩的な事をお聞きして申し訳ありませんが、
よろしくお願い致します。

>レポートの開く時のイベントに
>
>Me.Filter = "[印刷枚数]>0"
>Me.FilterOn = True
>
>のようにフィルタをかけてはどうでしょうか？
【3630】Re:特定の宛名だけを印刷したい時
回答  クロ  - 04/10/2(土) 14:17 -
引用なし
パスワード
   ▼お初 さん：
>▼クロ さん：
>すいません。初歩的なことをお聞きいたしますが、
>レポートを開く時のイベントというのは、
>フォーマット時のイベントではないでよね。
>どのような意味でしょうか？
>（クエリを作成してマクロ等で指定するのでしょうか？）

レポートをデザインビューで開き、「開く時」のイベントにコードで
書きます。

要はレポートのレコードソースにある「枚数」が0より大きいものしか出さなければ
いいのでは？ということです。
※[印刷枚数](テスト用なので)は[枚数]にしてください。

もしくはレポートを開くコマンドボタンがあればそこに
DoCmd.OpenReport "レポート名", acViewPreview, , "[枚数] =0"
としてもいいとおもいます。
※テストのため印刷プレビューにしてあります。
【3631】Re:特定の宛名だけを印刷したい時
回答  クロ  - 04/10/2(土) 14:18 -
引用なし
パスワード
   >DoCmd.OpenReport "レポート名", acViewPreview, , "[枚数] =0"
訂正
DoCmd.OpenReport "レポート名", acViewPreview, , "[枚数] >0"
【3633】Re:特定の宛名だけを印刷したい時
お礼  お初  - 04/10/2(土) 17:58 -
引用なし
パスワード
   ▼クロ さん：
ありがとうございます。
できました。
お手数お掛けしました。

>>DoCmd.OpenReport "レポート名", acViewPreview, , "[枚数] =0"
>訂正
>DoCmd.OpenReport "レポート名", acViewPreview, , "[枚数] >0"
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
2169 / 2272 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
1078299
(SS)C-BOARD v3.8 is Free