此主题相关图片如下：01.jpg

2、其中“打印”按钮的代码为：

Dim Book As New XLS.Book(ProjectPath & "Attachments\\考核工资汇总导出模版.xls")   \'打开模板
Dim Sheet As XLS.Sheet = Book.Sheets(0)
Sheet.Locked = True \'禁止编辑
Sheet(1,2).Value = myDWMC \'修改模板,加入制单人信息
Sheet(1,4).Value = CurrentY & "年" \'修改模板,加入制单人信息
Sheet(1,5).Value = CurrentM & "月" \'修改模板,加入制单人信息
Dim fl As String = ProjectPath & "电子表格\\" & "考核工资汇总.xls"
Book.Build() \'生成细节区
Book.Save(fl) \'保存工作簿
Forms("考核工资汇总表窗体").Close
Dim Proc As New Process \'打开工作簿
Proc.File = fl
Proc.Start()

3、 Attachments目录下的文件“考核工资汇总导出模版.xls”为：

此主题相关图片如下：02.jpg

4、点击“打印”按钮，得到的电子表就变了

此主题相关图片如下：03.jpg

红色圈的部分 所在的行和原来的顺序不同了。

请教各位，你们遇到过这个问题么，怎么办？请多多指教！！

谢谢，我也估计是系统默认按_Sortkey列来排序的，我没有在电子表格定义细节区时加入排序参数<表名,排序列>，我猜测生成的电子表的顺序是默认的顺序，就把狐表里的项目列中的各行的文字，通过复制、粘贴，根据生成的顺序调换了一下，然后再通过上移行、下移行调整行的顺序，再生成电子表后顺序就不乱了。

实际上调整后就是看到的顺序正好符合按_Sortkey列排序的顺序。

现在看来我原来狐表里的排序没有按_Sortkey列排序，我再加个这样的参数试一试。