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.