自定义打印机纸张类型

最新推荐文章于 2022-01-07 16:33:24 发布

CodingLife2

最新推荐文章于 2022-01-07 16:33:24 发布

阅读量1.2k

点赞数

分类专栏：纸张 Vb.net 打印机文章标签： each

本文链接：https://blog.csdn.net/txshjuan2007/article/details/7584168

版权

Vb.net 同时被 3 个专栏收录

6 篇文章 0 订阅

订阅专栏

纸张

1 篇文章 0 订阅

订阅专栏

打印机

1 篇文章 0 订阅

订阅专栏

简单的自定义打印机纸张更换方法，下面仅仅以A3纸张为例，其他纸张类型，方法一样。

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