How do I set an EXCEL worksheet to print one row of data per page
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. |
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. |
How do I set an EXCEL worksheet to print one row of data per page
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 Befo=.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. Carol wrote: 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 |
All times are GMT +1. The time now is 08:46 PM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com