With 1500 jobs, I don't know how practical my solution is.  You can hide the
rows that don't have information on them, and Excel will print only the rows
still showing.  To hide rows, select the rows you want hidden, then either
right click and select Hide or use the Format menu to click on Rows and then
select Hide.

Sarah Jane

If you have one particular column that you could use to determine the last
row actually used on the sheet, then you could use this macro as the basis
for a routine you could call before printing the sheet to redefine the print
area:

Change the A and K entries to include the actual columns to be printed, and
change the "B" to whatever column you know will be the longest one (one with
data farthest down the sheet) and it should work.  If for some reason you
aren't starting your printout with row 1, then change the "1:" to the first
row to be printed?

You could put this as a general macro to be called manually, or use the body
of it as the basis (needs some modification) within the workbook's
"BeforePrint" event handler.

Sub SetPrintRange()
'
   Dim NewPrintRange As String
   Const FirstColumnToPrint = "A" 'change as required
   Const LastColumnToPrint = "K" ' change as required
   Const LongestColumn = "B" ' change as required
   'assumes printing from row 1
   
   NewPrintRange = FirstColumnToPrint & "1:" & _
       LastColumnToPrint & _
       Trim(Str(Range(LongestColumn & "65536").End(xlUp).Row))
   ActiveSheet.PageSetup.PrintArea = NewPrintRange
End Sub