Printer Settings could not be saved. Operation could not be completed (Error 0x000006D9)

Error message when you use the Add Printer Wizard to share a printer:

This issue may occur if you have stopped or disabled the Windows Firewall Service. To share printers in Windows 7 or in Windows Server 2008 R2, you must have the Windows Firewall Service enabled.

To resolve this issue, set the Windows Firewall Service to Automatic, and then start the service. 

How to quickly delete all auto shapes in Excel?

Delete all auto shapes in active worksheet with VBA

Using VBA macro can help you delete all auto shapes in active worksheet quickly.

Step 1: Hold down the ALT + F11 keys, and it opens the Microsoft Visual Basic for Applications window.

Step 2: Click Insert >> Module, and paste the following macro in the Module Window.

VBA: delete all shapes in active worksheet.

Sub DeleteShapes()
Dim Shp As Shape
For Each Shp In ActiveSheet.Shapes
Shp.Delete
Next Shp
End Sub

Step 3: Press the F5 key to run this macro.
Then you will see all shapes in active worksheet are deleted quickly.

Notes:
1. This VBA macro can only delete all shapes in active worksheet.

2. This VBA macro can delete all kinds of shapes in active worksheet, including pictures, ClipArt, Shapes, SmartArt, charts, Text boxes, etc.