Office中国论坛/Access中国论坛

标题: 自定义打印机页面示例 [打印本页]

作者: access新闻爱好者    时间: 2012-12-19 14:32
标题: 自定义打印机页面示例
本帖最后由 todaynew 于 2012-12-19 18:43 编辑

发一个卡达西 的 打印设置的示例,
示例主要包含以下内容:
1.不同窗体调用各自相关的报表
2.自定义页面设置(主要包含列举报表,计算机中所有纸张,计算机中所有打印机,报表边距)
3.通过表保存报表的纸张NO,打印机,打印方向,边距等.再次打印时自动调出上次打印时的设置(代替ACCESS自动保存的页面设置)

[attach]50964[/attach]

作者: xie62    时间: 2012-12-19 16:36
赞一个
作者: zyp    时间: 2012-12-19 20:58
好东西. 谢谢分享
作者: wufeng980114    时间: 2012-12-19 21:05
谢谢分享,下载学习下
作者: chaosheng    时间: 2012-12-20 00:10
好东西,学习
作者: yy2000    时间: 2012-12-20 08:55
谢谢分享!
作者: alonet    时间: 2012-12-20 09:42
正需要
作者: xuwenning    时间: 2012-12-20 10:48
谢谢分享
收下
作者: yanwei82123300    时间: 2012-12-20 12:27
谢谢分享
作者: 轻风    时间: 2012-12-20 12:30
看看
作者: zzwxm98    时间: 2012-12-20 12:42
自定义功能不错,实用
作者: c101    时间: 2012-12-20 14:01
謝謝分享
作者: wzj398    时间: 2012-12-20 14:17
参观学习,感谢楼主分享
作者: asklove    时间: 2012-12-20 14:48
收藏收藏
作者: yanghua1900363    时间: 2012-12-20 16:57
收藏备用!谢谢分享!
作者: sxb2007    时间: 2012-12-20 20:08
看看
作者: 灰太郎    时间: 2013-1-27 15:02
uuuuuuuuuuuuuuuuu
作者: tmtming    时间: 2013-3-2 10:56
正好需要
作者: dqxht    时间: 2013-3-2 15:30
谢谢分享
作者: sql999    时间: 2013-3-2 17:16
dddd
作者: 新奎秦    时间: 2013-3-2 18:10
我也想了解这个问题
作者: 5574916    时间: 2013-3-3 09:02
这个不错,谢谢分享
作者: wzh    时间: 2013-3-3 09:16
谢谢分享
作者: caoguangyao    时间: 2013-3-3 09:48
学习
作者: 网络蜘蛛    时间: 2013-3-11 11:24
正是我要的。
作者: 网络蜘蛛    时间: 2013-3-18 15:26
东西不错,帮了我的大忙,不过有个小缺陷。就是选择纸张大小的列表框不能随着选择打印机的组合框而变化,希望改进。
作者: efcndi    时间: 2013-3-20 11:02
look                          
作者: 微微森林    时间: 2013-3-28 16:59
这个有用,工作都是固定好格式的表格。
作者: 大白    时间: 2013-3-28 20:36
学习学习
作者: myua2k    时间: 2013-6-20 00:53
谢谢分享
作者: zhao__feng    时间: 2013-7-6 09:21
谢谢分享,下载学习下
作者: 张玉军    时间: 2013-8-20 14:30
学习
作者: ey1001    时间: 2013-8-26 17:34
aaaaaaaaa
作者: xiaowuo2    时间: 2013-8-26 20:06
可惜少了指定页码打印的功能啦
作者: xxfwajj84    时间: 2013-8-26 22:36
来看看如何设置的
作者: ylj26518    时间: 2013-9-30 17:40
谢谢分享,下载学习下
作者: sblisb    时间: 2013-10-3 21:03
学习一下
作者: guwenbo    时间: 2013-10-11 17:49
拿走

作者: xinrenq    时间: 2013-10-12 21:59
好东西。。要分享
作者: chenyingfengsx    时间: 2013-10-26 11:10
需要看看!
作者: \~暀倳洳煙    时间: 2013-10-26 15:54
看看是什么样的
作者: alphalau81    时间: 2013-10-27 17:48
看看
作者: yujunyang    时间: 2013-10-29 10:17
谢谢分享,学习
作者: lkkl66    时间: 2013-10-29 22:47
谢分享
作者: 真主    时间: 2013-10-30 08:09
谢谢分享,学习学习
作者: 富祥特线_孟    时间: 2013-10-31 09:27
学习下,正在找有关的资料
作者: heqing3000    时间: 2013-10-31 15:00
好东西,
作者: leonshi    时间: 2013-11-3 11:20
学习下
作者: hwjljf    时间: 2013-11-7 14:32
谢谢分享
作者: youchytan    时间: 2013-11-30 21:29
kangking
作者: 李力军2    时间: 2014-3-9 22:48
自定义打印机页面示例-好
作者: cjnt007    时间: 2014-3-11 15:10
这个不错,看看怎么实现
谢谢分享
作者: w7869851    时间: 2014-3-22 11:11

