Excel Macro

G

Guest

the macro that i is:

Private Sub Workbook_BeforePrint(Cancel As Boolean)
If ActiveSheet.Name = "DSR" Then
Cancel = True
Application.EnableEvents = False
With ActiveSheet
If .Range("D1") <> "[Ctrl] ;" Then
.PrintOut
End If
End With
Application.EnableEvents = True
End If
End Sub

i would like to change it so that another condition is also met.

Cell "F57" must equal 0.00 before print out also. i tried

Private Sub Workbook_BeforePrint(Cancel As Boolean)
If ActiveSheet.Name = "DSR" Then
Cancel = True
Application.EnableEvents = False
With ActiveSheet
If .Range("D1") <> "[Ctrl] ;" And ("F57") = "0.00" Then
.PrintOut
End If
End With
Application.EnableEvents = True
End If
End Sub

it is not as easy as i had hoped - suggestions?

jat jaswal
 
D

Don Guillett

Pls don't use private email of posters unless invited. Try
If .Range("D1") <> "[Ctrl] ;" And range("F57") = "0.00" Then
Click to expand...
If .Range("D1") <> "[Ctrl] ;" And range("F57") = 0 Then

--
Don Guillett
SalesAid Software
(e-mail address removed)
Don Guillett said:
If .Range("D1") <> "[Ctrl] ;" And range("F57") = "0.00" Then

--
Don Guillett
SalesAid Software
(e-mail address removed)
jatman said:
the macro that i is:

Private Sub Workbook_BeforePrint(Cancel As Boolean)
If ActiveSheet.Name = "DSR" Then
Cancel = True
Application.EnableEvents = False
With ActiveSheet
If .Range("D1") <> "[Ctrl] ;" Then
.PrintOut
End If
End With
Application.EnableEvents = True
End If
End Sub

i would like to change it so that another condition is also met.

Cell "F57" must equal 0.00 before print out also. i tried

Private Sub Workbook_BeforePrint(Cancel As Boolean)
If ActiveSheet.Name = "DSR" Then
Cancel = True
Application.EnableEvents = False
With ActiveSheet
If .Range("D1") <> "[Ctrl] ;" And ("F57") = "0.00" Then
.PrintOut
End If
End With
Application.EnableEvents = True
End If
End Sub

it is not as easy as i had hoped - suggestions?

jat jaswal
Click to expand...
Click to expand...
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

macro does not work in Office 2007... suggestions: 2
Supress Rows Before Printing - Toolbar Icons become disable 2
Print Preview Macro 1
Set Printable area to skip columns 2
Problem w/ Print Macro 3
please help.is it possible re-edit macro to convert text like1530-2200 to time format automatically? 1
select printer macro 1
Trying to run excel vba code when cell value changes from empty to entered value. 1

Top