Public WithEvents cbButton As Office.CommandBarButton

Private Sub cbButton_Click( _
  ByVal Ctrl As Office.CommandBarButton, _
  CancelDefault As Boolean)
    wdDoc.Close SaveChanges:=False
    wdApp.Quit
End Sub

Private cls As New Class1
Public wdApp As Word.Application
Public wdDoc As Word.Document

Public Sub OpenDocInPrintPreview()
    Dim cbBar As Office.CommandBar
    
    Set wdApp = New Word.Application
    Set wdDoc = wdApp.Documents.Open("D:\1\Doc1.Doc")
    
    wdApp.Visible = True
    wdDoc.PrintPreview
    wdDoc.Windows( 1 ).View.Zoom.Percentage =  100 
    
    Set cbBar = wdApp.CommandBars("Print Preview")
    
    With cbBar
        Set cls.cbButton = .Controls( 9 )
    End With
End Sub