Thanks Gord for your Valued Reply.

But, this code is not working. I just changed the cell range from "A1"
to "C8". And kept the cell "C8" blank. But, it didnot filled it with
black colour. It printed it blank (colourless).

Thanks in Advance.

Regards,
Denis




Gord Dibben wrote:
Private Sub Workbook_BeforePrint(Cancel As Boolean)
With ActiveSheet.Range("A1")
If .Value = "" Then
.Interior.ColorIndex = 1
Else
.Interior.ColorIndex = xlNone
End If
End With
End Sub

Right-click on the Excel Icon left of "File" and select "View Code"

Copy/paste the above into that module.

Edit the Range("A1") to suit.

Alt + q to return to the Excel window.


Gord

On Tue, 27 May 2008 00:04:00 -0700, Denis
wrote:

Thanks Gary and Gord for your valued reply.

But, what I want is like this:
I have created a sheet, which I will give to the users to enter their name.
I dont want users to take its print without entering their name and then
manually hand-write their name.

They should enter their name and then only take its print. So, I want that
if the user does not enter anything in his name field (cell), then that
particular cell should be printed black.

I hope you exactly understand my query.

Thanks in Advance!

Regards,
Denis





"Gary''s Student" wrote:

Before printing:

Format Cells... Patterns Color
and pick the same as the font color

After Printing, reverse this.

You can do it manually, or with a macro.
--
Gary''s Student - gsnu200788


"Denis" wrote:

I have created a simple table based form in Excel.
I want some cells to be printed fully black if nothing is entered in it.

Is there any way, I can do this?

Thanks in Advance!

Regards,
Denis