Sub Kunden()
Dim PR1 As PrintRange
Dim PR2 As PrintRange
Dim FPR As PrintRange
Dim Path As String
Path = "C:\Users\ZOYARINK\Documents"
Select Case MsgBox("Sind Sie Kunde A?", vbQuestion + vbYesNo, "Kunde")
Case vbYes
With ActivePresentation.PrintOptions
.RangeType = ppPrintSlideRange
With .Ranges
.ClearAll
Set PR1 = .Add(Start:=1, End:=1)
Set PR1 = .Add(Start:=3, End:=3)
End With
End With
ActivePresentation.ExportAsFixedFormat _
Path & "\" & "PDFTest2.pdf", _
FixedFormatType:=ppFixedFormatTypePDF, _
PrintRange:=PR1, _
RangeType:=ppPrintSlideRange
Case vbNo
Select Case MsgBox("Sind Sie Kunde B?", vbQuestion + vbYesNo, "Kunde")
Case vbYes
Case vbNo
End Select
End Select
End Sub