Private Sub Form_Click() Dim xlApp As Object Dim xlBook As Object Set xlApp = CreateObject("Excel.Application") Set xlBook = xlApp.Workbooks.Open("c:\tmp\hoge.xls") xlApp.Application.Visible = True xlBook.ActiveSheet.PrintPreview xlApp.Application.Visible = False xlApp.Quit Set xlBook = Nothing Set xlApp = Nothing End Sub