It will if you use the Workbook_BeforePrint event. For example:

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim ws As Worksheet
Cancel = True
Application.EnableEvents = False
For Each ws In ActiveWindow.SelectedSheets
ws.Range("B1").Value = NextSeqNum
ws.PrintOut
Next ws
Application.EnableEvents = True
End Sub

In article ,
"thecashman" wrote:

Does this work considering my worksheets are not templates?