Printing

  • Thread starter Thread starter Ann
  • Start date Start date
A

Ann

I have posted this a few times but cannot find where it is
listed?? I have tried search but to no avail. So here
goes again...

I have a number of spreadsheets with option buttons.
While on these sheets the user must choose option yes or
no (1 or 2) I want to be able to stop them printing if
they have not selected either yes or no on a previous
sheet.
The last sheet has if statements so if they choose the yes
option, this feeds through as follows:

=if(A14=1,"Please allow us to quote you","You have already
been quoted")

I am starting this sheet as a template so that all options
are set to 0 - I do not want the users to be able to print
unless they have answered all questions on previous
sheets??? In other words, if the option cells are still on
0. How can this be done - the easiest way possible??
Any help would be greatly appreciated.

Thanks in advance.
Ann
 
I created a simple Workbook_BeforePrint macro. Press
ALT+F11 and place this in the "ThisWorkbook" module for
your current workbook:

Private Sub Workbook_BeforePrint(Cancel As Boolean)

Dim cell1 As Range, cell2 As Range, cell3 As Range

Set cell1 = Sheets("Sheet1").Range("A1")
Set cell2 = Sheets("Sheet2").Range("A1")
Set cell3 = Sheets("Sheet3").Range("A1")

If cell1.Value > 0 And cell2.Value > 0 _
And cell3.Value > 0 Then Exit Sub

Cancel = True

MsgBox ("Please select 'Yes' or 'No' to all questions.")

End Sub
 
Back
Top