[浏览完整版]
标题：[求助] 请教：如何获取指定打印机可用纸张和页面最小可打印边距
1楼
程兴刚 发表于：2011/4/23 8:26:00按理说应该有一个系统变量或方法来返回一个数组，从而获取指定打印机的所有可用纸张，帮助中找不到，请高手指点，谢谢！
2楼
狐狸爸爸 发表于：2011/4/23 9:49:00Dim st As new system.Drawing.printing.PrinterSettings
'st.PrintName = "打印机名"
For Each ps As System.Drawing.Printing.PaperSize In st.PaperSizes
output.show(ps.PaperName)
Next
'st.PrintName = "打印机名"
For Each ps As System.Drawing.Printing.PaperSize In st.PaperSizes
output.show(ps.PaperName)
Next
3楼
程兴刚 发表于：2011/4/23 9:57:00加入帮助，谢谢！
4楼
狐狸爸爸 发表于：2011/4/23 10:06:00呵呵，不需要加入帮助的，加不完的，只能比较常用的。
5楼
程兴刚 发表于：2011/4/23 10:10:00Dim st As new system.Drawing.printing.PrinterSettings
Dim sz As String
st.PrintName = e.Form.Controls("ComboBox1").Value
For Each ps As System.Drawing.Printing.PaperSize In st.PaperSizes
sz = sz & "|" & ps.PaperName
Next
e.Form.Controls("ComboBox2").ComboList = sz
这里为何错误：st.PrintName = e.Form.Controls("ComboBox1").Value
此主题相关图片如下：aaab.jpg
请赐教！
6楼
狐狸爸爸 发表于：2011/4/23 10:23:00老程，我手误，应付是：
st.PrinterName = e.Form.Controls("ComboBox1").Value
7楼
程兴刚 发表于：2011/4/23 10:41:00呵呵，是我傻的可爱，没看出来！
8楼
blackzhu 发表于：2011/4/23 10:46:00照抄惹的祸,哈哈!
9楼
程兴刚 发表于：2011/4/23 11:26:00再问：
纸张类型和值如何相互转换？我想不会还要加辅助表来实现吧？
10楼
狐狸爸爸 发表于：2011/4/23 11:33:00Dim st As new system.Drawing.printing.PrinterSettings
'st.PrintName = "打印机名"
For Each ps As System.Drawing.Printing.PaperSize In st.PaperSizes
output.show(ps.PaperName & ":" & ps.Kind)
Next