엑셀 vba 출력_업체시트

Sub 출력_업체시트()

  rt = MsgBox("전체 업소의 데이타를 출력 하시겠습니까?", vbYesNo)

    If rt = vbNo Then

      Application.Cursor = xlDefault

      Application.ScreenUpdating = True

      Application.Calculation = xlCalculationAutomatic

    Exit Sub

  End If

  

  b = Application.DisplayAlerts

  Application.DisplayAlerts = False

  

  Dim s As Variant

  

  For Each s In Sheets

      If Left(s.Name, 1) = "%" Then

        s.PrintPreview

      End If

  Next s

  Application.DisplayAlerts = b

End Sub

.