网页功能: 加入收藏 设为首页 网站搜索  
获取所有打印纸张格式的方法
发表日期:2002-09-18作者:csdn[] 出处:  

下面的代码演示在VB里如何获取与Windows操作系统打印机属性里一样多的打印纸张格式

Private Sub Command1_Click()

  WQL = "Select * From Win32_Printer"

  Set objinst = GetObject("winmgmts:").ExecQuery(WQL)

  For Each obj In objinst

    Debug.Print obj.Name  

    Dim type1 As String

    For i = 1 To UBound(obj.PaperSizesSupported)  

      Debug.Print obj.PaperSizesSupported(i)   

    Next

  Next

End Sub

我来说两句】 【加入收藏】 【返加顶部】 【打印本页】 【关闭窗口
中搜索 获取所有打印纸张格式的方法
本类热点文章
  用VB制作软键盘
  用VB制作软键盘
  制作半透明窗体
  让messagebox自动消失
  让messagebox自动消失
  给Listview做个背景
  给Listview做个背景
  VB程序实现WindowsXP效果的界面
  VB打造超酷个性化菜单
  用VB实现“百叶窗”的图形特效
  用VB实现“百叶窗”的图形特效
  用VB绘制正弦动画曲线
最新分类信息我要发布 
最新招聘信息

关于我们 / 合作推广 / 给我留言 / 版权举报 / 意见建议 / 广告投放  
Copyright ©2003-2024 Lihuasoft.net webmaster(at)lihuasoft.net
网站编程QQ群   京ICP备05001064号 页面生成时间:0.00358