Foxtable(狐表)用户栏目专家坐堂 → [求助] 请教:如何获取指定打印机可用纸张和页面最小可打印边距


  共有16011人关注过本帖树形打印复制链接

主题:[求助] 请教:如何获取指定打印机可用纸张和页面最小可打印边距

帅哥哟,离线,有人找我吗?
程兴刚
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级:超级版主 帖子:7258 积分:40773 威望:0 精华:16 注册:2008/8/31 23:23:00
[求助] 请教:如何获取指定打印机可用纸张和页面最小可打印边距  发帖心情 Post By:2011/4/23 8:26:00 [只看该作者]

按理说应该有一个系统变量或方法来返回一个数组,从而获取指定打印机的所有可用纸张,帮助中找不到,请高手指点,谢谢!

 回到顶部
帅哥哟,离线,有人找我吗?
狐狸爸爸
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2011/4/23 9:49:00 [只看该作者]

Dim st As new system.Drawing.printing.PrinterSettings
'st.PrintName = "打印机名"
For Each ps As System.Drawing.Printing.PaperSize In st.PaperSizes
    output.show(ps.PaperName)
Next

 回到顶部
帅哥哟,离线,有人找我吗?
程兴刚
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级:超级版主 帖子:7258 积分:40773 威望:0 精华:16 注册:2008/8/31 23:23:00
  发帖心情 Post By:2011/4/23 9:57:00 [只看该作者]

加入帮助,谢谢!

 回到顶部
帅哥哟,离线,有人找我吗?
狐狸爸爸
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2011/4/23 10:06:00 [只看该作者]

呵呵,不需要加入帮助的,加不完的,只能比较常用的。

 回到顶部
帅哥哟,离线,有人找我吗?
程兴刚
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级:超级版主 帖子:7258 积分:40773 威望:0 精华:16 注册:2008/8/31 23:23:00
  发帖心情 Post By:2011/4/23 10:10:00 [只看该作者]

Dim st As new system.Drawing.printing.PrinterSettings
Dim sz As String
st.PrintName = e.Form.Controls("ComboBox1").Value
For Each ps As System.Drawing.Printing.PaperSize In st.PaperSizes
    sz = sz & "|" & ps.PaperName
Next
e.Form.Controls("ComboBox2").ComboList = sz

 

这里为何错误:st.PrintName = e.Form.Controls("ComboBox1").Value


图片点击可在新窗口打开查看此主题相关图片如下:aaab.jpg
图片点击可在新窗口打开查看

请赐教!


 回到顶部
帅哥哟,离线,有人找我吗?
狐狸爸爸
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2011/4/23 10:23:00 [只看该作者]

老程,我手误,应付是:

 

st.PrinterName = e.Form.Controls("ComboBox1").Value


 回到顶部
帅哥哟,离线,有人找我吗?
程兴刚
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级:超级版主 帖子:7258 积分:40773 威望:0 精华:16 注册:2008/8/31 23:23:00
  发帖心情 Post By:2011/4/23 10:41:00 [只看该作者]

呵呵,是我傻的可爱,没看出来!

 回到顶部
帅哥哟,离线,有人找我吗?
blackzhu
  8楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级:狐仙 帖子:9879 积分:57634 威望:0 精华:15 注册:2008/9/1 9:45:00
  发帖心情 Post By:2011/4/23 10:46:00 [只看该作者]

照抄惹的祸,哈哈!

 回到顶部
帅哥哟,离线,有人找我吗?
程兴刚
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级:超级版主 帖子:7258 积分:40773 威望:0 精华:16 注册:2008/8/31 23:23:00
  发帖心情 Post By:2011/4/23 11:26:00 [只看该作者]

再问:

 

纸张类型和值如何相互转换?我想不会还要加辅助表来实现吧?


 回到顶部
帅哥哟,离线,有人找我吗?
狐狸爸爸
  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2011/4/23 11:33:00 [只看该作者]

Dim st As new system.Drawing.printing.PrinterSettings
'st.PrintName = "打印机名"
For Each ps As System.Drawing.Printing.PaperSize In st.PaperSizes
     output.show(ps.PaperName & ":" &  ps.Kind)
Next


 回到顶部
总数 11 1 2 下一页