Macro to set print default to 1 copy

[howard]

I would like a macro to set the print default to 1 on the active sheet


If for eg. a user changes the print setting to print to 2 or more copies, I would like a macro to set this back to 1 after printing



your assistance in this regard is most appreciated

 

[howard]

Found this code on the Net, but does not reset print copies to 1 in print preview

 Private Sub Workbook_BeforePrint(Cancel As Boolean)

Cancel = True

End Sub

It would be appreciated if someone can amend this

 

[howard]

I have also posted on https://www.excelforum.com/excel-pr...-print-copies-on-activesheet.html#post5139837