printpreview

[Sytse1]

Bij het gebruik van mijn toepassing zijn de menu's verborgen.
Met behulp van de knop printen kan de gebruiker o.a. een printpreview activeren.
De vba code hiervoor is:

With ActiveSheet
  .PageSetup.PrintArea = .UsedRange.Address
    If MsgBox("Voor Printvoorbeeld kies Ja. Kies Nee voor PDF", vbYesNo, "Maak uw keuze") = vbYes Then
    Range("A1:AN42").Select
    Range("A1:AN42").Activate
    Application.ExecuteExcel4Macro "Show.Toolbar(""Ribbon"",True)"
   .PrintPreview

Het vreemde is echter dat in de preview met de linker muisknop in het lege preview geklikt moet worden om de preview te zien te krijgen.
Als ik de code laat uitvoeren met alle menu's geactiveerd het probleem zich niet voordoet.
Bijlage 1 de sheet met de printknop. Bijlage 2 de lege preview en bijlage 3 de preview na de klik met de linker muisklik.
Wat zit er fout in de vba om de klik niet uit te hoeven voeren?

 

[alphamax]

Mijn persoonlijke mening.
Blijf van de ribbon af.
Ik haat het wanneer slechte code mijn ribbon om zeep helpt.
Wil je geen ribbon, schrijf dan een echt windows programma met visual studio o.i.d.