before_print does not work - f8 key does not do anything
 

Hi, i have a before_print event which does not work and i don't
understand y not. i also can't debug it. i put a break point at the end
sub line and i press f8 but nothing happens and the computer beeps.
would you please help me to understand what i am doing wrog? cell C9 is
a drop down list and codes are in this workbook module. i have
conditional formating for cells that should be filled out by users
according to their dropdown list selection.

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim i As Integer
Dim cell As Range

i = 0
If Sheets(1).Range("c9").Text = "abcd" Then
Sheets(1).Range("c12:c19", "j9", "j11", "i13", "i15", "i17",
"i19").Select
For Each cell In Selection
If IsEmpty(cell) Then
i = i + 1
End If
Next cell
If i 0 Then
MsgBox "Please fill out all the mandatory fields which are
colored in yellow"
Cancel = True
End If
End If
End Sub

before_print does not work - f8 key does not do anything
 

I believe you need to change the following line:

Sheets(1).Range("c12:c19", "j9", "j11", "i13", "i15", "i17",
"i19").Select

to:

Sheets(1).Range("c12:c19, j9, j11, i13, i15, i17, i19").Select

Also, you would not put a breakpoint at the end of the sub. Insert it
on a line before the line that produces the error (highlighted in
yellow). Run the macro by hitting F5, and the code will stop at the
break point. Now you can step through the code line by line with F8.

Regards,
Steve
www.stkomp.com

Nasim wrote:
Hi, i have a before_print event which does not work and i don't
understand y not. i also can't debug it. i put a break point at the end
sub line and i press f8 but nothing happens and the computer beeps.
would you please help me to understand what i am doing wrog? cell C9 is
a drop down list and codes are in this workbook module. i have
conditional formating for cells that should be filled out by users
according to their dropdown list selection.

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim i As Integer
Dim cell As Range

i = 0
If Sheets(1).Range("c9").Text = "abcd" Then
Sheets(1).Range("c12:c19", "j9", "j11", "i13", "i15", "i17",
"i19").Select
For Each cell In Selection
If IsEmpty(cell) Then
i = i + 1
End If
Next cell
If i 0 Then
MsgBox "Please fill out all the mandatory fields which are
colored in yellow"
Cancel = True
End If
End If
End Sub

before_print does not work - f8 key does not do anything
 

Thank you very much for your help.
Nasim