Sub file_printpreview() ActiveWindow.SelectedSheets.PrintPreview '現在表示されているページのプレビュー WorkSheets("Sheet1").PrintPreview 'Sheet1のプレビュー End Sub