关于 Excel 打印报表的问题

[ILOVEWENDY]

各位，大家好！

请教一个关于Excel打印报表的问题。

我通过使用Excel模板，将数据显示在Excel之中，一切都正常，但是当你紧接着执行第二次的时候，Execl就不能显示工作表了（工作表的区域范围不能刷新的样子），但是打印及打印预显时都是正确的。如果解决请各位赐教！

[litsnake1]

给你一个简单的实例把，这是使用一个模板文件，来进行做报表的，当然这个实例只是很简单的：
Private Sub Command1_Click()
Dim source, des As String
Dim exc As Excel.Application
Dim wk As Workbook
Dim shet As Sheets
Set exc = New Excel.Application
' exc.TemplatesPath = "f:\test1.xls"
source = "f:\test1.xls"
des = "f:\test2.xls"
FileCopy source, des '为了保存原来的模板，先复制一份，然后在这个临时文件上去改动
' exc.SheetsInNewWorkbook = 1
Set wk = exc.Workbooks.Open(des) '这里打开摸板
' Set shet = wk.Worksheets
exc.Visible = True '如果你是想后台操作，你可以将可见属性改为false，那么在打印过程中excel不会显示出来
' wk.ActiveSheet
With exc.ActiveSheet '这里开始对工作表进行赋值
.Cells(3, 3).Value = "456745674kjdf;ksd;ieirkjsdfiqerhsdjgskdfjhieurdjhglsjdhfgluiergiusdfghsdfuherugsdjfhgoiweurhgsdhfg"
.Cells(3, 4).Value = "200"
.Cells(15, 4).Value = "thank you"
.Cells(3, 2).Value = "=SUM(B1:B2)"
.Range("A3:A9") = "rtyrtyu"
.PrintOut '打印，当然如果使用打印预览的话，可以用PrintPreview指令
End With
'如果想保存临时文件，可以用：wm.save 语句
'wk.Save
With exc
.DisplayAlerts = False '有了这一句，在关闭excel文档时就不会弹出是否保存的对话框了
.Quit '退出
End With
Set exc = Nothing
Kill des '删掉临时文件
End Sub