vba代码打印EXCEL 页码不会连续

Sub 选择打印()
Dim sht As Worksheet
Dim lj, MyName As String
Dim Dic, i
Set a = CreateObject("Shell.Application")
Set b = a.BrowseForFolder(0, "选择文件夹", 0, 0)
If Not b Is Nothing Then lj = b.self.Path & "\"
Set b = Nothing
Set a = Nothing
Set Dic = CreateObject("Scripting.Dictionary")
Dic.Add (lj), ""
i = 0
Do While i < Dic.Count
ke = Dic.keys
MyName = Dir(ke(i), vbDirectory)
Do While MyName <> ""
If MyName <> "." And MyName <> ".." And Right(MyName, 4) = ".xls" Then
Workbooks.Open ("" & lj & "" & MyName & "")
For Each sht In Sheets
If sht.Visible = True Then
If sht.Name = "表一" Or sht.Name = "表二" Or sht.Name = "表三" Then
sht.Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End If
End If
Next
ActiveWindow.Close
End If
MyName = Dir
Loop
i = i + 1
Loop
End Sub

以上是代码 我用这个代码打印所有的EXCEL 我想让一个工作表的页码连续，如：表一打印出3页 页码为1 、2 、3 表二有5页则页码为 4、 5 、6 、7 、8。但我现在实际打印出来的表二页码是 1、2、3、4、5 。 怎么样才能该过来，让页码一直连续下去

看着代码这么熟，原来是我写的。想连续也简单，把所有要打印的表拷到一个新的工作表里，然后一起打印就行了。

1，设置好 打印区域 2.在按钮中加入代码 application.dialogs(xldialogprint).show