主题：[求助]打印系统当前日期问题

我做了一个套打表格，其中一项要打印系统当前日期，弄不出来。用EXCEL表格时，需要打印当前日期时，很简单，只需要一个函数就行。但在这个软件的窗口制作中，只能绑定到数据表中的字段，而不能绑定内置函数。如何做？请教。
此主题相关图片如下：piao种核定表.jpg

1.<Date>

把这些代码写到哪里？我要在时间的位置上放置什么类型的控件？

关于文章套打

RtfPrinter类用于文章套打。
文章的类型必须是RTF格式，常用的文字处理软件，例如Word，都可以将文章保存为RTF格式。

打印一篇文章的代码非常简单：

Dim rp As New RtfPrinter("c:\Data\report.rtf")
rp.Preview()

上面的代码是预览，如果要直接打印，代码为：

Dim rp As New RtfPrinter("c:\Data\report.rtf")
rp.Print()

显然，我们的目的是套打，套打的原理非常简单，我们在编辑文章的时候，可以在文章中插入一些特殊的标记，然后利用RtfPrinter的Replace方法，将这些标记替换为数据。
例如你在文章中插入了一个特殊的标记"{Today}"，希望套打的时候，能够将这个标记替换为当天的日期：

Dim rp As New RtfPrinter("c:\Data\report.rtf")
rp.Replace("{Today}", Date.Today)
rp.Preview()

虽然你可以使用任何字符作为标记，但是我们推荐您用大括号加上说明字符作为标记，以便于维护。

另一种套打的方法更为简单，你只须指定RtfPrinter要套打的DataRow，即可将文章中类似“[列名]”的内容自动替换为实际的值：

Dim rp As New RtfPrinter("c:\Data\report.rtf")
rp.DataRow = Tables("订单").Current.DataRow '套打订单表的选定行.
rp.Replace("{Today}", Date.Today)
rp.Preview()

可以看出，文章套打非常的简单，我们就不提供具体的示例了。

因为Excel报表的兼容性更好、取数更方便、功能更强大，更便于生成各种复杂的报表，所以在某种程度上来说，文章套打是一个鸡肋，只是为了满足一些特殊的需要。

在Excel模板設置

我的目的是：当我从一个表中选中一条记录时，申请日期的位置直接出现当前日期。这个日期在数据表中是没有单独的字段。我希望象EXCEL一样，只要输入一个日期函数就行了。但就是找不到输入的地方和需要的控件。另外，我是在窗口设计器中制作的，看来看去，也只有“文本框”这个控件能用，但就是不会自动显示当前日期。二楼说的函数也不知在什么地方输入。

看一下4楼的蓝字部份

4楼的文字我在帮助中已经看过，不是我所需要的求助。我是以图片为背景，在窗口设计器中做的。

上传你的狐表文件吧

我的目的是要套打好几个表格。这是第一个。上传文件有点大。压缩了下。

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:税收业务.zip