『特定ｾﾙのﾁｪｯｸﾎﾞｯｸｽ印刷しない』（SK）Excel97　Windows2000

 目的：特定ｾﾙ範囲を印刷しない。この特定ｾﾙには多数のﾁｪｯｸﾎﾞｯｸｽが設定されている。
 ﾄﾗｲ：下記の学習ﾏｸﾛにて実施。学習ﾏｸﾛ作成時はﾁｪｯｸﾎﾞｯｸｽ含め、特定ｾﾙの全てが印刷
　　　 されなかった。しかし、ｺﾏﾝﾄﾞ釦にてﾏｸﾛを実行すると、ﾁｪｯｸﾎﾞｯｸｽのみそのまま
　　　 印刷される。
　　　 因みに、学習ﾏｸﾛ作成時は、特定ｾﾙ範囲選択時「ﾃﾞｻﾞｲﾝﾓｰﾄﾞの終了」をONにし、
　　　 切取り、印刷範囲外に貼付け実施、印刷終了後、貼付けた特定ｾﾙを再度選択し、
　　　 切取り、元の場所に貼付け実施。
       ﾃﾞｻﾞｲﾝﾓｰﾄﾞの終了の選択はﾏｸﾛ上何の記録もされていないようです。
　　　 特定ｾﾙのﾁｪｯｸﾎﾞｯｸｽも印刷対象外にできる簡単な方法を教えてください。
　　　 下記の学習ﾏｸﾛは特定ｾﾙを印刷しないものと全て印刷する2種類の印刷をするように
　　　 なっています。

 Range("H5").Select
    ActiveSheet.Unprotect
    Range("AB15:AF27").Select
    Selection.Cut
    Range("AV2").Select
    ActiveSheet.Paste
    Range("A1:AF38").Select
    ActiveSheet.PageSetup.PrintArea = "$A$1:$AF$38"
    ActiveWindow.SelectedSheets.PrintOut Copies:=1
    ActiveWindow.SmallScroll ToRight:=7
    Range("AV2:AZ14").Select
    Selection.Cut
    Range("AB15").Select
    ActiveSheet.Paste
    ActiveWindow.ScrollColumn = 1
    Range("A1:AF51").Select
    ActiveSheet.PageSetup.PrintArea = "$A$1:$AF$51"
    ActiveWindow.SelectedSheets.PrintOut Copies:=1
    Range("I5").Select
    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub
----
 コントロールツールボックスのチェックボックスの場合。
つねに印刷しないのであれば、
デザインモード＞チェックボックスのプロパティでPrintObjectをFalseに。
　
選択的に印刷したりしなかったりということであれば、コードで制御。
適当な位置で
Worksheets("Sheet1").CheckBox1.PrintObject = False　を実行。
　
印刷するときは
Worksheets("Sheet1").CheckBox1.PrintObject = True　を実行。