以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  报表纸张  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=94738)
--  作者：wangjuan
--  发布时间：2016/12/30 21:03:00
--  报表纸张
foxtable中如何用代码获得所有纸张大全
--  作者：有点色
--  发布时间：2016/12/30 21:40:00
--  

 参考

 

Dim prtdoc As new Printing.PrintDocument()
prtdoc.PrinterSettings.PrinterName = DefaultPrinter
For Each ps As System.Drawing.Printing.PaperSize In prtdoc.PrinterSettings.PaperSizes  \'生成打印机的纸张下拉列表
    output.show(ps.papername & " " & ps.rawkind)
Next
--  作者：有点蓝
--  发布时间：2016/12/30 21:48:00
--  
参考：http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=54472

引用提供的dll，执行下面代码

Dim prtdoc As new Printing.PrintDocument()
For Each ps As System.Drawing.Printing.PaperSize In prtdoc.PrinterSettings.PaperSizes  \'生成打印机的纸张下拉列表
    Output.Show("paperkind = " & ps.RawKind & ", PaperName = " & ps.PaperName )
Next