Thread: Disable printing in Excel 2010 unless cell(s) are filled out

Hello

I have Excel 2010 and I am trying to disable the print funtion until certain cells (AO6, F9, AO9, BD0, etc) are filled out.

I found this code on the website, but does not work for me...

              Private Sub Workbook_BeforePrint(Cancel As Boolean)
                  If IsEmpty(Worksheets("HRM").Range("bj2")) Then
                  Cancel = True
                  Msg = MsgBox("Please complete cells to continue ", vbOKOnly)
              Else
                  If Not IsEmpty(Worksheets("HRM").Range("bj2")) Then
                  Cancel = False
                  End If
              End If
              End Sub

Is there someting i am missing?


TY

Hi Todd. Welcome to the forum.

As per forum rules (you can click the link in the menu bar above and read through them), please EDIT your post above, and add code tags around you posted code as demonstrated in my signature below.

Like this...

I'll take a look at your code after that. Thanks.

Simplest way is to define a Named Range in the worksheet that is the cells to check, Then just use

Option Explicit
'PrintCells is a Named Range on Sheet1
Private Sub Workbook_BeforePrint(Cancel As Boolean)
    If Application.WorksheetFunction.CountA(Sheet1.Range("PrintCells")) < _
       Sheet1.Range("PrintCells").Cells.Count Then
        Cancel = True
        MsgBox ("FILL OUT ALL YELLOW FIELDS !!!!!")
    End If
End Sub