主题：[求助] 打印报表出现另存为窗口

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

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