Hallo zusammen, ich habe ein problem und komme einfach nicht auf die Lösung.
Folgendes:
Ich steuere via Outlook VBA ein Excelblatt.
Alle Formatierungen klappen, aber nicht der Teil, wo ich die Seitenränder anpassen will, um das HTML Dokument möglichst groß auf ein Blatt gedruckt zu bekommen. Eigentlich müßte auch der Code für die Seitenränder richtig sein, aber es passiert nichts.
Hier der Code:
Set objExcel = CreateObject("Excel.Application")
objExcel.Workbooks.Open FileName:=Pfad2 & Betreff & ".html"
objExcel.Visible = True 'macht Excelfenster sichtbar
objExcel.ActiveSheet.PageSetup.Orientation = xlPortrait
objExcel.ActiveSheet.PageSetup.Zoom = False
'dieser Teil der Anpassung des Seitenformates klappt nicht; die Seitenränder werden nicht verschoben
objExcel.ActiveSheet.PageSetup.LeftMargin = Application.InchesToPoints(0.28740157480315)
objExcel.ActiveSheet.PageSetup.RightMargin = Application.InchesToPoints(0.28740157480315)
objExcel.ActiveSheet.PageSetup.HeaderMargin = Application.InchesToPoints(0.21740157480315)
objExcel.ActiveSheet.PageSetup.TopMargin = Application.InchesToPoints(0.28740157480315)
objExcel.ActiveSheet.PageSetup.FooterMargin = Application.InchesToPoints(0.21740157480315)
objExcel.ActiveSheet.PageSetup.BottomMargin = Application.InchesToPoints(0.32740157480315)
'bis hier hin klappt es nicht
objExcel.ActiveSheet.PageSetup.FitToPagesWide = 1
objExcel.ActiveSheet.PageSetup.FitToPagesTall = 1
objExcel.ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1
objExcel.ActiveWindow.Close False
myMail.UnRead = False 'Mail auf gelesen setzen
Jemand eine Idee warum die Anpassung der Seitenränder einfach ignoriert werden?
Freue mich auf euer Feedback!
Vielen Dank.
|