你读取出相应的记录后利用printer对象直接把它打印出来不就得了!
就像打印发票一样!

解决方案 »

  1.   

    在WORD里录制一个宏,看看代码,然后在VB中调用
      

  2.   

    先引用word object9.0,然后
    dim wdapp as word.application
    dim wddoc as new word.document
    set wdapp=new word.application 
    set wddoc=word.application.addnew(或.open)
    这时就可以新建或打开一个word文档
    以后详细内容可以看word2000中的与编程有关的帮助
      

  3.   

    1.引用word object9.0
    2.声明word对象:
       dim o_WordApp  as Word.Application   'word应用程序
       dim o_WordDoc  as Document           'word文档
       dim s_UserFile as string             '存放模板文件(包括路径)
    3.获得word对象
        On Error Resume Next
        Set o_WordApp = GetObject(, "Word.Application")
        If Err.Number <> 0 Then
            Set o_WordApp = New Word.Application
        End If4.你可以先做一个Word模板,然后打开这个模板
        s_UserFile=App.Path & "WordTemp1.Doc"
        Set o_WordDoc =o_WordApp.Documents.Add(Template:=s_UserFile, _
                                   NewTemplate:=False, DocumentType:=0)
        
    5.填写数据(略)6.打印
        o_WordApp.PrintOut Copies:=1, Collate:=True'关闭word文档(不保存)    
    o_WordApp.ActiveDocument.Close (False)
    '释放word资源
    Set o_WordApp = Nothing
         
      

  4.   

    把操作在WORD里录制一个宏,然后在VB中使用宏中的代码!