JE,
AWESOME!!!! Sooo simply to modify and WORKS EXACTLY AS I hoped it could
... ELEGANT!!!! Thanks ...
Jim Pellechi
Function PageToPrintOrView(iStart As Integer, iFinish As _
Integer, iPrintOrView As Integer)
' Routine receives:
' iStart Value: Start Page #
' iFinish Value: Finish Page #
' iPrintOrView Value: 0 = Print / 1 = PrintPreview
ActiveSheet.Select
With ActiveSheet
.PrintOut From:=iStart, To:=iFinish, _
Preview:=iPrintOrView, Copies:=1, Collate:=True
End With
End Function
*** Sent via Developersdex
http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!