VB Excel Befehl um Seitenskalierung einzurichten?

  • VB.NET

Es gibt 4 Antworten in diesem Thema. Der letzte Beitrag () ist von ray.

    VB Excel Befehl um Seitenskalierung einzurichten?

    Hey,

    eine sehr spezielle Frage. Ich möchte aus meinem VB Programm erstelle Excel Worksheets automatisch auf ein A4 Skalieren (also unter Excel: Seite einrichten, Skalierung->Anpassen 1 Seite hoch/breit).

    Was kein Problem ist:

    VB.NET-Quellcode

    1. xlsSheet.PageSetup.PaperSize = Excel.XlPaperSize.xlPaperA4 ' A4 Format wählen
    2. xlsSheet.PageSetup.Orientation = Excel.XlPageOrientation.xlLandscape ' Querformat
    3. xlsSheet.PageSetup.ScaleWithDocHeaderFooter = True ' keine Ahnung was das macht aber ich hatte es mal mit reingenommen


    Was noch fehlt:

    Auswählen, dass die Seite auf "1 Seite hoch + 1 Seite breit" angepasst werden soll.

    Kennt jmd diesen speziellen Befehl?

    Danke und Grüße
    Hey,

    vielen Dank für deine Hilfe, allerdings scheint das noch nicht auszureichen.

    VB.NET-Quellcode

    1. xlsSheet.PageSetup.PaperSize = Excel.XlPaperSize.xlPaperA4
    2. xlsSheet.PageSetup.Orientation = Excel.XlPageOrientation.xlLandscape
    3. xlsSheet.PageSetup.FitToPagesWide = 1
    4. xlsSheet.PageSetup.FitToPagesTall = 1


    Das Blatt ist weder Landscape noch auf 1 Seite skaliert. A4 ist es schätzungsweise nur, weil das erste Tabellenblatt in der vorgefertigten Tabelle ebenfalls A4 ist.

    Hast du eine Idee?
    Öffne das Excel.
    Gehe auf Entwicklertools *
    Klicke auf Makro aufzeichnen
    Gehe auf Seitenlayout
    Klicke auf den Pfeil rechts von "Seite einrichten"
    Formatiere deine Seitenansicht so, wie es dir beliebt.
    Stoppe das Makro.
    Alt+F11
    unter Modul1 findest du den aufgezeichneten Makro-Code
    Dort findest du alle Eigenschaften, die du setzen kannst.

    * Falls du die Entwicklertools-Lasche nicht findest, kannst du sie unter "Datei .. Optionen .. Menüband anpassen" einschalten.
    Die Beschreibung bezieht sich auf Excel 2010.
    Unter anderen Versionen kann das leicht anders aussehen.
    --
    If Not Program.isWorking Then Code.Debug Else Code.DoNotTouch
    --