[[20190412080304]]　『特定の行の印刷をしない』（Mirai）　ページの最後に飛ぶ

『特定の行の印刷をしない』（Mirai）

 シートに成績表があります。
 B列に名前、C列以降に成績が表示されています。
 条件を満たすとB列以降が色付けされ、
 A列に1が入力されるようになっています。

 シート内にマクロボタンがあり、印刷プレビューが表示されるのですが、
 その際にA列に1が入っている行は印刷対象から外したいのです。

 今はフィルタで選択し、表示しないようにしてから印刷し、
 印刷後再び元に戻すような作業をしています。

 理想としては、表示はされるが印刷されない方法が一番です。
 もしくは印刷プレビューを見て、印刷した後に自動で元に戻る感じで。

 どうかよろしくお願いします。

＜使用 Excel：Excel2016、使用 OS：Windows7 ＞

試していないので参考程度ですが、マクロの使用がアリなら
https://www.officelabo.net/vbaskill/vba20.html
が、役立ちそうです。

（もこな２） 2019/04/12(金) 09:00

よく見たら

シート内にマクロボタンがあり、印刷プレビューが表示される

とおっしゃってますね。失礼しました。

そうなると、話はもっと簡単で、

今はフィルタで選択し、表示しないようにしてから印刷し、印刷後再び元に戻すような作業をしています。

↑を既存のマクロに加えるだけですね。

    Sub さんぷる()

        Stop 'ブレークポイントのかわり

        With ActiveSheet
            .AutoFilter.Range.AutoFilter Field:=1, Criteria1:="<>1", Operator:=xlFilterValues   '←　A列のうち「1」以外を抽出
            .PrintPreview                                                                       '←　プリントプレビュー
            .AutoFilter.Range.AutoFilter Field:=1                                               '←　A列の抽出を解除
        End With

    End Sub

（もこな２） 2019/04/12(金) 14:44

 (もこな２)さん

 ありがとうございます。
 バッチリできました。
 またよろしくお願いします。

（Mirai） 2019/04/12(金) 16:36

コメント返信：

[ 一覧(最新更新順) ]

[[20190412080304]] 『特定の行の印刷をしない』（Mirai） ページの最後に飛ぶ

[[20190412080304]]　『特定の行の印刷をしない』（Mirai）　ページの最後に飛ぶ