I think that I have fixed the printing problem. I placed the code for
the printer at the beginning of the macro and it appears to be working.

ActiveSheet.PrintOut
Dim fRange As String
fRange = Sheets("Job Pending & Completion
List").Cells.Find(What:=Sheets("Print Invoice").Range("I2").Value, _
After:=Sheets("Job Pending & Completion List").Range("A1"),
LookIn:=xlValues, LookAt:= _
xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext,
MatchCase:= _
False, SearchFormat:=False).Address
With Sheets("Job Pending & Completion List")
.Range(fRange).Offset(0, 7).Value = Date
End With
End Sub


--
theslaz
------------------------------------------------------------------------
theslaz's Profile: http://www.thecodecage.com/forumz/member.php?userid=44
View this thread: http://www.thecodecage.com/forumz/sh...ad.php?t=34925