如何通过CommonDialog获取打印机信息？比如纸张大小。

[hooliganbeer]

如题

[还想懒够]

http://blog.csdn.net/jjkk168/archive/2005/07/28/437591.aspx

[of123]

如果你仅仅是希望打开“打印机”对话框：
CommonDialog1.ShowPrinter

如果你希望取得你所连接的打印机的各项参数，使用 Printer 对象。

Printer 对象和 Printers 集合


使用 Printer 对象可以实现与系统打印机的通讯（最初是缺省系统打印机）。

用 Printers 集合可获取有关系统上所有可用打印机的信息。

语法

Printer

Printers(index)

index 所在处表示从 0 到 Printers.Count-1 之间的整数。

说明

用图形方法在 Printer 对象上绘制文本和图形。一旦 Printer 对象中含有将要打印的输出信息，可用 EndDoc 方法直接将输出信息送到应用程序的缺省打印机上。

如果要打印这些信息，应该检查和可能还要修正窗体的布局。例如，如果用 PrintForm 方法打印窗体，则到页底图形图象可能被剪切，而文本则被移到下一页。

Printers 集合可用来查询可用的打印机，这样就可以为应用程序指定一台缺省打印机。例如也许要找出哪些可用打印机用了指定的打印驱动程序。下面的代码查找所有的可用打印机，定位在第一个将页码方向设置为纵向的打印机，然后将其设置为 Portrait。

Dim X As Printer
For Each X In Printers
If X.Orientation = vbPRORPortrait Then
'设定为系统缺省打印机。
Set Printer = X
' 终止查找打印机。
Exit For
End If
Next

用 Set 语句指定 Printers 集合中的某一打印机为缺省打印机。前面的示例指定由对象变量 X 标识的打印机为应用程序的缺省打印机。

注意 如果用 Printers 集合来确定某一特定打印机，如 Printers(3)，则只能访问只读属性。如果想访问个别打印机的可读写属性，那么首先要使那个打印机成为应用程序的缺省打印机。

**************************************************************************
PaperSize 属性


返回或设置一个值，该值指出当前打印机的纸张大小。在设计时是不可用。

语法

object.PaperSize [= value]

PaperSize 属性的语法包含下面部分：

部分 描述
Object 对象表达式，其值是一个 Printer 对象。
Value 一个用来指定纸张大小的值或常数，“设置值”中有详细描述。


设置值

value 的设置值是：

常数 值 描述
VbPRPSLetter 1 信笺， 8 1/2 x 11 英寸。
VbPRPSLetterSmall 2 +A611 小型信笺， 8 1/2 x 11 英寸。
VbPRPSTabloid 3 小型报， 11 x 17 英寸。
VbPRPSLedger 4 分类帐， 17 x 11 英寸。
VbPRPSLegal 5 法律文件， 8 1/2 x 14 英寸。
VbPRPSStatement 6 声明书，5 1/2 x 8 1/2 英寸。
VbPRPSExecutive 7 行政文件，7 1/2 x 10 1/2 英寸。
VbPRPSA3 8 A3, 297 x 420 毫米
VbPRPSA4 9 A4, 210 x 297 毫米
VbPRPSA4Small 10 A4小号， 210 x 297 毫米
VbPRPSA5 11 A5, 148 x 210 毫米
VbPRPSB4 12 B4, 250 x 354 毫米
VbPRPSB5 13 B5, 182 x 257 毫米
VbPRPSFolio 14 对开本， 8 1/2 x 13 英寸。
VbPRPSQuarto 15 四开本， 215 x 275 毫米。
VbPRPS10x14 16 10 x 14 英寸。
VbPRPS11x17 17 11 x 17 英寸。
VbPRPSNote 18 便条，8 1/2 x 11 英寸。
VbPRPSEnv9 19 #9 信封， 3 7/8 x 8 7/8 英寸。
VbPRPSEnv10 20 #10 信封， 4 1/8 x 9 1/2 英寸。
VbPRPSEnv11 21 #11 信封， 4 1/2 x 10 3/8 英寸。
VbPRPSEnv12 22 #12 信封， 4 1/2 x 11 英寸。
VbPRPSEnv14 23 #14 信封， 5 x 11 1/2 英寸。
VbPRPSCSheet 24 C 尺寸工作单
VbPRPSDSheet 25 D 尺寸工作单
VbPRPSESheet 26 E 尺寸工作单
VbPRPSEnvDL 27 DL 型信封， 110 x 220 毫米
VbPRPSEnvC3 29 C3 型信封， 324 x 458 毫米
VbPRPSEnvC4 30 C4 型信封， 229 x 324 毫米
VbPRPSEnvC5 28 C5 型信封， 162 x 229 毫米
VbPRPSEnvC6 31 C6 型信封， 114 x 162 毫米
VbPRPSEnvC65 32 C65 型信封，114 x 229 毫米
VbPRPSEnvB4 33 B4 型信封， 250 x 353 毫米
VbPRPSEnvB5 34 B5 型信封，176 x 250 毫米
VbPRPSEnvB6 35 B6 型信封， 176 x 125 毫米
VbPRPSEnvItaly 36 信封， 110 x 230 毫米
VbPRPSEnvMonarch 37 信封大王， 3 7/8 x 7 1/2 英寸。
VbPRPSEnvPersonal 38 信封， 3 5/8 x 6 1/2 英寸。
VbPRPSFanfoldUS 39 U.S. 标准复写簿， 14 7/8 x 11 英寸。
VbPRPSFanfoldStdGerman 40 德国标准复写簿， 8 1/2 x 12 英寸。
VbPRPSFanfoldLglGerman 41 德国法律复写簿， 8 1/2 x 13 英寸。
VbPRPSUser 256 用户定义


说明

这些常数在 Visual Basic (VB) 中的对象浏览器中的对象库中列出。

打印机 Height 和 Width 属性的设置自动地将 PaperSize 设置为 vbPRPSUser。

注意 Printer 对象此属性的效果依赖于打印机厂家提供的驱动程序。某些属性设置值可能不起作用，或者一些不同的属性设置值可能有相同的效果。接受范围之外的设置值可能产生也可能不产生错误。详细信息，请参阅厂家具体驱动程序的文档。

[冬冬球球]

微软中文官方网站上有详细的说明，不能用commondialog直接传递一些数据，要现在一个控件：
http://support.microsoft.com/default.aspx?scid=kb;zh-cn;322710