Active SheeT

[Brian from Maui]

I tried changing this to the active sheet without luck, but then again, I'm a novoice!

Option Explicit
Public Sub PrepareSheetForPrinting()
Dim WkSht As Worksheet
Set WkSht = ThisWorkbook.Sheets("Sheet1")
  SortTeacherThenStudent WkSht
  DoEvents
  SetupPage WkSht

Thanks for looking.

 

[beastman59]

You might try looking at the one I just posted asking if it can be shorter. It prints near the bottom. It includes setting header, footer, font, etc., including asking which printer to print on instead of just assuming default printer.

 

[shg]

Maybe ...

Public Sub PrepareSheetForPrinting()
    SortTeacherThenStudent ActiveSheet
    DoEvents
    SetupPage ActiveSheet
End Sub

 

[Brian from Maui]

Thanks shg

 

[shg]

You're welcome, Brian.