How can I prevent printing if a cell is empty?

R

RonC

Can anyone tell me if it is possible to create a form that cannot b
printed if specified cells are empty? I would really appreciate an
help.

Thanks,

Ro
 
R

Ron de Bruin

Hi Ron

You can copy this event in the Thisworkbook module for A1 on "sheet1"

Private Sub Workbook_BeforePrint(Cancel As Boolean)
If ActiveSheet.Name = "Sheet1" Then
If Range("A1").Value = "" Then Cancel = True
End If
End Sub
 
Top