参考: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