how to automatic print a worksheet when a cell condition occurs.

[machete]

I'm trying to automate a worksheet to automatically print a workshee
when a cell reach a condition. I create a warning screen and I need t
print it when a cell is one day before the due date.:

 

[Tom Ogilvy]

Whatever code puts up the warning message should also print out the sheet.

 

[Ron de Bruin]

Hi machete

Do you fill in that cell manual ?

 

[machete]

The cell contains a date I need that 1 day before it reach the dat
value in the cell it prints automaticaly a warning page I create,
used this to manage my calibrations due dates

 

[Ron de Bruin]

Hi

If you open the workbook every day you can use this
event in the thisworkbook module

A1= the date in "Sheet1"

Private Sub Workbook_Open()
If Sheets("Sheet1").Range("A1").Value = Date - 1 Then
Sheets("warning").PrintOut
End If
End Sub

 

[machete]

this is the situation, the file needs to be open all the time, thi
means that I need the warning to happens when the date - 1 occur
automaticall

 

[Ron de Bruin]

Hi

If the workbook is open always
You can use the same code in a macro and run it with Ontime

See this page
http://www.cpearson.com/excel/ontime.htm