Access交流中心

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

打印子窗体数据

无痕  发表于:2015-08-31 16:28:22  
复制

怎样实现打印当前子窗体查询的多条数据,如主窗体名称A1、子窗体名称B1,请给段代码

 

Top
无痕 发表于:2015-08-31 17:15:42

 Dim stDocName As String
    Dim MyForm As Form

    stDocName = ChrW(116) & ChrW(98) & ChrW(108) & ChrW(95) & ChrW(116) & ChrW(101) & ChrW(115) & ChrW(116) & ChrW(32) & ChrW(23376) & ChrW(31383) & ChrW(20307)
    Set MyForm = Screen.ActiveForm
    DoCmd.SelectObject acForm, stDocName, True
    DoCmd.PrintOut
    DoCmd.SelectObject acForm, MyForm.Name, False

这段代码仅仅只能打印窗体中的一条记录而不能打印当前窗体的多条记录



飘摇王 发表于:2015-09-01 09:13:53

【Access示例】报表打印当前窗体内容

http://www.accessoft.com/article-show.asp?id=8399

 

 经典的刘小军主子窗体查询示例详细教程\多条件查询
http://www.accessoft.com/article-show.asp?id=5580

 



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