有一个办法,不知道是否能满足你的要求,下面的示例是VB.net代码,系统安装excel的前题下 Dim Data As String = Me.AxSpreadsheet1.HTMLData'获取数据 Dim writer As IO.StreamWriter = IO.File.CreateText("d:\1.xls") writer.Write(Data) writer.Close() Dim excel As Object = CreateObject("Excel.Application") Dim book As Object = excel.Workbooks.Add("D:\1.xls") book.PrintOut(, , 1, , , , , ) '上面PrintOut方法通过系统默认打印机打印全部内容,如果是指定页码范围打印, '调用Print(StartIndex,EndIndex,1,,,,,); '如果对选定区域打印,需要通过WorkSheet进行相应设置,并通过workSheet的PrintOut方法打印 excel.DisplayAlerts = False'不出现提示框 excel.Quit()'退出
Dim Data As String = Me.AxSpreadsheet1.HTMLData'获取数据
Dim writer As IO.StreamWriter = IO.File.CreateText("d:\1.xls")
writer.Write(Data)
writer.Close()
Dim excel As Object = CreateObject("Excel.Application")
Dim book As Object = excel.Workbooks.Add("D:\1.xls")
book.PrintOut(, , 1, , , , , )
'上面PrintOut方法通过系统默认打印机打印全部内容,如果是指定页码范围打印,
'调用Print(StartIndex,EndIndex,1,,,,,);
'如果对选定区域打印,需要通过WorkSheet进行相应设置,并通过workSheet的PrintOut方法打印
excel.DisplayAlerts = False'不出现提示框
excel.Quit()'退出
http://blog.113e.com/25641.shtml