如何调用excel直接打印

leioklei 2003-04-03 09:35:28
我想用在VB里调用excel打印表格,如何不显示execl而直接打印呢?
...全文
196 8 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
8 条回复
切换为时间正序
请发表友善的回复…
发表回复
Administrator 2003-04-06
  • 打赏
  • 举报
回复
freehorse_1981 2003-04-05
  • 打赏
  • 举报
回复
up
Javaxhb 2003-04-05
  • 打赏
  • 举报
回复
up
lihonggen0 2003-04-04
  • 打赏
  • 举报
回复
用VB控制EXCEL生成报表
做为一种简捷、系统的 Windows应用程序开发工具,Visual Basic 5 具有强大的数据处理功能,提供了多种数据访问方法,可以方便地存取Microsoft SQL Server、Oracle、XBase等多种数据库,被广泛应用于建立各种信息管理系统。但是,VB缺乏足够的、符合中文习惯的数据表格输出功能,虽然使用Crystal Report控件及 Crystal Reports程序可以输出报表,但操作起来很麻烦,中文处理能力也不理想。Excel作为Micorsoft公司的表格处理软件在表格方面有着强大的功能,我们可用VB5编写直接控制Excel操作的程序,方法是用VB的OLE自动化技术获取Excel 97 的控制句柄,从而直接控制Excel 97的一系列操作。

下面给出一个实例:

首先建立一个窗体(FORM1)在窗体中加入一个DATA控件和一按钮,

引用Microsoft Excel类型库:

从"工程"菜单中选择"引用"栏;

选择Microsoft Excel 8.0 Object Library;

选择"确定"。

在FORM的LOAD事件中加入:
  Data1.DatabaseName = 数据库名称
  Data1.RecordSource = 表名
  Data1.Refresh

在按钮的CLICK事件中加入
  Dim Irow, Icol As Integer
  Dim Irowcount, Icolcount As Integer
  Dim Fieldlen() "存字段长度值
  Dim xlApp As Excel.Application
  Dim xlBook As Excel.Workbook
  Dim xlSheet As Excel.Worksheet

  Set xlApp = CreateObject("Excel.Application")
  Set xlBook = xlApp.Workbooks.Add
  Set xlSheet = xlBook.Worksheets(1)

  With Data1.Recordset
  .MoveLast

  If .RecordCount < 1 Then
    MsgBox ("Error 没有记录!")
    Exit Sub
  End If

  Irowcount = .RecordCount "记录总数
  Icolcount = .Fields.Count "字段总数

  ReDim Fieldlen(Icolcount)
  .MoveFirst



  For Irow = 1 To Irowcount + 1
   For Icol = 1 To Icolcount
  Select Case Irow
  Case 1 "在Excel中的第一行加标题
  xlSheet.Cells(Irow, Icol).Value = .Fields(Icol - 1).Name
  Case 2 "将数组FIELDLEN()存为第一条记录的字段长

  If IsNull(.Fields(Icol - 1)) = True Then
    Fieldlen(Icol) = LenB(.Fields(Icol - 1).Name)
     "如果字段值为NULL,则将数组Filelen(Icol)的值设为标题名的宽度
  Else
    Fieldlen(Icol) = LenB(.Fields(Icol - 1))
  End If

  xlSheet.Columns(Icol).ColumnWidth = Fieldlen(Icol)
   "Excel列宽等于字段长
  xlSheet.Cells(Irow, Icol).Value = .Fields(Icol - 1)
   "向Excel的CellS中写入字段值
  Case Else
  Fieldlen1 = LenB(.Fields(Icol - 1))

  If Fieldlen(Icol) < Fieldlen1 Then
  xlSheet.Columns(Icol).ColumnWidth = Fieldlen1
   "表格列宽等于较长字段长
  Fieldlen(Icol) = Fieldlen1
   "数组Fieldlen(Icol)中存放最大字段长度值
  Else
   xlSheet.Columns(Icol).ColumnWidth = Fieldlen(Icol)
  End If

  xlSheet.Cells(Irow, Icol).Value = .Fields(Icol - 1)
  End Select
  Next
  If Irow <> 1 Then
  If Not .EOF Then .MoveNext
  End If
  Next
  With xlSheet
  .Range(.Cells(1, 1), .Cells(1, Icol - 1)).Font.Name = "黑体"
   "设标题为黑体字
  .Range(.Cells(1, 1), .Cells(1, Icol - 1)).Font.Bold = True
   "标题字体加粗
  .Range(.Cells(1, 1), .Cells(Irow, Icol - 1)).Borders.LineStyle = xlContinuous
   "设表格边框样式
  End With
  xlApp.Visible = True "显示表格
  xlBook.Save "保存
  Set xlApp = Nothing "交还控制给Excel
  End With

本程序在中文Windows98、中文VB5下通过。


madawei 2003-04-04
  • 打赏
  • 举报
回复
up
chenyu5188 2003-04-04
  • 打赏
  • 举报
回复
同意楼上。

renjunjun 2003-04-04
  • 打赏
  • 举报
回复
'引用Microsoft Excel X.0 Object Library,比如,10.0

Dim XlApp As Excel.Application
Dim XlBook As Excel.Workbook
Dim XlTab As Excel.Worksheet

Set XlApp = New Excel.Application
Set XlBook = XlApp.Workbooks.Add
Set XlTab = XlBook.Worksheets.Add

With XlTab
........'填写内容
End With

XlBook.Saved = True '标志工作表已经保存,也就是骗它
'XlBook.Application.Visible = True
'XlBook.Windows(1).Visible = True
'XlTab.PrintPreview '打印预览
XlTab.PrintOut '打印

Set XlTab=Nothing
Set XlBook=Nothing
Set XlApp=Nothing

呵呵,兄弟,少是少了点,不过还是给分吧!
am2002cnfj 2003-04-03
  • 打赏
  • 举报
回复
关注

1,217

社区成员

发帖
与我相关
我的任务
社区描述
VB 数据库(包含打印,安装,报表)
社区管理员
  • 数据库(包含打印,安装,报表)社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