エクセルのマクロで、特殊な印刷をするには？

質問

Ｃ１：Ｑ１０まで罫線を引いた帳簿表があります。
その表のなかで、合計が２回、３回あり、印刷をその都度
プリントアウトして紙がもったいないなぁっと。
そこで、合計ボタンを作成した時にＴの列に１を入力させて
その数値によって印刷を文字のみにする方法がないか？質問です。

条件としては
初めのＴ＝１ならば表Ｃ１：Ｑ１０まで、普通にプリントアウト。
Ｔ＝最新の１ならば、段の文字のみをプリントアウトする。

例）ボタン３押して、初めのＱ＝１なので印刷はC1:P10まで印刷
ボタン７押して、最新のＱ＝１のとき印刷は最新の１から
１つ前のＱ＝１の間の列の文字のみを印刷したい
罫線は白で印刷する。

どうかご教授お願いします。

回答No.1

Wendy02

こんばんは。

質問のロジックが良く分かりません。もう一度、ご自身で読み直してみてください。

>Ｔ＝１ならば 表Ｃ１：Ｑ１０まで、普通にプリントアウト。 -これはOK

>Ｔ＝最新の１ならば、段の文字のみをプリントアウトする。
？（最新の1とは何か？　段の文字というのも不明)

>ボタン３押して、
>初めのＱ＝１なので印刷はC1:P10まで印刷
？（初めのQ=1 という意味が分からないし、Q<>1 でない場合の提示がありません)

>ボタン７押して、
>最新のＱ＝１のとき印刷は最新の１から
>１つ前のＱ＝１の間の列の文字のみを印刷したい
？1つ前のQ=1 の間というのも分かりません。

VBAは、基本的には、時系列の処理は非常に苦手です。
もう少し、きちんとまとめてみてください。ただ、あまりに質問で欲張りすぎると、レスが付きません。

'サンプル：
'ThisWorkbook モジュール

Private Sub Workbook_BeforePrint(Cancel As Boolean)
With ActiveSheet
　If .Range("Q1").Value = 1 Then
　　If MsgBox("罫線が印刷されませんがよろしいですか？", vbQuestion + vbOKCancel) = vbCancel Then
　　　 .PageSetup.Draft = False
　　Else
　　　 .PageSetup.Draft = True
　　End If
　 Else
　　　 .PageSetup.Draft = False
　End If
End With
End Sub