Automatically Prevent Printing of Shapes

How to automatically prevent printing of shapes on an Excel worksheet with VBA. Watch the video below:

Automatically Prevent Printing of Shapes

Watch this video on YouTube.

Here’s the complete modified and more efficient VBA code to prevent printing of activex controls, form controls, shapes, pictures and charts automatically:

Private Sub CommandButton1_Click()
If Range(“D2”) = 0 Then
MsgBox “You have 0 quantity in stock!”
Exit Sub

ElseIf Range(“D2”) > 0 Then
Range(“D2”) = Range(“D2”) – 1
Range(“K2”) = Range(“K2”) + 1
End If

End Sub

Sub calculate()
Dim soldqty As Long
Dim ws As Worksheet
Set ws = Worksheets(1)

soldqty = InputBox(“enter the sold quantity”, “Sales”)

If ws.Range(“D2”) = 0 Then
MsgBox “You have 0 quantity in stock!”
Exit Sub
ElseIf ws.Range(“D2”) > 0 Then
ws.Range(“D2”) = ws.Range(“D2”) – soldqty
ws.Range(“K2”) = ws.Range(“K2”) + soldqty

End If

End Sub

Sub donotprintshape()

ActiveSheet.DrawingObjects.PrintObject = False
ActiveSheet.PrintPreview

End Sub