VBA 任意指定区域打印

Sub 打印机设置(工作表 As Worksheet, 打印区域 As String, _
        Optional 打印方向 As Boolean = False, Optional 纸张大小 As Long = 1, Optional 右边距 As Long = 1, _
        Optional 左边距 As Long = 1, Optional 上边距 As Long = 2, Optional 下边距 As Long = 1.5, _
        Optional 左页眉 = "", Optional 左页脚 As String = "", Optional 中心页脚 As String = "", _
        Optional 右页脚 As String = "", Optional 标题 As String = "")
    With 工作表.PageSetup
        .Orientation = IIf(打印方向, xlLandscape, xlPortrait)
        .PaperSize = IIf(纸张大小 = 1, xlPaperA4, xlPaperA5)
        .RightMargin = Application.CentimetersToPoints(右边距) '
        .LeftMargin = Application.CentimetersToPoints(左边距)
        .TopMargin = Application.CentimetersToPoints(上边距)
        .BottomMargin = Application.CentimetersToPoints(下边距)
        .CenterHorizontally = True '水平中心
        .LeftHeader = 左页眉
        .LeftFooter = 左页脚
        .CenterFooter = 中心页脚
        .RightFooter = 右页脚
        .PrintTitleRows = 标题
        .PrintArea = 打印区域
        .Zoom = False '自适应缩放
        .FitToPagesWide = 1
        .FitToPagesTall = 100
    End With
End Sub


Sub 逆序打印(工作表 As Worksheet)
    Dim k&, x&
    k = Application.ExecuteExcel4Macro("Get.Document(50)") '获取整份文档的页数
    For x = k To 1 Step -1
        工作表.PrintOut ActivePrinter:="EPSON L130 Series", from:=x, to:=x
    Next
End Sub


复制

Sub 指定区域打印()
    Dim Rng As Range, iRow$, YesNo$, Flag As Boolean, strTitle$
    Dim Sht As Worksheet
    Set Sht = ActiveSheet
    On Error Resume Next
    Set Rng = Application.InputBox("请选择需要打印的区域", "EXCEL VBA 练习 提示!", , , , , , 8)
    If Rng Is Nothing Then MsgBox "请重新选择!", 64, "提示!": Exit Sub
    If Rng.Count = 1 Then MsgBox "区域范围那么小....": Exit Sub
    Set Rng = Intersect(Rng, Rng.Parent.UsedRange)
    iRow = Application.InputBox("标题行数", "EXCEL VBA 练习 提示!", 1, , , , , 1)
    If iRow < 0 Then MsgBox "不能为负数...", 64, "提示": Exit Sub
    If iRow >= 10 Then MsgBox "标题行有那么多...?": Exit Sub
    strTitle = IIf(iRow = 0, "", "$1:$" & iRow)
    YesNo = MsgBox("确定:横向  取消:纵向", vbYesNo, "选择打印方向")
    Flag = IIf(YesNo = 7, False, True)
    Call 模块.打印机设置(工作表:=Sht, 打印区域:=Rng.Address(0, 0), 打印方向:=Flag, _
                                 左页眉:=Format(Now, "yyyy-mm-dd hh:mm:ss"), 左页脚:="制单人:Excel VBA 练习", _
                                 右页脚:="第 &P 页，共 &N 页", 标题:=strTitle)
    Call 模块.逆序打印(Sht)
End Sub
复制