以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  关于打印机页面设置  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=161644)

--  作者:hnguang
--  发布时间:2021/3/25 12:01:00
--  关于打印机页面设置
Dim st As new system.Drawing.printing.PrinterSettings
st.PrinterName =e.Sender.text
Dim dyj As WinForm.ComboBox = e.Form.Controls("ComboBox3")
dyj.Items.Clear
For Each ps As System.Drawing.Printing.PaperSize In st.PaperSizes
  dyj.Items.Add(ps.PaperName)
Next

我已经通过代码读取到了打印机的纸张信息
现在怎样可以用代码设置指定打印机的纸张
比如我选A4纸,打印机纸张就为A4纸

--  作者:有点蓝
--  发布时间:2021/3/25 13:37:00
--  
参考:http://www.foxtable.com/webhelp/topics/1312.htm

For Each ps As System.Drawing.Printing.PaperSize In st.PaperSizes
  dyj.Items.Add(ps.PaperName & “|” & ps.RawKind )
Next

纸张值通过RawKind 获取