怎样设置excel的打印设置？

Question

如：纸张类型及打印方向等！请给出源码，特急

Answer 1

你可以调用API设置和在excel设置是一样的

Answer 2

huojiehai(海天子),可以具体说一说吗？

Answer 3

你也可以用dialogs页的控件的Tpagesetupdialog\TPrintDialog\TPrinterSetupDialog

Answer 4

我想用这样的语句：eclapp.activesheet.PageSetup.Orientation:=poLandscape;进行设置，不过不对，虽然不出错，但没有产生效果，应该怎么办呢？

Answer 5

excelworksheet2.PageSetup.Orientation:=XLLANDSCAPE;
excelworksheet2.PageSetup.PaperSize:=XLPAPERA4;
纸张为A4,方向为横向,可参看OFFICE的VBA帮助

Answer 6

Sheet.PageSetup.CenterFooter := '&"宋体,加粗"&28&P';
      --------- ------------      ---------  -- --
      页脚设置    居中文字            字体   大小 P代表第几页
                LeftFooter                28为字体大小 
                 居左文字
                RightFooter
                 居右文字

Answer 7

页脚倒是没用过不过我录制一段宏也许对你有帮助    With ActiveSheet.PageSetup
        .LeftHeader = ""
        .CenterHeader = ""
        .RightHeader = ""
-----------------------------------------------------------
        .LeftFooter = "&""黑体,常规""ABCD"
-------------------------------------------------------------
        .CenterFooter = ""
        .RightFooter = ""
        .LeftMargin = Application.InchesToPoints(0.75)
        .RightMargin = Application.InchesToPoints(0.75)
        .TopMargin = Application.InchesToPoints(1)
        .BottomMargin = Application.InchesToPoints(1)
        .HeaderMargin = Application.InchesToPoints(0.5)
        .FooterMargin = Application.InchesToPoints(0.5)
        .PrintHeadings = False
        .PrintGridlines = False
        .PrintComments = xlPrintNoComments
        .PrintQuality = 600
        .CenterHorizontally = False
        .CenterVertically = False
        .Orientation = xlPortrait
        .Draft = False
        .PaperSize = xlPaperA4
        .FirstPageNumber = xlAutomatic
        .Order = xlDownThenOver
        .BlackAndWhite = False
        .Zoom = 100
    End With

Answer 8

XL.ActiveSheet.PageSetup.PaperSize := xlPaperA3;
    //纸张
    Xl.ActiveSheet.PageSetup.Orientation := xlLandscape;
    //纸张方向
    Xl.ActiveSheet.PageSetup.CenterHorizontally := True;
    //是否居中打印
    XL.ActiveSheet.PageSetup.TopMargin := 20;
    //上边距
    XL.ActiveSheet.PageSetup.BottomMargin := 30;
    //下边距
    XL.ActiveSheet.PageSetup.LeftMargin := 20;
    //左边距
    XL.ActiveSheet.PageSetup.RightMargin := 20;
    //右边距其中Xl为CreateOleObject('Excel.Application')