Office中国论坛/Access中国论坛

标题: [求助]outputto 报表 [打印本页]

作者: juliazj20 时间: 2005-3-2 00:40
标题: [求助]outputto 报表
Dim stDocName As String

Dim stLinkCriteria As String

If Forms!reviewdetail!CurrPosition.Value = "Supervisor" Then

   stDocName = "AnnualReportSupervisor"

ElseIf Forms!reviewdetail!CurrPosition.Value = "Manager" Then

   stDocName = "AnnualReportManager"

Else

   stDocName = "AnnualReportEngineer"

End If

stLinkCriteria = "[Review.empno]=" & Me![Review.empno] & " and [Date]=" & "#" & Me![Date] & "#"

DoCmd.OpenReport stDocName, acPreview, , stLinkCriteria

DoCmd.OutputTo acReport, stDocName, acFormatRTF

DoCmd.Close

Exit_Command150_Click:

Exit Sub

Err_Command150_Click:

'MsgBox Err.description

Resume Exit_Command150_Click

End Sub

后，发现，.rtf里的格式不大好看。原来数据的边框在report的preview里能看见，到了.rtf里就看不见了。而且格式也有点不大对头。请问，，有神么比较好的将报表保存为word文档嘛？

作者: wu8313 时间: 2005-3-2 03:10
outputto rtf 是简单导出，可以参考刘小军老师的一个帖子本论坛搜索关键词：帖子主题--子窗体数据输出到word 大概的思路是事先建立了word中的文本型域，然后向这些域中逐个写入表或者查询中数据。文本型域可以接受文本、数字、日期等等数据类型，如果存在null值，需要在acc中使用nz函数转换一下。

作者: juliazj20 时间: 2005-3-4 21:40
难道还要象设计报表一样，先在word中设计好格式？太累了，我导出的东西有10页左右啦！

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)