How do I set an EXCEL worksheet to print one row of data per page

[Guest]

Hi. I have entered the wonderful world of barcoding.

I want to create and print my barcodes in Excel. So far, I've been able to
do the create part with no problem.

Now, I need advice on how to set up my spreadsheet to AUTOMATICALLY print
one row of data per page. My spreadsheet has three columns of data:
Student ID number, Student ID number in BARCODE format, and Student Name.
So, each printed page will contain one student's data.

My worksheet will contain data for MANY students, so manually entering page
breaks is not an option.

Any help would be appreciated.

 

[Jim Cone]

Carol,
If you up to running a macro, select the columns you
want to print and run the following code...
'----------------------------
Sub PrintEachRow()
'06/30/2005 - Jim Cone - San Francisco, USA
'Prints each row in the selection - skips any blank rows.
Dim rngPrint As Excel.Range
Dim rngRow As Excel.Range
Set rngPrint = Application.Intersect(Selection, ActiveSheet.UsedRange)

If Not rngPrint Is Nothing Then
For Each rngRow In rngPrint.Rows
If Application.CountA(rngRow) > 0 Then
rngRow.PrintOut copies:=1
End If
Next
End If
Set rngPrint = Nothing
Set rngRow = Nothing
End Sub
--
Jim Cone
San Francisco, USA
http://www.realezsites.com/bus/primitivesoftware



"Carol" <[email protected]>
wrote in message
Hi. I have entered the wonderful world of barcoding.
I want to create and print my barcodes in Excel. So far, I've been able to
do the create part with no problem.
Now, I need advice on how to set up my spreadsheet to AUTOMATICALLY print
one row of data per page. My spreadsheet has three columns of data:
Student ID number, Student ID number in BARCODE format, and Student Name.
So, each printed page will contain one student's data.
My worksheet will contain data for MANY students, so manually entering page
breaks is not an option.
Any help would be appreciated.

 

[Dave Peterson]

I'd use a macro to insert the page breaks.

Option Explicit
Sub testme()
Dim iRow As Long
With Worksheets("sheet1")
.ResetAllPageBreaks
For iRow = 2 To .Cells(.Rows.Count, "A").End(xlUp).Row
.HPageBreaks.Add Before:=.Cells(iRow, "A")
Next iRow
End With
End Sub


Then you could set up the page layout to have row 1 to repeat at top (if
required). And print.