Colin, copy the following code and paste it in a standard module.  It
determines which worksheets contain data and prints them, skipping the ones
without data.  Note that it is only concerned with the active workbook and
only looks for cell data.  It does not look for things such as formatting
and comments.  HTH, James

Sub PrintNonEmpty()
   'prints all non-empty worksheets in active workbook
   Dim ws As Worksheet
   For Each ws In ActiveWorkbook.Worksheets
       ws.Activate
       If WorksheetFunction.CountA(Cells) <> 0 _
       Then ws.PrintOut
   Next ws
End Sub