PDF Druck mit Speichern in Pfad

Sub Druck_als_pdf()
On Error GoTo errorhandler
Dim pfad As String
'Wo sollen die PDF- Dateien gespeichert werden?
pfad = "C:\Test\PDF\"
'Tabellenbezeichnung angeben
Sheets(Array("Tabelle1", "Tabelle2")).Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:="Adobe PDF", Collate:=True
Exit Sub
errorhandler:
MsgBox ("Fehler im Modul1 Druck_als_PDF, bitte geben Sie diese Information weiter.")
End Sub

1. Problem: Leider druckt er mir die Blätter nicht als PDF sondern normal über den Drucker.
2. Problem: Ich weiß nicht weiter, wie ich die Daten im benannten Verzeichnis abspeichern kann.
Frage: Da die Tabelle1 und 2 mehrere Seiten zum drucken beinhalten, kann ich die einzelnen Seiten auch als einzelne PDF ablegen lassen? Jede Seite sollte im Dateinamen einen Wert aus einer Zelle besitzen. Z.B. Druckbereich Blatt1 soll den Dateinamen aus Zelle A7 bekommen. Blatt zwei soll den Namen um 71 Zeilen nach unten versetzt bekommen. Die Blätter die zu drucken sind beinhalten immer 71 Zeilen bis das nächste Blatt anfängt. Ich weiß nicht ob da ein relativer Verweis helfen würde.
Ich möchte mich vorab für jede Hilfe bedanken.
Viele Grüße
Thomas