同一工作簿中两个表
提供下面代码供你参考。 Sub Prt() '打印时,在H3打印出当前页吗,在K3打印出总页码 ? ? P = ExecuteExcel4Macro("Get。Document(50)") ?'总页码 ? ? ActiveSheet。 Range("K3") = P ? ? For I = 1 To P ? ? ? ? ActiveSheet。Range("H3") = I ? ? ? ? ActiveWindow。SelectedSheets。 PrintOut From:=I, To:=I ? ? Next End Sub。全部
提供下面代码供你参考。 Sub Prt() '打印时,在H3打印出当前页吗,在K3打印出总页码 ? ? P = ExecuteExcel4Macro("Get。Document(50)") ?'总页码 ? ? ActiveSheet。
Range("K3") = P ? ? For I = 1 To P ? ? ? ? ActiveSheet。Range("H3") = I ? ? ? ? ActiveWindow。SelectedSheets。
PrintOut From:=I, To:=I ? ? Next End Sub。收起