あなたが言っていることをする必要があるとき、私は何をするかというと、次のようになります。
Private Sub Workbook_BeforePrint(Cancel As Boolean)
とコードエディタ(VBA)の関数を使って、列や行を非表示にして、プリントアウトをしてから非表示にする。
Private Sub Workbook_BeforePrint(Cancel As Boolean)
If ActiveSheet.Name = "Sheet1" Then
Cancel = True
Application.EnableEvents = False
Application.ScreenUpdating = False
With ActiveSheet
.Rows("10:15").EntireRow.Hidden = True
.PrintOut
.Rows("10:15").EntireRow.Hidden = False
End With
Application.EnableEvents = True
Application.ScreenUpdating = True
End If
End Sub
または、それぞれの部分を変更して列を非表示にする(この例ではB列とD列を非表示にします):
With ActiveSheet
.Range("B1,D1").EntireColumn.Hidden = True
.PrintOut
.Range("B1,D1").EntireColumn.Hidden = False
End With
または、A列の空白セルですべての行を非表示にする:
With ActiveSheet
On Error Resume Next
.Columns("A").SpecialCells(xlCellTypeBlanks).EntireRow.Hidden = True
.PrintOut
.Columns("A").SpecialCells(xlCellTypeBlanks).EntireRow.Hidden = False
On Error GoTo 0
End With
リンク.