Thread: Help adding a condition to a print code
View Single Post
  #2   Report Post  
Posted to microsoft.public.excel.programming
GS[_2_] GS[_2_] is offline
external usenet poster
  
Posts: 3,514
Default Help adding a condition to a print code
Try editing your loop as follows...

For lngLoop = 1 To rngItems.Rows.Count

If rngItems.Cells(lngLoop, 1) < "Vacant" _
And rngItems.Cells(lngLoop, 1) < "Proposed" Then
Range("E3") = rngItems.Cells(lngLoop, 1)
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End If

Next

HTH

--
Garry

Free usenet access at http://www.eternal-september.org
ClassicVB Users Regroup! comp.lang.basic.visual.misc


Reply With QuoteReply With Quote