以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]关于引用打印机设置的DLL  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=172369)

--  作者:wei0769
--  发布时间:2021/10/9 14:29:00
--  [求助]关于引用打印机设置的DLL
下面的命令要引用那一个DLL文件?

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

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

[此贴子已经被作者于2021/10/9 14:29:26编辑过]

--  作者:有点蓝
--  发布时间:2021/10/9 14:32:00
--  
不需要什么dll。缺少命名空间,像第三行的system.xxx这种。至于具体命名空间是什么我也不清楚,看看是不是和第三行的一样。或者百度吧,或者去看.net的文档
--  作者:wei0769
--  发布时间:2021/10/9 15:26:00
--  
Dim   ps   As   New  System.Drawing.Printing.PageSettings
Dim   pDocument   As   new  System.Drawing.Printing.PrintDocument
Dim   myPaperSize   As   System.Drawing.Printing.PaperSize
If     ps.PrinterSettings.InstalledPrinters.Count   >   0   Then       \'检测打印机是否存在
    If   ps.PrinterSettings.IsValid   =   True   Then                           \'检测打印机是否有效
        output.show(ps.printersettings.Isvalid)
        output.show(ps.PrinterSettings.InstalledPrinters.Count)
        Dim i As Integer = 1
        For  i  = 0 To  6    \'ps.PrinterSettings.InstalledPrinters.Count
            output.show(i)
            output.show(system.drawing.printing.PrinterSettings.InstalledPrinters.Item(i))
        Next
    End   If
End   If


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