设为首页收藏本站Access中国

Office中国论坛/Access中国论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

返回列表 发新帖
查看: 1310|回复: 4
打印 上一主题 下一主题

[窗体] 将窗体内容按照固定格式打印

[复制链接]
跳转到指定楼层
1#
发表于 2011-5-23 22:55:50 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
我有一个构想,流程为:
在窗体上填写数据,当单击保存信息是,分两步
1、将信息保存到数据库的制定表中
2、提示是否需要打印,若需要打印,则按照既定的word格式打印,有点像邮件合并
word格式已经设置好,不知道这是否有比较简便的方法?谢谢
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏 分享分享 分享淘帖 订阅订阅
2#
 楼主| 发表于 2011-5-23 23:00:06 | 只看该作者
另要说明的是:
1、窗体上不一定只有文本框,可能还会有组合框等等。
2、窗体上的不是所有的字段都需要打印,也并非打印都是窗体上的字段,可能还要包括有窗体上的字段计算出来的,例如窗体上有3个值,需要计算出这三个值的和放在word文档的某个字段。
3#
 楼主| 发表于 2011-5-24 22:18:49 | 只看该作者
我有一个思路,就是通过vba打印word文档,代码如下:
    Dim WkWord As New Word.Application    '需要引用Microsoft Word 9.0 Object Library
    Dim WkDoc As Word.Document
    Set WkDoc = WkWord.Application.Documents.Open(CurrentProject.Path & "\fasdf.docx")
    WkDoc.PrintOut False
    WkDoc.Close
    WkWord.Quit
我看到另一个代码是:
    RunApp windword, "C:\Documents and Settings\Administrator\桌面\fasdf.docx"
即使用RunApp,但我不会使用,请会的告诉我一下,谢谢

另,使用以上代码后,有一个问题,对于打印的邮件合并文档fasdf.docx,没法自动更新数据,导致无法得到准确的信息,问题出在,当打开fasdf.docx文档时,会弹出一个对话框,如下:
打开此文档将运行以下 SQL 命令
如果选择【是】,则会自动更新信息,但是现在默认的是选择【否】,因此没法更新数据,请问这个如何解决,谢谢

点击这里给我发消息

4#
发表于 2011-5-25 11:29:57 | 只看该作者
一般可通过word 的VBA命令 控制word里 各域的内容,而不是word直接去连SQL
5#
 楼主| 发表于 2011-5-25 16:12:59 | 只看该作者
有这样的例子吗?其实我是想将access的数据导入word固定的格式文档中,然后直接打印,而从导入到最后的打印,都是使用access控制。
您需要登录后才可以回帖 登录 | 注册

本版积分规则

QQ|站长邮箱|小黑屋|手机版|Office中国/Access中国 ( 粤ICP备10043721号-1 )  

GMT+8, 2024-11-15 15:52 , Processed in 0.079321 second(s), 29 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表