Forum Discussion
beikme
Jul 24, 2020Brass Contributor
Automatically print when cells value change
Hi all Is there any why to Automatically print when cells value change ?
Bennadeau
Jul 24, 2020Iron Contributor
Hi beikme,
The below Macro will should do what you want.
Just change the 3rd line to what ever range you want to trigger the print job. "Set KeyCells = Range("A1:C10")"
If you want to print the active sheet and not the entire workbook, change the 6th line to: Activesheet.PrintOut
Private Sub Worksheet_Change(ByVal Target As Range)
Dim KeyCells As Range
Set KeyCells = Range("A1:C10")
If Not Application.Intersect(KeyCells, Range(Target.Address)) _
Is Nothing Then
ActiveWorkbook.PrintOut
End If
End Sub