Microsoft Excel

Herbers Excel/VBA-Archiv

excel tabelleninhalt an seite anpassen

Betrifft: excel tabelleninhalt an seite anpassen von: derb
Geschrieben am: 19.08.2004 11:16:24

wie kann ch per vba den inhalt einer excel tabelle auf 1 seite anpassen???
vorallem die breite anpassen interessiert mich

  


Betrifft: AW: excel tabelleninhalt an seite anpassen von: DieterB
Geschrieben am: 19.08.2004 12:08:36

Sub Makro1()
'
' Makro1 Makro
' So, mal kurz aufgezeichnet
'

'
    With ActiveSheet.PageSetup
        .PrintTitleRows = ""
        .PrintTitleColumns = ""
    End With
    ActiveSheet.PageSetup.PrintArea = ""
    With ActiveSheet.PageSetup
        .LeftHeader = ""
        .CenterHeader = ""
        .RightHeader = ""
        .LeftFooter = ""
        .CenterFooter = ""
        .RightFooter = ""
        .LeftMargin = Application.InchesToPoints(0.787401575)
        .RightMargin = Application.InchesToPoints(0.787401575)
        .TopMargin = Application.InchesToPoints(0.984251969)
        .BottomMargin = Application.InchesToPoints(0.984251969)
        .HeaderMargin = Application.InchesToPoints(0.4921259845)
        .FooterMargin = Application.InchesToPoints(0.4921259845)
        .PrintHeadings = False
        .PrintGridlines = False
        .PrintComments = xlPrintNoComments
        .PrintQuality = 300
        .CenterHorizontally = False
        .CenterVertically = False
        .Orientation = xlPortrait
        .Draft = False
        .PaperSize = xlPaperA4
        .FirstPageNumber = xlAutomatic
        .Order = xlDownThenOver
        .BlackAndWhite = False
        .Zoom = False
        .FitToPagesWide = 1
        .FitToPagesTall = 1
    End With
    ActiveWindow.SelectedSheets.PrintPreview
End Sub


Gruß

DieterB

P.S. Datei, Seite einrichten


 

Beiträge aus den Excel-Beispielen zum Thema "excel tabelleninhalt an seite anpassen"