第一遍打印无错误，第二遍则出错，发生在：sheet1.Range("A1:K29").Select，代码如下。

Question

用excel object编程，最好把xlapp.Visible = False改成xlapp.Visible = true，在VB中用debug一步一步跟着走。你的问题应该是没有清除实例。
以下几句：
    Set xlapp = CreateObject("excel.application")
    xlapp.Visible = False
    Set xlbook = xlapp.Workbooks.Open(App.Path & "\ddgl.xls")
    Set sheet1 = xlbook.Worksheets(1)
    sheet1.Range("A1:K29").Select
中建立了excel实例，打开xls文件，选择A1:K29范围的单元格
打印完成后只是关闭了excel，并没有清除实例
这样试试
   xlapp.Quit
   set xlapp=nothing而且在sheet1.Range("A1:K29").Select之前加一句
    sheet1.Range("A1").Select
看一下是否正确选择了A1
如果还出错，逐行debug，看是在选择A1时出错还是A1:K29时出错，也许有眉目