求打印工作表页面设置代码

没事

求打印工作表页面设置代码：
我要打印Sheet1.[a1:h12]区域表格，要求横向，A4纸，上下左右边距为2，页脚等于Sheet1.[a1]单元格数据。这样的代码写如何，特求老师帮忙。谢谢！

wangchengmao

    Range("A1:H12").Select
    Range("H12").Activate
    ActiveSheet.PageSetup.PrintArea = "$A$1:$H$12"
    With ActiveSheet.PageSetup
        .PrintTitleRows = ""
        .PrintTitleColumns = ""
    End With
    ActiveSheet.PageSetup.PrintArea = "$A$1:$H$12"
    With ActiveSheet.PageSetup
        .LeftMargin = Application.InchesToPoints(0.78740157480315)
        .RightMargin = Application.InchesToPoints(0.78740157480315)
        .TopMargin = Application.InchesToPoints(0.78740157480315)
        .BottomMargin = Application.InchesToPoints(0.78740157480315)
        .HeaderMargin = Application.InchesToPoints(0)
        .FooterMargin = Application.InchesToPoints(A1)
        .PrintHeadings = False
        .PrintGridlines = False
        .PrintComments = xlPrintNoComments
        .CenterHorizontally = False
        .CenterVertically = False
        .Orientation = xlLandscape
        .Draft = False
        .PaperSize = xlPaperA4
        .FirstPageNumber = xlAutomatic
        .Order = xlDownThenOver
        .BlackAndWhite = False
        .Zoom = 100
        .PrintErrors = xlPrintErrorsDisplayed
    End With
    ActiveWindow.SelectedSheets.PrintOut Copies:=1
End Sub

不知道这样行不行，你试试吧！感觉自己弄得有点复杂。但我这边确实能用。呵呵

suxiong

录制宏