Printing Dates on One Sheet

S

SSADA

I have one template that i print for our production floor. Each sheet has
seven dates printed; Monday thru Sunday. I need to print this one template
52 times for each week of the year. Is there a formula that i could enter
one day (i.e. the first date for the first monday) and automtically print the
rest of the weeks. in essence, press the print button one time, but the same
template will print 52 times with each week on the sheet?
 
S

SSADA

i wonder if i could show you the template. basically it has seven columns
with dates. i only have one sheet and have to change the date for each
monday and reprint for each week. i was hoping i could only print once and
then it will automtically print all 52 weeks.
 
R

ryguy7272

Sure, send it: (e-mail address removed)
in the email, give a little more instructions please.
 
R

ryguy7272

Ah! Now I get it. Put 1/4/1020 in Cell R1. =R1+7 in R2, and fill down for
53 rows.
Then run this code:

Sub PrintMacro()
Dim rng As Range
Set rng = Range(Range("R1"), Range("R1").End(xlDown))

For Each Cell In rng

Cell.Select
Application.CutCopyMode = False
Selection.Copy
Range("B7:C7").Select
ActiveSheet.Paste

ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate _
:=True

rng.Offset(1, 0).Select


Next
End Sub
 
S

SSADA

this worked great!!!!!!!!!!

i finally got a chance to run the code! you could not have been more
helpful, i appreciate it GREATLY!!!!!!!!!
 

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

Top