conditional printing

  • Thread starter Thread starter Conditional printing
  • Start date Start date
C

Conditional printing

Is it possible to prevent printing based on zero value in a particular cell?
 
Put this in the ThisWorkbook module. Change sheet and cell to suit.

Private Sub Workbook_BeforePrint(Cancel As Boolean)
With Sheets("sheet6")
If Len(Trim(.Range("c1"))) < 1 Then Cancel = True
End With
End Sub
 
You can verify the value in the cell with the workbooks BeforePrint event.

Press Alt+F11 to open the Visual Basic Editor. In the project Explorer in
the upper-left pane, doiuble click on the ThisWorkbook icon.

In the combobox at the top of the module on the left, change the object to
workbook, and the in the combobox on the right change the event to the
BeforePrint event. Use something like to following code to control the
printing, substituting the worksheet index number with either the name of the
worksheet as a string or its index number, and the cell address A1 to the
cell that contains the value you wish to verify:

Private Sub Workbook_BeforePrint(Cancel As Boolean)

If ThisWorkbook.Worksheets(1).Range("A1").Value = 0 Then
MsgBox "There is nothing to print at this time."
End If

Cancel = True

End Sub
 
Paste this into your ThisWorkbook Code Window << Change as necessary

Private Sub Workbook_BeforePrint(Cancel As Boolean)
If Range("C4") = "" Then
MsgBox "Cell C4 is empty"
Cancel = True
End If
End Sub
 
Back
Top