The views expressed in this blog are those of the owner and do not reflect the views or opinions of the owner’s employer. All content provided on this blog is for informational purposes only. The owner of this blog makes no representations as to the accuracy or completeness of any information on this site or found by following any link on this site. The owner will not be liable for any errors or omissions in this information nor for the availability of this information. The owner will not be liable for any losses, injuries, or damages from the display or use of this information. This policy is subject to change at any time. The owner is not an attorney, and nothing posted on this site should be construed as legal advice. Litigation Support Tip of the Night does not provide confirmation that any e-discovery technique or conduct is compliant with legal, regulatory, contractual or ethical requirements.
Featured on the ACEDS blog.
Follow me on Twitter and see How-To Videos on my YouTube channel.
New tips for paralegals and litigation support profesionals are posted to this site each night. Click on the blog headings for better detail.
If you right click on a worksheet in Excel, you'll be able to 'Select All Sheets' and perform many editing tasks on all worksheets simultaneously. However, under Page Layout . . . Page Setup . . .on the Sheet tab, you will not be able to enter a range in the Print titles section for, "Rows to repeat at top" - it is grayed out, disabled. This setting makes column headers in one or more rows, repeat on each page of a worksheet printed to a PDF or hard copy.
Gord Dibben posted Visual Basic code here which will allow you to designate a range of rows to be entered in the "Rows to repeat at top" field on all worksheet.
Press ALT + F11 to enter Visual Basic and enter the below vba code in a new module [right click on the workbook name in the project list and select Insert . . . Module]. Designate the rows on the line which begins, "ws.PageSetup.PrintTitleRows", preceding each row number with a dollar sign. Press play and the row range will be entered for each worksheet.
Sub test() Dim ws As Worksheet For Each ws In ActiveWorkbook.Sheets 'For Each ws In ActiveWindow.SelectedSheets If ws.Type = xlWorksheet Then ws.PageSetup.PrintTitleRows = "$1:$3" End If Next End Sub