G
Guest
I can't get a reply to incrementing dates so I manually wrote a macro that
would start with Jan 1 2004 then print, go to the next line of code Jan 2
2004 then print. I tried to add lines in between for dates Jan 3, Jan 4,
etc. What is printing out is the first select and the last select. What is
wrong with it. *I ' the lines out to see the code run but does not print out
with the 'references removed
Range("I1:J1").Select
ActiveCell.FormulaR1C1 = "1/1/2004"
Range("I2").Select
Application.Goto Reference:="Print_Area"
Selection.PrintOut Copies:=1, Collate:=True
Range("I1:J1").Select
ActiveCell.FormulaR1C1 = "1/2/2004"
Range("I2").Select
Application.Goto Reference:="Print_Area"
Range("I1:J1").Select
ActiveCell.FormulaR1C1 = "1/3/2004"
Range("I2").Select
Application.Goto Reference:="Print_Area"
'Range("I1:J1").Select
'ActiveCell.FormulaR1C1 = "1/4/2004"
'Range("I2").Select
'Application.Goto Reference:="Print_Area"
'Range("I1:J1").Select
'ActiveCell.FormulaR1C1 = "1/5/2004"
'Range("I2").Select
Application.Goto Reference:="Print_Area"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End Sub
would start with Jan 1 2004 then print, go to the next line of code Jan 2
2004 then print. I tried to add lines in between for dates Jan 3, Jan 4,
etc. What is printing out is the first select and the last select. What is
wrong with it. *I ' the lines out to see the code run but does not print out
with the 'references removed
Range("I1:J1").Select
ActiveCell.FormulaR1C1 = "1/1/2004"
Range("I2").Select
Application.Goto Reference:="Print_Area"
Selection.PrintOut Copies:=1, Collate:=True
Range("I1:J1").Select
ActiveCell.FormulaR1C1 = "1/2/2004"
Range("I2").Select
Application.Goto Reference:="Print_Area"
Range("I1:J1").Select
ActiveCell.FormulaR1C1 = "1/3/2004"
Range("I2").Select
Application.Goto Reference:="Print_Area"
'Range("I1:J1").Select
'ActiveCell.FormulaR1C1 = "1/4/2004"
'Range("I2").Select
'Application.Goto Reference:="Print_Area"
'Range("I1:J1").Select
'ActiveCell.FormulaR1C1 = "1/5/2004"
'Range("I2").Select
Application.Goto Reference:="Print_Area"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End Sub