Before Print question

Here's some code I use to do a few tricks before print. Your need to test for the right sheet first.

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim sht As Worksheet
Dim intResponse As Integer
'Prompts the user for a date if printing the PROPOSAL
If ActiveSheet.Name = ("PROPOSAL") Then
Range("F28").Select
intResponse = MsgBox(prompt:="INSERT TODAY'S DATE?", _
Buttons:=vbQuestion + vbYesNoCancel, Title:="REMINDER")
Select Case intResponse
Case vbYes
ActiveCell.FormulaR1C1 = "=TODAY()"
Selection.NumberFormat = "mmmm d, yyyy"
Selection.Copy
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Application.CutCopyMode = False
Case vbNo
Exit Sub
Case vbCancel
Cancel = True
End Select
End If
'Inserts the path in the footer of every sheet
For Each sht In ThisWorkbook.Sheets
sht.PageSetup.LeftFooter = "&8" & _
ThisWorkbook.FullName
Next sht
End Sub

This is my first posting here, but your question intrigued me. The only thing I ever saw that might get you what you appear to want was a Mr. Excel tip about copying code into new workbooks.

You might pursue the following idea,
save your Workbook_BeforePrint() subroutine into a text (or bas?) file. Then when you go to copy the sheet figure out a way to execute the following in the target workbook:

Workbooks(x). ...

or

ActiveWorkbook.VBProject.VBComponents("ThisWorkbook").CodeModule.AddFromFile "C:my beforeprint.txt"

Hope this was of some help.