Office中国论坛/Access中国论坛

标题: 在Trynew版主帮助下完成的动态查询打印及导出实例 [打印本页]

作者: 7777777 时间: 2008-9-8 12:00
标题: 在Trynew版主帮助下完成的动态查询打印及导出实例
在Trynew版主帮助下完成的动态查询打印及导出实例,现传上来与网友共享！

作者: ui 时间: 2008-9-8 12:23
谢谢分享,瞧一瞧!!

作者: tzh1600 时间: 2008-9-8 15:56
谢谢分享

作者: yanlj518 时间: 2008-9-8 19:02
学习学习!

作者: soutyc 时间: 2008-9-8 23:46
zhichi yi xia

作者: marlsq 时间: 2008-9-24 09:39
谢谢分享

作者: marlsq 时间: 2008-10-5 16:39
再来看看

作者: yanwei82123300 时间: 2009-4-14 07:35
谢谢分享,收藏了

作者: apsfxc1 时间: 2009-4-22 11:58
感谢分享

作者: yisen 时间: 2009-4-30 16:46
多谢分享

作者: fengxueysh 时间: 2009-4-30 21:41
谢谢学习

作者: coolabc 时间: 2009-5-8 13:27
谢谢分享！
转接后下面代码出错：
Private Sub Command11_Click()
On Error GoTo Err_Command11_Click
Me.frm报废单查询1.SetFocus '把焦点移动子窗体上，要操作的子窗体的名称
      DoCmd.GoToRecord , , acFirst

DoCmd.RunCommand acCmdSelectAllRecords
DoCmd.RunCommand acCmdCopy

Dim obj As Object
Set obj = CreateObject("excel.application")
obj.Workbooks.Add
obj.Visible = True
SendKeys "^v"
On Error Resume Next
oApp.UserControl = True
Exit_Command11_Click:
Exit Sub

Err_Command11_Click:
MsgBox Err.Description
Resume Exit_Command11_Click

End Sub

后将oApp改为obj成功！不知是否有问题！

作者: 十三 时间: 2015-5-4 22:49
学习学习

作者: ejihua 时间: 2015-10-22 22:44
学习学习!

作者: p51218 时间: 2016-11-14 22:22
www.office-cn.net

作者: xfxsyx 时间: 2016-11-15 17:00
5555555555555555555555

作者: lively 时间: 2017-4-9 22:00
学习参考

作者: lively 时间: 2017-4-9 22:00
谢谢

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