Change Header/Footer w/ Worksheet Option Buttons

[Ryan H]

I have a workbook named QUOTES that uses a referenced add-in workbook named
Add-In which contains all code to manipulate QUOTES. I have 2 option buttons
on Sheet1 in QUOTES. One named optAdTech and the other optFormetco. These
option buttons represent two different companies. I need to change the
Header and Footer information to whichever company option button is true when
the quote is printed in the BeforePrint Event in QUOTES.

What is the best way to do this? Note: Left Header is company logo, Right
Header is company address, Center Footer is text.

Would it be possible to save the AdTech's header/footer information and
Formetco's header/footer information in the Add-In and then apply it in
QUOTES? For example:

Private Sub Workbook_BeforePrint(Cancel As Boolean)

Select Case True

Case optAdTech
' call AdTech header/footer data from add-in

Case optFormetco
' call Formetco header/footer data from add-in

End Select

End Sub

 

[Dave Peterson]

Check your other post.

I have a workbook named QUOTES that uses a referenced add-in workbook named
Add-In which contains all code to manipulate QUOTES. I have 2 option buttons
on Sheet1 in QUOTES. One named optAdTech and the other optFormetco. These
option buttons represent two different companies. I need to change the
Header and Footer information to whichever company option button is true when
the quote is printed in the BeforePrint Event in QUOTES.

What is the best way to do this? Note: Left Header is company logo, Right
Header is company address, Center Footer is text.

Would it be possible to save the AdTech's header/footer information and
Formetco's header/footer information in the Add-In and then apply it in
QUOTES? For example:

Private Sub Workbook_BeforePrint(Cancel As Boolean)

Select Case True

Case optAdTech
' call AdTech header/footer data from add-in

Case optFormetco
' call Formetco header/footer data from add-in

End Select

End Sub