SET COLUMN DIFFERENCE & PRINT COMMENT VBA

Sub columnDifference()

Range("H7:H8,I7:I8").Select

Selection.ColumnDifferences(ActiveCell).Select

Selection.Style= "Bad"

End Sub

PRINT COMMENT

 Sub printComments()

With ActiveSheet.PageSetup

.printComments = xlPrintSheetEnd

End With

End Sub

[10:24 AM, 12/18/2020] Aakash: Sub printNarrowMargin()

With ActiveSheet.PageSetup

.LeftMargin = Application

.InchesToPoints (0.25)

.RightMargin = Application.InchesToPoints(0.25)

.TopMargin = Application.InchesToPoints(0.75)

.BottomMargin = Application.InchesToPoints(0.75)

.HeaderMargin = Application.InchesToPoints(0.3)

.FooterMargin = Application.InchesToPoints(0.3)

End With

ActiveWindow.SelectedSheets.PrintOut _

Copies:=1, _

Collate:=True, _

IgnorePrintAreas:=False

End Sub