VBA code to prevent printing based on conditions

[MissingInAction]

Hi everyone.

I have a multipage (single sheet) Excel file that is used as an application form. Blocks that needs to be filled in are filled with yellow color. Once the person fills it in, the block's fill becomes blank. Furthermore, there is a dropdown list that has a few options. If the option "termination" is selected, all the other pages disappears. They are however still being printed.

My question is twofold: How can I prevent users from printing the form if there are yellow blocks on the sheet? Secondly, how can I customize the printing area based on a condition (B13="Termination") to prevent the other blank pages from printing? Page 1's area is A1:E44. My idea is to put this code in a command button.

I am currently using this code to prevent the normal print button from working:

Private Sub Workbook_BeforePrint(Cancel As Boolean)
   If AllowPrint Then Exit Sub
   MsgBox "Please print via [Print] button"
   Cancel = True
End Sub

 

[Yongle]

or

Replace

If Not yellow Then ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False

With

If Not yellow Then
    AllowPrint = True
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False
End If

 

[MissingInAction]

Brilliant. Thank you very much.