打印报表时为什么老是出现 另存为 窗口

With e.Form
    If .Controls("Label17").Text = "完成" AndAlso .Controls("Label18").Text = "完成" AndAlso .Controls("Label19").Text = "完成" Then
        \'如果信息完善,则新建令号
        Tables("生产排单").Current.Locked = True
        Tables("生产排单").Current.Save()
        Dim Book As New XLS.Book(ProjectPath & "Attachments\\生产计划单.xls")
        Dim fl As String = ProjectPath & "Reports\\生产计划单.xls"
        Book.Build() \'生成细节区
        Book.Save(fl) \'保存工作簿
        Dim Proc As New Process \'打开工作簿
        Proc.File = fl
        Proc.Verb = "Print" \'指定动作
        Proc.Start()
        .Close
    Else
        .Controls("Label20").Text = "请完善信息!"
    End If
End With