L
Little Penny
Below you will find two thing .First is my current code as is. Second
is my code with insert of what I would like it to do. This has turned
out to be a lot harder than I thought.
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
WHAT I WANT IT TO DO BELOW
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 Jummber2
(I would Like the code to maKE Sheet1 the active sheet}
Range("L5").Select
ActiveCell.FormulaR1C1 = Counter
(I want the code to Look at cell J74 and use that value for
the total pages to print)
(Make sheet 2 the active sheet and start printint)
(Example if J74 is 5 I want to print 5 sheets starting with
sheet 2 thru sheet 6)
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1,
Copies:=1, Collate _ (Idon't know if I need this)
:=True
Next Counter
End Sub
Please Please Help...........
is my code with insert of what I would like it to do. This has turned
out to be a lot harder than I thought.
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
WHAT I WANT IT TO DO BELOW
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 Jummber2
(I would Like the code to maKE Sheet1 the active sheet}
Range("L5").Select
ActiveCell.FormulaR1C1 = Counter
(I want the code to Look at cell J74 and use that value for
the total pages to print)
(Make sheet 2 the active sheet and start printint)
(Example if J74 is 5 I want to print 5 sheets starting with
sheet 2 thru sheet 6)
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1,
Copies:=1, Collate _ (Idon't know if I need this)
:=True
Next Counter
End Sub
Please Please Help...........