Office中国论坛/Access中国论坛

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

作者: juliazj20 时间: 2005-3-1 21:38
标题: [求助]outputto acreport

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 时间: 2005-3-1 21:46
output to 一个带筛选的结果的查询。

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

作者: swx 时间: 2005-3-1 22:22
没遇见过。是否打印机设置有问题？或者有毒了。

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

作者: juliazj20 时间: 2005-3-1 22:31
我估计可能是页面设置的问题哦，可是也太奇怪了呀

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