VB.Net实现打印机纸张类型自动更换的方法

VB.Net实现打印机纸张类型自动更换的方法

Dim   ps   As   New   PageSettings    Dim   pDocument   as   new   PrintDocument    Dim   myPaperSize   As   System.Drawing.Printing.PaperSize           If     ps.PrinterSettings.InstalledPrinters.Count   >   0   Then       '检测打印机是否存在              If   ps.PrinterSettings.IsValid   =   True   Then                           '检测打印机是否有效                      For   Each   myPaperSize   In   ps.PrinterSettings.PaperSizes     '检查该当前打印机是否支持A3的纸张                            If   myPaperSize.Kind   =   PaperKind.A3   Then                                  Exit   For                            End   If                    next                    If   myPaperSize.Kind   <>   PaperKind.A3   Then         '如果当前打印机不支持A3纸张,那么自定义A3大小的纸张                          myPaperSize   =   New   System.Drawing.Printing.PaperSize("A3",   1169,   1654)                    End   If                    ps.PaperSize   =   myPaperSize         '设置为指定的纸张                    ps.Landscape   =   False                    pDocument.DefaultPageSettings   =   ps                    pDocument.PrinterSettings.PrinterName   =   ps.PrinterSettings.PrinterName              End   If      End   If  ===================================================================================================================================== using System.Drawing.Printing.PrintDocument using System.Drawing.Printing.PrinterSettings.PaperSizeCollection using System.Drawing.Printing.PaperSize using System.Drawing.Printing.PageSettings /////////需要以上引用 PrintDocument pd = new PrintDocument(); PaperSize p=null; foreach(PaperSize ps in pd.PrinterSettings.PaperSizes) {   if(ps.PaperName.Equals("A3"))   p = ps; }  pd.DefaultPageSettings.PaperSize = p; pd.Print();