Sub Ansicht()
    T_B.Activat  --- T_B ist ein Tabellenblatt einer zweiten Arbeitsmappe ---
    ActiveWindow.SelectedSheets.PrintPreview
End Sub

Im Testmodus und Einzelschritt funktionier alles.
Beim Aufruf über eine Schaltfläche wird die Druckansicht
dargestellt aber die Menüs -Druck-Zoom-Seitenansicht schließen- werden zwar dargestellt sind aber inaktiv.