locking printing

E

!..:: Enang ::..!

Hi All

How to lock printing untill a cell is filled in with "Ok" ?

regards,
Ndoel
 
N

Norman Jones

Hi N,

Try:
'=======================>>
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Cancel = UCase(Me.Sheets("Sheet1").Range("A1").Value) <> "X"
End Sub
'<<=======================

Change the sheet name and the cell reference to accord with your needs.

This is workbook event code and should be pasted into the workbook's
ThisWorkbook module *not a standard module or a sheet module):

************************************************************
Right-click the Excel icon on the worksheet
(or the icon to the left of the File menu if your workbook is maximised)

Select 'View Code' from the menu and paste the code.

Alt-F11 to return to Excel.
************************************************************

If you are not familiar with macros you may wish to visit David McRitchie's
'Getting Started With Macros And User Defined Functions' at:

http://www.mvps.org/dmcritchie/excel/getstarted.htm
 
E

!..:: Enang ::..!

thx very much norman, it work :)
Now I cannot print untill everything is right
 
Top