[原创]已解决：在excel中打印当前页

jlf629

源代码

新建一个excel文件，alt+F11打开VBA粘贴一下代码，另存为加载宏（*.xla)，在工具菜单中，单击加载宏，加载之。

或者用下面宏文件，直接加载

Private Sub Workbook_Open()
    Dim i%
    For j = 1 To Application.CommandBars.Count
    For i = 1 To Application.CommandBars(j).Controls.Count
        If Application.CommandBars(j).Controls.Item(i).TooltipText = "打印当前页(&C)" Then
            Exit Sub
        End If
    Next
    Next

    Set mybar = Application.CommandBars("Worksheet Menu Bar").Controls.Add(Type:=msoControlButton, ID:=2950, Before:=11)
    mybar.Caption = "打印当前页(&C)"
    mybar.TooltipText = "打印当前页(&C)"
    mybar.OnAction = "打印当前页"
End Sub

Sub 打印当前页()

  a = ActiveSheet.HPageBreaks.Count

  b = ActiveSheet.VPageBreaks.Count

  For n = 1 To a

    c = ActiveSheet.HPageBreaks(n).Location.Row

    f = ActiveCell.Row

    If c > f Then Exit For

  Next

  For m = 1 To b

    d = ActiveSheet.VPageBreaks(m).Location.Column

    e = ActiveCell.Column

    If d > e Then Exit For

  Next

  If ActiveSheet.PageSetup.Order = xlOverThenDown Then

    g = (n - 1) * (b + 1) + m

  Else

    g = (m - 1) * (a + 1) + n

  End If

  ActiveSheet.PrintOut from:=g, to:=g

End Sub

加载宏下载

eKa9tMoZ.rar (7.27 KB, 下载次数: 108)

2007-6-1 10:37 上传

点击文件名下载附件
[原创]已解决：在excel中打印当前页

[此贴子已经被作者于2007-6-1 10:43:12编辑过]

jlf629

谢谢Aeolian-Vox的提示

注解后的源代码

 

Sub 打印当前页()

  a = ActiveSheet.HPageBreaks.Count  ‘返回水平分页符个数

  b = ActiveSheet.VPageBreaks.Count  ‘返回垂直分页符个数

  For n = 1 To a  ‘最后n返回的是当前单元格所在页码表的行数

    c = ActiveSheet.HPageBreaks(n).Location.Row  ‘返回第n个水平分页符所在行数（分页符在他的上方）

    f = ActiveCell.Row  ’返回当前单元格所在行数

    If c > f Then Exit For  

  Next

  For m = 1 To b  ‘最后m返回的是当前单元格所在页码表的列数

    d = ActiveSheet.VPageBreaks(m).Location.Column ‘返回第m个垂直分页符所在列数（分页符在他的左方）

    e = ActiveCell.Column  ’返回当前单元格所在列数

    If d > e Then Exit For

  Next

  If ActiveSheet.PageSetup.Order = xlOverThenDown Then  ‘返回页面设置中的打印顺序

    g = (n - 1) * (b + 1) + m    ‘先行后列

  Else

    g = (m - 1) * (a + 1) + n    ‘先列后行

  End If

  ActiveSheet.PrintOut from:=g, to:=g  ‘打印

End Sub

jlf629

如果需要使用方法，请说话

[此贴子已经被作者于2007-5-31 11:08:45编辑过]

jlf629

在excel中写一个加载宏，赋予一个按钮后，单击它可以打印当前页。

附：

在word中实现方法

Sub 打印当前页()
  ActiveDocument.PrintOut Range:=wdPrintCurrentPage
End Sub

jlf629

今天学习了  来生缘 　的文章

加了一段自动舔加按钮到工具栏

[此贴子已经被作者于2007-6-1 10:50:54编辑过]

jpz04

非常感谢，原计划做个动态的打印标题行增减的难题，可改成每次打当前页，打一次设置一次打印标题行。

karl0301

真的非常感谢...我刚遇到同样问题....

半夜星星

这个代码有个问题，如果是有2个以上页的话还是不行的