Office: Hilfe benötigt bei der Erstellung eines Makros zum PDF Druck

Hallo zusammen,
ich bin ein absoluter Neuling was Makros angeht, ´genauer gesagt ist dieses mein erstes ever ;-)
Ich habe sehr viel in sämtlichen Foren gelesen, dort findet man ja auch viel, aber viele sind sehr spezifisch, und genau das was ich möchte habe ich bisher nicht finden können.
Vielleicht kann mir hier ja jemand weiterhelfen.
Mein Makro sieht derzeit wie folgt aus:


Sub AlsPDFSpeichern()
Dim pdfName As String
Dim pdfOpenAfterPublish As Boolean
Dim olApp As Object

Rem Rückfragen, ob Datei nach dem Erstellen geöffnet werden soll
If MsgBox("Soll die PDF-Datei nach dem Erstellen angezeigt werden?", vbYesNo, "PDF anzeigen?") = vbYes Then pdfOpenAfterPublish = True

Rem Pfad und Name der PDF-Datei
pdfName = ThisWorkbook.Path & "\" & ThisWorkbook.Name & "_" & ActiveSheet.Name & ".pdf"

Rem PDF-Datei erstellen.
ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:=pdfName, _
Quality:=xlQualityStandard, IncludeDocProperties:=False, IgnorePrintAreas:=False, _
OpenAfterPublish:=IIf(pdfOpenAfterPublish, True, False)


Rem Email erstellen
Set olApp = CreateObject("Outlook.Application")
With olApp.CreateItem(0)
.TO = Range("Z1").Value
.CC = Range("Z2").Value
.Subject = Range("Z3").Value
.htmlBody = Range("Z4").Value
.Attachments.Add pdfName
.Display

End With

Rem Boolean-Variable "pdfOpenAfterPublish" zurücksetzen
pdfOpenAfterPublish = False

End Sub


Das ganze funktioniert soweit auch, nur eins fehlt mir noch: wo kann ich denn sagen, was eigentlich gedruckt wird? Also im Moment habe ich es ja auf "active Workbook", d.h. er druckt iIMMER ALLE excel Sheets in diesem Workbook. Ich möchte aber, dass er nur bestimmte Sheets druckt. Wie kann ich dies einstellen?

Danke vorab.

:)

 

Hallo,

ersetze
Code:

durch
Code:

Dann wird immer das aktuelle Blatt gedruckt...

 

Hi,

stehen die Tabellen fest, die exportiert werden? Dann mal als gedanklicher Ansatz: die Tabellen markieren und dann exportieren und das alles mit dem Makrorekorder aufzeichnen.