[求助]outputto 报表

juliazj20

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

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

juliazj20

难道还要象设计报表一样，先在word中设计好格式？太累了，我导出的东西有10页左右啦！