主题：打印的筛选范围如何不受窗口筛选的影响？

Dim Book As New XLS.Book(ProjectPath & "Attachments\订单.xls") '打开模板
Dim fl As String = ProjectPath & "Reports\订单.xls"
Dim Sheet As XLS.Sheet = Book.Sheets(0)
Sheet(3,9).Value = "<日期 = # " & Date.Today & "#>"  '写入打印条件
Book.Build() '生成报表
Book.Save(fl)
Dim Proc As New Process
Proc.File = fl
Proc.Start()

上面这段代码是应用指南中的一段打印代码，在学习中发现个情况：这个代码会在订单表中筛选出符合条件（日期 = # " & Date.Today)的订单做打印处理。但当在订单表中做了筛选，比如筛选出PD1产品订单，这时这段打印代码就会在PD1产品中再筛选出符合条件（日期 = # " & Date.Today)的订单做打印。

请问老师：如何做，才能让打印时筛选范围不受表中筛选操作的影响，只受上面代码中打印条件的控制，筛选的范围总是整个表？