Per VBA Datei mit Druckoptionen speichern
14.09.2016 10:38:52
BM-King
bisher hat mir Euer Forum immer sehr gut geholfen, indem ich die bisherigen Themen durchforstet habe. Zu meinem Problem kann ich nun leider nichts finden.
Ich kopiere einen Teil einer bestehenden Tabelle in eine neue Mappe. Diese Mappe speicher ich dann, versende sie per mail und lösche sie wieder. Vor dem Speichern stelle ich die Druckoptionen ein. Wenn ich das Makro vor dem Schließen der neuen Datei stoppe, sind alle Druckoptionen korrekt eingestellt. Wenn ich das Makro nach dem schließen stoppe, und die zwischengespeicherte Datei öffne, sind alle Druckoptionen wieder auf Standard.
Hier einmal der entscheidende Auszug:
'** Druckformat auf eine Seite Querformat anpassen
Cells.Find(What:="Person", After:=ActiveCell, LookIn:= _
xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:= _
xlNext, MatchCase:=False, SearchFormat:=False).Activate
Dim LastRow As Long
Dim LastZelle As Long
LastRow = Cells(Rows.Count, 12).End(xlUp).Row
LastColumn = Cells(ActiveCell.Row, Columns.Count).End(xlToLeft).Column
Application.PrintCommunication = True
ActiveSheet.PageSetup.PrintArea = Range("$A$1", Cells(LastRow, LastColumn))
Application.PrintCommunication = False
With ActiveSheet.PageSetup
.Orientation = xlLandscape
.FitToPagesWide = 1
.FitToPagesTall = 1
End With
'** Blatt temporär in vorgegebenes Verzeichnis abspeichern
ActiveWorkbook.SaveAs strPfad & "\" & ActiveSheet.Name
'** Pfad und Dateiname der neuen Datei zwischenspeichern
strDatei = ActiveWorkbook.FullName
'** Erzeugte Datei schließen
Workbooks(Dir(strDatei)).Close
'** Mail erzeugen