Sub ボタン1_Click()If MsgBox("印刷しますか？", vbQuestion + vbYesNo) = vbYes Then 'Application.ScreenUpdating = False Worksheets("aaa").PrintPreview 'Worksheets("Sheet1").Visible = True Worksheets("aaa").PrintOut 'Worksheets("Sheet1").Visi…