您好！

1。Excel的问题。您可以将代码中的newxls.Quit移到If语句的外面。这里是在当用户选择保存以后才执行的退出，移到If语句的外面就可以无论怎样都退出。您可以尝试一下。

2.连续打印的问题。我们测试过了标题是在第一行，我们是用A4的纸打印的。

    老师：您好！
    一、将newxls.Quit不管移到那一END IF后面，如果选择保存这时反而EXCEL没有退出进程，如果选择不保存，则出现“是否保存文件”的对话框，EXCEL却能够退出进程。
    newsheet.SaveAs App.Path & "Excel文件" & mystr & ".xls"
      MsgBox "Excel文件保存成功，位置：" & App.Path & "Excel文件" & mystr & ".xls", , "提示窗口"
ErrSave:
      Exit Sub
      MsgBox Err.Description, , "提示窗口"
    End If
  End If
      newxls.Quit
 
    如果改为：
    newsheet.SaveAs App.Path & "Excel文件" & mystr & ".xls"
      MsgBox "Excel文件保存成功，位置：" & App.Path & "Excel文件" & mystr & ".xls", , "提示窗口"
      newxls.Quit
ErrSave:
      Exit Sub
      MsgBox Err.Description, , "提示窗口"
    End If
  End If
      newxls.Quit
则保存之后EXCEL进程能够完全退出，但如果选择不保存还是会出现“是否保存文件”的对话框。

    二、连续打印的问题我也是用A4纸，刚才再试了问题仍然存在，而且第一页没有打印页脚，第二页打印七行后打印页脚“第2页，共1页”，空二行再打印标题，第二页记录打印完后打印的页脚还是“第2页，共1页”。这个“共几页”的我知道怎么改，但不知为什么程序在我这运行是这种结果？

老师,能不能再指导一下呢?

Excel完全退出的问题自己已解决.