Option Explicit
Public Sub create_PDF_files()
Dim colPrintAreas As New Collection
Dim rng As Range
Dim i As Integer
Dim wks As Worksheet
Set wks = Worksheets("Tabelle1")
Call get_printAreas(colPrintAreas)
For Each rng In colPrintAreas
With wks
i = i + 1
.PageSetup.PrintArea = rng.Address
.ExportAsFixedFormat Type:=xlTypePDF, Filename:=ThisWorkbook.Path & "\PDF_" & i & ".pdf", Quality:=xlQualityStandard, IgnorePrintAreas:=False, OpenAfterpublish:=False
End With
Next rng
Set wks = Nothing
Set colPrintAreas = Nothing
Set rng = Nothing
End Sub
Private Function get_printAreas(ByRef col As Collection)
With col
.Add Range("A1", "C1")
.Add Range("A2", "C2")
.Add Range("A3", "C3")
End With
End Function