View Single Post
  #2   Report Post  
Posted to microsoft.public.excel.misc
Jim Cone Jim Cone is offline
external usenet poster
 
Posts: 3,290
Default How do I set an EXCEL worksheet to print one row of data per page


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"
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.
 
ExcelBanter Database Error
Database Error Database error
The ExcelBanter database has encountered a problem.

Please try the following:
  • Load the page again by clicking the Refresh button in your web browser.
  • Open the www.excelbanter.com home page, then try to open another page.
  • Click the Back button to try another link.
The www.excelbanter.com forum technical staff have been notified of the error, though you may contact them if the problem persists.
 
We apologise for any inconvenience.