网页功能: 加入收藏 设为首页 网站搜索  
用VB+WORD模版+数据库来制作格式合同的方法
发表日期:2004-01-29作者:soho_andy(冰)[] 出处:  

概述:在应用程序中经常有定制格式报表的需要,如打印合同、货物清单、备忘录等等,使用第三方报表软件可以实现但是比较繁琐,实际上利用Word的自动化编程,使用VBA可以完成类似的功能,而且很实用。

步骤一、

word模版制作:

在第一行是合同标题 " 【书签1合同标题xxxxxxxx合同】"

第二行

         ******************************

合同编号: 【书签2合同编号】

签约单位: 【书签3签约单位】

签约地址: 【书签4签约地址】

签约日期: 【书签5签约日期】

.....

表格第一行  '表格第一行第一列中插入 书签4

表格第二行

...

货物名称

数量

规格

【书签6货物清单】

 

 

'实现代码如下

Dim cn As New ADODB.Connection

Dim AdoRs As New ADODB.Recordset

Dim WordTemps As New Word.Application

Private Sub Form_Load()

  If cn.State = 1 Then

    cn.Close

  End If

  cn.CursorLocation = adUseClient

  cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db1.mdb"

End Sub

'开始导出数据

Private Sub Command1_Click()

  Dim strSQl As String

  Dim REC As Integer

  Dim i As Integer

  WordTemps.Documents.Add App.Path + "\货物合同.doc", False

  WordTemps.Selection.GoTo wdGoToBookmark, , , "合同标题"

  WordTemps.Selection.TypeText “关于冬季货物的成交合同”

      

  WordTemps.Selection.GoTo wdGoToBookmark, , , "合同编号"

  WordTemps.Selection.TypeText “2004000001”

  WordTemps.Selection.GoTo wdGoToBookmark, , , "签约单位"

  WordTemps.Selection.TypeText “宏大科技公司,天天科技公司”

  WordTemps.Selection.GoTo wdGoToBookmark, , , "签约地址"

  WordTemps.Selection.TypeText “北京中关村大厦”

  WordTemps.Selection.GoTo wdGoToBookmark, , , "签约时间"

  WordTemps.Selection.TypeText fromat(Now, "yyyy-mm-dd")

  strSQl = "select * from Matrixs"

  AdoRs.Open strSQl, cn, adOpenKeyset, adLockOptimistic

  REC = AdoRs.RecordCount

  

  If REC < 1 Then

    MsgBox "无商品记录!", vbOKOnly, "提示"

    AdoRs.Close

    Exit Sub

  Else

    AdoRs.MoveFirst

WordTemps.Selection.GoTo wdGoToBookmark, , , "货物清单"

    For i = 1 To REC

      

      WordTemps.Selection.TypeText AdoRs!名称

      WordTemps.Selection.MoveRight unit:=wdCharacter, Count:=1 '右移一格

      WordTemps.Selection.TypeText AdoRs!数量

      WordTemps.Selection.MoveRight unit:=wdCharacter, Count:=1 '右移一格

      WordTemps.Selection.TypeText AdoRs!规格

      

      AdoRs.MoveNext

      If AdoRs.EOF = False Then

        WordTemps.Selection.InsertRowsBelow 1   '表格换行

      End If

    Next i

    

    

    

    AdoRs.Close

      

    WordTemps.Visible = True '显示WORD窗口

  End If

End Sub

作者:soho_andy(冰)

我来说两句】 【加入收藏】 【返加顶部】 【打印本页】 【关闭窗口
中搜索 用VB+WORD模版+数据库来制作格式合同的方法
本类热点文章
  在VB应用程序中调用Excel2000
  在VB中使用水晶报表的一种简易编程方法
  BOM表查询的VB实现方法
  如何將Excel的文件导入Access文件
  把DataGrid的数据快速写入EXCEL
  Visual Basic 导出到 Excel 提速之法
  DataGrid 控件的使用
  VB中DataCombo和DataList 控件的使用
  ADO三大对象的属性、方法、事件及常数
  VB中MSHFlexGrid控件的应用
  VB+ADO检测数据库并发操作和处理并解决..
  用VB+WORD模版+数据库来制作格式合同..
最新分类信息我要发布 
最新招聘信息

关于我们 / 合作推广 / 给我留言 / 版权举报 / 意见建议 / 广告投放  
Copyright ©2003-2019 Lihuasoft.net webmaster(at)lihuasoft.net
网站编程QQ群   京ICP备05001064号 页面生成时间:0.00453