macro script for IF & print functions

hi everyone,

I am trying to automate a print process.
In the attached sample spreadsheet, I would like to have a macro to perform this function:

IF sheet 1's cell a1 has a value or not, then sheet 2's cell a1 would equal sheet 1's cell a1, and print sheet 2.
IF next row's column 1 has a value, then sheet 2's cell a1 would equal sheet 1's cell a1, and print sheet 2.
This would continue until sheet 1's next row does not have any value present.

Can anyone please help me out on this? Thank you so much!

Your post does not comply with Rule 1 of our Forum RULES. Your post title should accurately and concisely describe your problem, not your anticipated solution. Use terms appropriate to a Google search. Poor thread titles, like Please Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will be addressed according to the OP's experience in the forum: If you have less than 10 posts, expect (and respond to) a request to change your thread title. If you have 10 or more posts, expect your post to be locked, so you can start a new thread with an appropriate title.
To change a Title on your post, click EDIT then Go Advanced and change your title, if 2 days have passed ask a moderator to do it for you.

It appears that you have followed Roy's instructions and updated the thread title.

So, try:

Sub PrintSheets()

Dim cell As Range

For Each cell In Range("A1:A" & Range("A" & Rows.Count).End(xlUp).Row)
    Sheets("Sheet2").Range("A1") = cell
    ' Sheets("Sheet2").PrintPreview ' for testing
    Sheets("Sheet2").PrintOut

Next

End Sub

Regards

That's how I interpreted your question and that's what the code does ... although I have assumed the range of cells in column 1 has no gaps in it

Sub PrintSheets()

Dim cell As Range

For Each cell In Range("A1:A" & Range("A" & Rows.Count).End(xlUp).Row)
    Sheets("Sheet2").Range("A1") = cell
    ' Sheets("Sheet2").PrintPreview ' for testing
    Sheets("Sheet2").PrintOut

Next

End Sub

This:

Range("A" & Rows.Count).End(xlUp).Row

works out the last row in column A with data in it. If that were, say, 6, it would be the same as:

Range("A1:A6")

And the loop would be:

For Each cell In Range("A1:A6")

This:

    Sheets("Sheet2").Range("A1") = cell

set the value of cell A1 in Sheet2 to the value in the "cell being processed".

    Sheets("Sheet2").PrintOut

prints it out, and:

Next

loops around for the next value.


So, what is it that doesn't work? Does it fail because it tries to print a sheet with no data in it? Are the sheets actually called Sheet1 and Sheet2? Which cells actually have data in them? How would you like me to help you modify the script?

You're welcome.