View Single Post
  #6   Report Post  
Posted to microsoft.public.excel.programming
Gerard Sanchez Gerard Sanchez is offline
external usenet poster
 
Posts: 46
Default Print Button Macro with Multiple Conditions


Thank you for checking, I was starting to get really frustrated. Yes, there
was an extra space in there.
I did change it to <1 from =0. I think if worked out much better that way.

Thank you for your patience walking me through it. I really appreciate it.

--Gerard




"OssieMac" wrote in message
...
Hi again Gerard,

I had just finished re-testing the code since getting your previous post
when I got your last post. I assume that you have found the problem.

My testing of the code appears OK so I assume that you had mis-spelled
something or had an added space or something in some of the values either
on
the worksheet or in the strings in the code.

By the way with the COUNT function do you want it to fail print if =1
because that is what the code does. If you wanted it to print when =1 then
you need to change that to < 1.

Hope it now goes well for you.

--
Regards,

OssieMac


"Gerard Sanchez" wrote:


Nevermind . . .


"Gerard Sanchez" wrote in message
...

When I compare this post to your earlier one I am wondering exactly
what
conditions you want met or (Not met) to fail the print. The code you
have
posted here requires all of the conditions set to be met before print
fails.
I thought in your earlier post that any one of the conditions should
cause
failure to print so should it be And or should it be Or?

I think you're right, it should be OR instead, so that if any one of
the
condition is true, print macro fails.

I copied and pasted the codes exactly as shown:

Sub PrintWithConditionsTest()

If Range("G59") = "Select Customer" Or _
Range("F64") = "Select User" Or _
Range("F65") = "Not Balanced !" Or _
WorksheetFunction.Count(Range("C61"), Range("C62"), Range("F61"),
Range("F62"), Range("I61"), Range("I62")) = 1 Then

MsgBox "Required information not filled and/or Discrepancy exists!"

Else

Range("A18:I69").PrintOut Copies:=1

End If
End Sub


How come it is still printing even though 2 of the conditions are true,
should it not print and display dialogue box?

G59 = Select Customer
F65 = Not Balanced !