내가 말한 것을해야 할 때 내가 할 일은 :
코드 편집기 (VBA)에서이 기능을 사용하십시오.
Private Sub Workbook_BeforePrint(Cancel As Boolean)
열이나 행을 숨기려면 인쇄물을 인쇄 한 다음 숨기기를 해제하십시오.
예:
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
연결: