[求助]outputto acreport

juliazj20

Private Sub Command150_Click()

On Error GoTo Err_Command150_Click

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

Exit_Command150_Click:

    Exit Sub

Err_Command150_Click:

    'MsgBox Err.description

    Resume Exit_Command150_Click

   



End Sub

openreport可以有参数设置condition的，而outputto acreport怎么没有？这样output的是所有数据，而不是指定的一条记录，怎么实现output一条记录的report?  的

swx

output  to  一个带筛选的结果的查询。

juliazj20

DoCmd.OpenReport stDocName, acPreview, , stLinkCriteria执行就可以打印/导出特定记录的report了。可是还有个问题，为什么第一页页中的标题的后一个单词跑到第二页的中间去了？为什么有一个控件的数据纵向的显示了2次？为什么生成了好几个空白页？

swx

没遇见过。是否打印机设置有问题？或者有毒了。

[此贴子已经被作者于2005-3-1 14:22:45编辑过]

juliazj20

我估计可能是页面设置的问题哦，可是也太奇怪了呀