Printing Multiple Sheets

L

Little Penny

How do I get this macro to print more the on sheet For example sheets
1 to 5.

Sub doprint()
'
' doprint Macro
' Macro recorded 9/25/2003 by AvilaJ

Dim i As Integer
Dim oCell As Range


Jummber1 = InputBox("Start in Job Number?", " First Job to Print", 0)
Jummber2 = InputBox("Finish in Job Number?", " Last Job to Print", 0)

Range("I40").Select
ActiveCell.FormulaR1C1 = Jummber1
Range("I41").Select
ActiveCell.FormulaR1C1 = Jummber2

For Counter = Jummber1 To Jummber1
Range("L5").Select
ActiveCell.FormulaR1C1 = Counter
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1,
Collate _
:=True
Next Counter

End Sub
 

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

Printing Multiple Sheets 1
Looking for solution on Printing multiple sheets 1
How do I "if statement" 5
Help with runtime error 424 Object required 1
Input box cancel 1
Help needed! Extracting Heading 3 and Contents from a Word Doc to Excel 0
Need Help with Printing multiple sheets 2
Need Help with printing multiple sheets Please 7

Top