作者: 紫风    时间: 2014-3-27 16:24
谢谢分享!
作者: liaoqiang234    时间: 2014-4-13 16:39
学习,创作
作者: remlie    时间: 2014-4-17 08:47
正是我最近想弄的!
作者: sxlich    时间: 2014-4-17 21:10
最近正好要做这个,学习一下,谢谢!
作者: gdjdyyj    时间: 2014-4-17 21:57
学习
作者: huisiming    时间: 2014-4-19 11:57
正需要这个。
作者: huisiming    时间: 2014-4-19 11:57
目前正需要这个。
作者: yjlchen    时间: 2014-4-19 12:28
谢谢分享
作者: zxclen    时间: 2014-4-24 10:32
SEEEEEEEEEEEEEEEEEEEE
作者: zhfcm    时间: 2014-4-24 21:14
oookkkk
作者: hwhwenha01    时间: 2014-4-27 15:31
Private Sub Form_Load() Dim rst As ADODB.Recordset     Dim strConnect As String     Dim strSQL As String     ' 使用Microsoft Data Shaping Service for OLE DB provider连接到sql server.     strConnect = "rovider=MSDataShape;Data Provider=SQLOLEDB;" _         & "Integrated Security=SSPI;Data Source=len1060;" _         & "Initial Catalog=Northwind;user id=sa;password="     '也可以使用下面的连接字符串     'strConnect = "rovider=Microsoft.Access.OLEDB.10.0ersist Security Info=False;Data Source=len1060;User ID=sa;Password=;Initial Catalog=Northwind;Data Provider=SQLOLEDB.1"     ' 建立选择语句.     strSQL = "SELECT ContactName, CompanyName, Address, " & _         "City FROM Customers WHERE (Region = 'SP')"     ' 初始化ADO记录集.     Set rst = New ADODB.Recordset     With rst         .ActiveConnection = strConnect         .LockType = adLockOptimistic         .Open strSQL     End With     ' 设置表单记录集属性     Set Me.Recordset = rst     ' 设置ControlSource属性     ' 将表单项目与记录集字段对应.     txtContactName.ControlSource = "ContactName"     txtCompanyName.ControlSource = "CompanyName"     txtAddress.ControlSource = "Address"     txtCity.ControlSource = "City"     rst.Close End Sub
作者: yanhantan    时间: 2014-5-11 17:29
好东西啊,下来看下
作者: mictiger    时间: 2014-5-14 10:44
这个很实用,谢谢分享
作者: dd783130    时间: 2014-7-18 08:13
谢谢
作者: rspring    时间: 2014-7-19 11:36
good
作者: zwl01    时间: 2014-7-31 13:20
很实用的功能
作者: 简    时间: 2014-7-31 13:41
好东西,学习一下。
作者: 2677598003    时间: 2014-11-6 05:25
学习一下
作者: ~波波~    时间: 2014-11-27 20:03
11111
作者: 318713051    时间: 2014-11-28 07:35
学习
作者: 风中漫步    时间: 2014-11-28 12:59
这是个好东西,谢谢了
作者: tpe01    时间: 2014-12-16 19:39
look
作者: lld2001    时间: 2014-12-24 23:32
太好了,急需要。
作者: 小何    时间: 2015-1-13 21:11

作者: coolleaf    时间: 2015-1-28 21:14
下来看看吧。
作者: wfang_eng    时间: 2015-4-4 14:39
好东西,学习中
作者: adragon    时间: 2015-4-13 16:38
学习一下!
作者: yyuanlc    时间: 2015-6-10 09:03
顶顶顶
作者: eiyoyo    时间: 2015-7-2 21:49
收藏了,谢谢楼主分享
作者: caicaicaicai    时间: 2015-7-17 09:42
此功能能正式我想要的。
作者: 天涯沦落20131    时间: 2015-8-31 15:02
111111111111111
作者: liumporite    时间: 2015-11-9 16:05
看看 谢谢
作者: 139498    时间: 2016-7-15 15:33
我想选择打印机
作者: 百舸争流    时间: 2016-10-1 21:58
好好好
作者: 哈哈大师    时间: 2016-10-16 20:12
好东西啊

作者: access新新新手    时间: 2017-3-2 09:54
看看
作者: kqs    时间: 2017-3-3 11:41
谢谢分享
作者: sunwrsun    时间: 2017-3-15 00:16
看看
作者: shenfuliang    时间: 2017-3-30 10:45
试试看
作者: WHH    时间: 2017-8-17 08:00
正是我需要的
作者: whh888whh    时间: 2017-9-4 19:28
学习一下先
作者: hongyepiaofei    时间: 2017-11-23 11:50
谢谢楼主分享
作者: xx5238300    时间: 2017-11-23 15:55
好东西!谢谢分享!正在找这个!
作者: xx5238300    时间: 2017-11-24 10:55
登录的密码是多少呢?!
作者: gzouyh    时间: 2018-4-13 15:27
正需要,可以选择不同的打印机吗?
作者: WXW7848    时间: 2020-2-29 07:39





欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/) Powered by Discuz! X3.3