Foxtable(狐表)用户栏目专家坐堂 → [求助]专业报表问题


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

主题:[求助]专业报表问题

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


加好友 发短信
等级:七尾狐 帖子:1791 积分:12764 威望:0 精华:1 注册:2013/7/18 15:51:00
[求助]专业报表问题  发帖心情 Post By:2015/5/28 11:51:00 [显示全部帖子]

1、专业报表打印前,如何设置从?页打印至?页。
如:从2页打印至第3页
2、如何获取指定纸张的宽和高?



谢谢

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


加好友 发短信
等级:七尾狐 帖子:1791 积分:12764 威望:0 精华:1 注册:2013/7/18 15:51:00
  发帖心情 Post By:2015/5/28 11:56:00 [显示全部帖子]

未得到解决。


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


加好友 发短信
等级:七尾狐 帖子:1791 积分:12764 威望:0 精华:1 注册:2013/7/18 15:51:00
  发帖心情 Post By:2015/5/28 15:33:00 [显示全部帖子]

问题2还未理解。
我再将问题描述详细一点。

有一ComboBox,其列表值为打印机支持的各类纸张。
选择不同的纸张时,在文本框中显示该纸张的高度和宽度。

谢谢

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


加好友 发短信
等级:七尾狐 帖子:1791 积分:12764 威望:0 精华:1 注册:2013/7/18 15:51:00
  发帖心情 Post By:2015/5/28 15:35:00 [显示全部帖子]

问题3:如何获得当前打印机的状态:就绪还是脱机

[此贴子已经被作者于2015/5/28 15:40:57编辑过]

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


加好友 发短信
等级:七尾狐 帖子:1791 积分:12764 威望:0 精华:1 注册:2013/7/18 15:51:00
  发帖心情 Post By:2015/5/28 15:59:00 [显示全部帖子]

谢谢

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


加好友 发短信
等级:七尾狐 帖子:1791 积分:12764 威望:0 精华:1 注册:2013/7/18 15:51:00
  发帖心情 Post By:2015/5/29 10:17:00 [显示全部帖子]

10楼

问题1.如何写代码?
问题2.测试时提示代码错误

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


加好友 发短信
等级:七尾狐 帖子:1791 积分:12764 威望:0 精华:1 注册:2013/7/18 15:51:00
  发帖心情 Post By:2015/5/29 10:21:00 [显示全部帖子]

问题2还要加DLL?


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


加好友 发短信
等级:七尾狐 帖子:1791 积分:12764 威望:0 精华:1 注册:2013/7/18 15:51:00
  发帖心情 Post By:2015/5/29 10:28:00 [显示全部帖子]

还是没明白

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


加好友 发短信
等级:七尾狐 帖子:1791 积分:12764 威望:0 精华:1 注册:2013/7/18 15:51:00
  发帖心情 Post By:2015/5/29 15:12:00 [显示全部帖子]

研究了很久了,还是未得到解决,求直接给代码,谢谢
同时,经测试,关于某一纸张的高度和宽度与实际值不符,难道单位是象素,那又该如何转为毫米?

谢谢

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


加好友 发短信
等级:七尾狐 帖子:1791 积分:12764 威望:0 精华:1 注册:2013/7/18 15:51:00
  发帖心情 Post By:2015/5/29 15:19:00 [显示全部帖子]

Dim pname As String = DefaultPrinter
Dim printer = New System.Management.ManagementObject("win32_printer.DeviceId='" & pname & "'")
printer.Get()
Dim result = val(printer.Properties("PrinterStatus").Value)
msgbox(result)

上述代码报错。


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