Got a strange problem:

A document has a corporate logo, which doesn't need to be printed on
the clients pc (as he has preprinted paper). The logo does need to be
printed other computers (when client for example mails a document).

My solution is as follows: intercept the print commands on clients pc,
hide the logo before printing, show it again when ready.

Code is on bottom of page. The strange problem is: When I open the
document and try to print, it doesn't work the first time, but it does
work the second. Both times the sub is called and processed with no
errors, as both times I get the messageBoxes(!). Also, it does work
directly when the VBA window is open.

Any ideas?

Code:

Sub FilePrint()
   'To intercept File > Print and CTRL-P
   toggleLogos

End Sub

Sub FilePrintDefault()
   'To intercept the Standard toolbar button
   toggleLogos True

End Sub

Sub toggleLogos(Optional toolbar As Boolean = False)

   Dim logo As Shape, headerLogo As Shape

   ' fetch prenamed shapes
   Set logo = Application.ActiveDocument.Shapes("Logo")
   Set headerLogo =
Application.ActiveDocument.Sections.Item(1).Headers.Item(wdHeaderFooterPrimary).Shapes("LogoHeader")

   ' Just to check if this sub is called properly
   MsgBox logo.Name
   MsgBox headerLogo.Name

   ' hide shapes
   logo.Visible = msoFalse
   headerLogo.Visible = msoFalse

   ' show print dialog or just spit it out
   If toolbar Then
       ActiveDocument.PrintOut
   Else
       Dialogs(wdDialogFilePrint).Show
   End If

   ' show shapes
   logo.Visible = msoTrue
   headerLogo.Visible = msoTrue
   
End Sub