Sub REMOVE_SELECTION_FROM_PRINTAREA()
' Shortcut: Ctrl + Shift + Delete
' Remove selection from print area.
On Error GoTo ErrorLabel
Dim new_print_area As String
' Remove Selection.Address
new_print_area _
= Replace(Range("Print_Area").Address, Selection.Address, "")
' Remove Irregular Comma
new_print_area = TRIMCOMMA(new_print_area)
' If all printarea is removed, end pagebreak view
If Len(new_print_area) > 0 Then
ActiveSheet.PageSetup.PrintArea = new_print_area
Else
ActiveSheet.Names("Print_Area").Delete
ActiveWindow.View = xlNormalView
End If
Exit Sub
ErrorLabel: Exit Sub
End Sub
Sub ADD_SELECTION_TO_PRINTAREA()
' Shortcut: Ctrl + Shift + ~
' Add selection to print area.
On Error GoTo ErrorLabel
' Initial Adding Print Area
If EXIST_NAME("Print_Area") = False Then
ActiveSheet.PageSetup.PrintArea = Selection.Address
With ActiveWindow
.View = xlPageBreakPreview
.DisplayGridlines = False
.Zoom = 100
End With
Exit Sub
End If
' Adding Print Area to Existing Area
ActiveSheet.PageSetup.PrintArea _
= Range("Print_Area").Address & "," & Selection.Address
Exit Sub
ErrorLabel: Exit Sub
End Sub