报表打印的问题???急!!!!
我用的是Excel做的报表模版, 然后将数据写入模版的临时文件.代码大致内容如下.
Dim strSource, strDestination As String
strSource = App.Path & "\Excels\dangan.xls"
strDestination = App.Path & "\Excels\Temp.xls"
FileCopy strSource, strDestination
Dim xlApp As Excel.Application
Set xlApp = New Excel.Application
Set xlApp = CreateObject("Excel.Application")
xlApp.Visible = False
Set xlBook = xlApp.Workbooks.Open(strDestination)
Set xlSheet = xlBook.Worksheets(1)
///'此处将记录写入\Excels\Temp.xls
xlBook.Save
xlSheet.PrintOut
xlApp.Quit
一切成功,没有什么问题,但是在执行到"xlBook.Save"将弹出保存将要打印的报表文件"*.mdi"格式,点击"是",将其保存就会出现该文件的打印预览,可打印! 但是如果我点"否",不保存或者直接关闭该对话框,将出现严重错误,而退了系统.并且因为还并没有执得到"xlApp.Quit"命令,所以模版临时文件也还没有关闭,又是"xlApp.Visible = False "不可见的, 再次进入系统就再也无法打印了!只得注销操作系统!!!
天啊!!
这些代码以前也没用过,从网上抄来的!
我该怎么办?如何解决?
有没有 办法不让它弹出保存对话框.直接保存,或者不保存就可以直接打印的???
xlBook.Save 可以加什么参数控制吗?????或者别的?!
请高手赐教!!谢过了!
答：我用办公软件按帐页做了一个举例，你可以看一下，你做的时候可以将相应项写在13栏帐页的相应栏内就可以了。详情>>
答：线性链表分好几种,分为单链,双链等,它们的存储顺序也不一样. 线性表是顺序存储的,占顺序的存储空间详情>>
问：电脑安装了VB6.0，为什么打开方式里面没有VB程序选项，进安装好的VB里去关联...
答：打开方式最下面还有一个《选择程序》，点开后查VB的安装目录的EXE，找到后直接打开，下次就会在打开方式里查到了详情>>
