New page for each record?

[bluedogz]

Good evening!

I've been tasked with updating a roster to allow recordkeeping of a group.

Specifically, a user will enter a roster of 0-38 records,1 record per row, each row containing fields [FIRSTNAME],[LASTINITIAL],[ROOMNUMBER], and a Y/N checkbox.

From that, I need to generate printed output of each record/row on a separate printed page. I want to also assure I only print as many pages as there are records; the number of records varies day-to-day. Each printed page will then be used for handwritten note-taking later.

I'm kind of stymied on this one. Any guidance?

 

[footoo]

Select the rows then run this :

Sub v()
Dim r%
With ActiveSheet
    For r = 1 To .Selection.EntireRow.Rows.Count
        .PageSetup.PrintArea = Selection(r).EntireRow.Address
        .PrintOut
    Next
    .PageSetup.PrintArea = ""
End With
End Sub

 

[bluedogz]

Select the rows then run this :

Sub v()
Dim r%
With ActiveSheet
    For r = 1 To .Selection.EntireRow.Rows.Count
        .PageSetup.PrintArea = Selection(r).EntireRow.Address
        .PrintOut
    Next
    .PageSetup.PrintArea = ""
End With
End Sub

Very helpful!

Now, this needs to be set up so that each day, a person (not me) fills in the roster, and then prints the resulting pages I described. Thus, selecting rows and running a script isn't in the cards. Ultimately, I want to simply fill in the rows of the roster, click "Print entire workbook," and be done with it.

 

[footoo]

What is the first column with data?
"Print entire workbook" - what does this mean? Is there more than one sheet to print?

 

[bluedogz]

What is the first column with data?
"Print entire workbook" - what does this mean? Is there more than one sheet to print?

As of now, the dates will have 0-38 rows, and 4 columns ( [FIRSTNAME],[LASTINITIAL],[ROOMNUMBER], and a Y/N checkbox).
As of now, column A is headed FIRSTNAME but that can be adjusted as necessary.

There is not more than one sheet- sorry, I misspoke.

 

[footoo]

Sub v()
Dim rng As Range, r%
Set rng = Range([A2], Cells(Rows.Count, "A").End(3))
For r = 1 To rng.Rows.Count
    PageSetup.PrintArea = rng(r).EntireRow.Address
    PrintOut
Next
PageSetup.PrintArea = ""
End Sub

 

[bluedogz]

Sub v()
Dim rng As Range, r%
Set rng = Range([A2], Cells(Rows.Count, "A").End(3))
For r = 1 To rng.EntireRow.Rows.Count
    PageSetup.PrintArea = rng(r).EntireRow.Address
    PrintOut
Next
PageSetup.PrintArea = ""
End Sub

As I read, the user will still have to select the rows and then run this script. This is useful, but the goal is to simply fill in the roster and have subsequent pages auto-populate with the relevant records. The user base doesn't have the skill nor inclination to run scripts.

 

[footoo]

As I read, the user will still have to select the rows and then run this script. This is useful, but the goal is to simply fill in the roster and have subsequent pages auto-populate with the relevant records. The user base doesn't have the skill nor inclination to run scripts.

The user does not have to select the data. Put a button on the sheet and assign the macro.

If you want, can add a message box to ask the user whether he wants to print when the button clicked.