在Excel中利用VBA实现指定打印？

springtears

在Excel中汇总表和个人表，怎么实现在个人表中利用VBA代码实现想要的打印，一是打印当前页，二是打印指定的范围（能够选择打印总表中所有人的个人表，例如1-10,或者5-25这样的）。
完全是小白，请大神不吝赐教，万分感谢！！！

乐乐2006201506

在sheet1表格中输入下面代码即可。
Private Sub CommandButton1_Click()
  Sheets("个人表1").Activate
  ActiveSheet.PageSetup.PrintArea = "$A$1:$L$26"
  ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
    IgnorePrintAreas:=False
  Range("A3").Select
End Sub

Private Sub CommandButton2_Click()
  Sheets("个人表1").Activate
  ActiveSheet.PageSetup.PrintArea = "$A$1:$L$26"
  xx = InputBox("输入打印范围，用-号隔开", "按需打印", "1-10")
  Application.ScreenUpdating = False
  Application.DisplayAlerts = False
  n = Split(xx, "-")(0): m = Split(xx, "-")(1)
  arr = Sheets("总表").Range("b7:b" & Sheets("总表").Cells(7, 2).End(4).Row)
  For i = n To m
    If Len(arr(i, 1)) Then
      ActiveSheet.Range("b3") = arr(i, 1)
      ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
        IgnorePrintAreas:=False
    End If
  Next i
  Range("A3").Select
  Application.DisplayAlerts = True
  Application.ScreenUpdating = True
End Sub

springtears

从总表中提取姓名到个人表，然后分别打印个人表，谁能帮帮忙，谢谢。

springtears

乐乐2006201506 发表于 2019-5-18 21:46
在sheet1表格中输入下面代码即可。
Private Sub CommandButton1_Click()
  Sheets("个人表1").Activate

太感谢了，完全就是想要的结果。

nini11123

11111111

zhenghaidong

正需要啊啊啊