Access交流中心

北京 | 上海 | 天津 | 重庆 | 广州 | 深圳 | 珠海 | 汕头 | 佛山 | 中山 | 东莞 | 南京 | 苏州 | 无锡 | 常州 | 南通 | 扬州 | 徐州 | 杭州 | 温州 | 宁波 | 台州 | 福州 | 厦门 | 泉州 | 龙岩 | 合肥 | 芜湖 | 成都 | 遂宁 | 长沙 | 株洲 | 湘潭 | 武汉 | 南昌 | 济南 | 青岛 | 烟台 | 潍坊 | 淄博 | 济宁 | 太原 | 郑州 | 石家庄 | 保定 | 唐山 | 西安 | 大连 | 沈阳 | 长春 | 昆明 | 兰州 | 哈尔滨 | 佳木斯 | 南宁 | 桂林 | 海口 | 贵阳 | 西宁 | 乌鲁木齐 | 包头 |

如何实现打印报表,只打印报表中的某条记录的某个字段

xyf  发表于:2009-04-15 17:21:04  
复制

我按照皮皮,老鸟的文章(http://www.accessoft.com/article-show.asp?id=2671)做了一个查询系统.

现在我只想把主窗体中显示的文件内容预览并打印,如何实现.

 

Top
曹光耀 发表于:2009-04-15 17:55:44
豆豆 发表于:2009-04-15 18:14:16
xyf 发表于:2009-04-16 16:34:18

太感谢大虾了,你做的正是我想要的效果,可是我按你的改怎么出错呢?源码如下:

另,有两个问题请教:1、只需要在代码中增加如下子程序就可以了么?其它地方还有要改的么?2、代码中,你加'号的行,按理说是表示说明,可真正在执行时,确有作用,为什么呢?为什么要加'号呢?

 

 

Private Sub 简历预览打印_Click()
On Error GoTo Err_简历预览打印_Click

'    If Reports("文件").Visible = False Then

    Dim stDocName As String
   
      stDocName = ChrW(25991) & ChrW(20214)
 
 '在打开报表的同时把子窗体的筛选条件字符串也传递给报表,
    '这样地话报表也会显示和子窗体相同的记录。
       
        DoCmd.OpenReport stDocName, acPreview, , "ID='" & Me.人才数据子窗体.Form!ID & "' And 姓名='" & Me.人才数据子窗体.Form!姓名 & "'"
'    Else
'        DoCmd.Close acReport, "文件"
'    End If
     
   
Exit_简历预览打印_Click:
    Exit Sub

Err_简历预览打印_Click:
    MsgBox Err.Description
    Resume Exit_简历预览打印_Click

End Sub

 

 

 



xyf 发表于:2009-04-16 16:39:08

还有个问题,你原句中:

DoCmd.OpenReport stDocName, acPreview, , "fwjg='" & Me.文件查询子窗体.Form!fwjg & "' And bt='" & Me.文件查询子窗体.Form!bt & "' And wh='" & Me.文件查询子窗体.Form!wh & "'"

 

 

“fwjg=”这个指是表中的字段名么?



xyf 发表于:2009-04-16 16:52:24
大虾,基本问题解决,出在ID号上,大概ID是数字型的,其它是文本形的。但我确实需要验证ID号一致,以免发生同名的现象。不知怎么改,其它问题还望答复。谢谢。

皮皮 发表于:2009-04-29 18:20:12

两小时后发给你。



皮皮 发表于:2009-04-29 21:11:00
皮皮给你的答案。点击下载此附件

总记录:7篇  页次:1/1 9 1 :