[[20100321005241]]　『チェックボックスでレ点がある場合のみ印刷』（でんきち）　ページの最後に飛ぶ

『チェックボックスでレ点がある場合のみ印刷』（でんきち）

コントロールボックスのチェックボックスを使用して
レ点を入れた場合だけ、そのチェックボックスを印刷できるように
する方法がありますでしょうか。
シート内の他の箇所は、そのチェックのあるなしかかわらず、
通常に印刷できるもの考えています。

例）レ点　チェックボックスの中です　　←　１つのチェックボックス

レ点がついていれば、　”レ点　チェックボックスの中です”が印刷されるが、
レ点がなければ、このチェックボックスは印刷されない。

方法をご存知の方いました是非教えてください。
よろしくお願いいたします。
　

 イベントで操作です。
（対象シートモジュール）
 Private Sub CheckBox1_Click()
     CheckBox1.PrintObject = CheckBox1.Value
 End Sub

 (Abyss)

ありがとうございます。大変助かりました。
すれ違いですがWordでも同じ事を行うとメソッドをサポートしてませんととなり
Printobjectの代わりにWordでは何か他のメソッドや方法があるのでしょうか。

 ワードでは、エクセルの様に簡単にはいかないみたいです。

 チェックボックスを、隠し文字に設定しておけば
 以下の様なコードで出来そうです。

    Private Sub CheckBox1_Click()
        If CheckBox1.Value Then
            Options.PrintHiddenText = True
        Else
            Options.PrintHiddenText = False
        End If
    End Sub

 但し、他に隠し文字が設定してあったら
 それも一緒に切り替わります。

 隠し文字は、メニュー・書式(O)→フォント(F)の
 フォントタブから設定します。

 チェックボックスの書式設定で
 レイアウトを「行内」に設定して
 チェックボックスを選択。

 その後、メニューから　隠し文字の設定をしてみて下さい。

 隠し文字に設定されると、文字の下に点線が表示されます。
 デザインモードを終了した場合に、或いは設定した途端に
 文字（やオブジェクト）が消えてしまう場合は
 オプションの表示タブにある
 編集記号の表示　の中の　隠し文字(I)　のチェックが
 ちゃんと付いているか確認して下さい。

 また、マクロは同じくオプションの　印刷　タブに有る
 同時に印刷する項目　の中の　隠し文字(I)　のチェックを
 切り替えるコードになっています。

 (HANA)

コメント返信：

[ 一覧(最新更新順) ]

[[20100321005241]] 『チェックボックスでレ点がある場合のみ印刷』（でんきち） ページの最後に飛ぶ

[[20100321005241]]　『チェックボックスでレ点がある場合のみ印刷』（でんきち）　ページの最後に飛ぶ