deny printing for certain blank cells

H

huntnpeck2

How do I make a macro button that will return the user back to the
spreadsheet if certain cells are not filled in?

Thanks,
Tim
 
R

Roger Whitehead

Use the BeforePrint event in the ThisWorkbook module. Are you familiar with
this?
Here is some sample code:

Private Sub Workbook_BeforePrint(Cancel As Boolean)
'BOTH cells must contain data before printing-
If Application.WorksheetFunction.CountA(Range("A1,C25")) < 2 Then
Cancel = True
MsgBox "A1 and C25 must have values"
End If
End Sub

--
 
D

Darren Bartrup

Add this code to the ThisWorkbook code:

Private Sub Workbook_BeforePrint(Cancel As Boolean)
If Worksheets("Sheet1").Cells(1, 1) = "" Then
MsgBox "Cancelled"
Cancel = True
End If
End Sub

If Cell A1 on Sheet1 is empty then the print job will be cancelled.
 
Top