Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
Formatierung von Seitenrändern in Excel mittels VBA |
11.03.2013 10:14:08 |
Hoseonline |
|
|
|
12.03.2013 13:55:25 |
Holger |
|
|
|
14.03.2013 10:09:56 |
Hoseonline |
|
|
Von:
Hoseonline |
Datum:
11.03.2013 10:14:08 |
Views:
2120 |
Rating:
|
Antwort:
|
Thema:
Formatierung von Seitenrändern in Excel mittels VBA |
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.
|
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
Formatierung von Seitenrändern in Excel mittels VBA |
11.03.2013 10:14:08 |
Hoseonline |
|
|
|
12.03.2013 13:55:25 |
Holger |
|
|
|
14.03.2013 10:09:56 |
Hoseonline |
|
|