|
Hallo Zusammen
Ich habe ein kleines Problem mit meinem Makro:
Mein Makro soll im Prinzip 5 Tabellenblätter auswählen und als PDF an einem bestimmten Ort abspeichern, am liebsten in einem Pfad wo ich ihn in einem Tabellenblatt definiert habe. und ihn dann spöter mit outlook und einem vorgefertigten text versenden. (text, mailinhalt, email adressen sind alle in einem Tabellenblatt vermerkt, makro sollte am besten darauf verweisen.
meine probleme:
1. es speichert mir das PDF nicht ab obwohl ich hier unten einen Pfad definiert habe.
2. zudem würde ich gerne (weil ich mehrere PDFs als Drucker habe) einen bestimmten PDF wählen und zudem beidseitig und ohne Rand drucken.
Müssen die Druckeinstellungen im Makro eingestellt werden?
3. ich möchte zudem das pdf mit outlook und einem bestimmten text versenden.
Sub Makro2()
Sheets(Array("Tabelle1", "Tabelle2", "Tabelle3", "Tabelle4")).Select
Sheets("Tabelle1").Activate
ActiveWindow.ScrollWorkbookTabs Sheets:=1
ActiveWindow.ScrollWorkbookTabs Sheets:=1
ActiveWindow.ScrollWorkbookTabs Sheets:=1
Sheets(Array("Tabelle1", "Tabelle2", "Tabelle3", "Tabelle4", _
"Tabelle5")).Select
Sheets("Tabelle1").Activate
Dim Dateiname As String
Dateiname = Range("B14")
Sheets("Abschluss").ExportAsFixedFormat Type:=xlTypePDF, Filename:=Dateiname, quality:=x1qualitystandard, includedocproperties:=True, ignoreprintareas:=False, openafterpublish:=True
Const Pfad = "C:\Users\"
End Sub
|