Excel Macro

J

jatman

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

Making a macro only work on certain files 2
macro does not work in Office 2007... suggestions: 2
VBA Coding Help for Beginner 0
Word macro that can call cells out of Excel for a find and replace 0
Change a great number of words in word files, with a macro as short as possible. 5
Macro to Select text from a point given to a specific word 2
Supress Rows Before Printing - Toolbar Icons become disable 2
please help.is it possible re-edit macro to convert text like1530-2200 to time format automatically? 1

Top