Jak w Delhphi 5 sformatować dane wysłane do excela.

0

Jak w Delhphi 5 sformatować dane wysłane do excela. To znaczy mam table którą eksportuje do excela ale potem chce w excelu aby zmienić wielkość fonta, dopasować marginesy i orientacje strony itp.
Myslałem że robit to funkcja rangee.autoformat(3,NULL,NULL,NULL,NULL,NULL) ale nie znam jej opisu, może ma ktoś opis do tej funkci.

0

Poczytaj pomoc VBA dla Excela, zarejestruj makro, przetłumacz kod na delphi

    With Selection.Font
        .Name = "Arial Black"
        .Size = 14
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = xlAutomatic
    End With
    With ActiveSheet.PageSetup
        .PrintTitleRows = ""
        .PrintTitleColumns = ""
    End With
    ActiveSheet.PageSetup.PrintArea = ""
    With ActiveSheet.PageSetup
        .LeftHeader = ""
        .CenterHeader = ""
        .RightHeader = ""
        .LeftFooter = ""
        .CenterFooter = ""
        .RightFooter = ""
        .LeftMargin = Application.InchesToPoints(0.393700787401575)
        .RightMargin = Application.InchesToPoints(0.393700787401575)
        .TopMargin = Application.InchesToPoints(0.393700787401575)
        .BottomMargin = Application.InchesToPoints(0.393700787401575)
        .HeaderMargin = Application.InchesToPoints(0.511811023622047)
        .FooterMargin = Application.InchesToPoints(0.393700787401575)
        .PrintHeadings = False
        .PrintGridlines = False
        .PrintComments = xlPrintNoComments
        .PrintQuality = 600
        .CenterHorizontally = False
        .CenterVertically = False
        .Orientation = xlLandscape
        .Draft = False
        .PaperSize = xlPaperA4
        .FirstPageNumber = xlAutomatic
        .Order = xlDownThenOver
        .BlackAndWhite = False
        .Zoom = 100
        .PrintErrors = xlPrintErrorsDisplayed
    End With

1 użytkowników online, w tym zalogowanych: 0, gości: 1