为什么在 vb.net 中页面大小不会改变答案

【问题标题】：Why wont the page size change in vb.net为什么在 vb.net 中页面大小不会改变
【发布时间】：2021-05-25 03:21:07
【问题描述】：

我正在尝试将页面大小更改为 10 号信封。但我所有的搜索都没有真正的帮助。打印机总是说字母。当它尝试打印时。以下是我更改纸张类型的最新尝试。

Public Sub printEnvelope(envprinter As String, envpaperwidth As String, envpaperheight As String, addressinfo As String)
       Dim pn As String
       Dim ps As PaperSize
       stringdata = addressinfo
       ps = DefaultPageSettings.PaperSize
       pn = PrinterSettings.PrinterName
       RectType = 6
       PrinterSettings.PrinterName = envprinter
       Dim ps1 As New PaperSize()


       DefaultPageSettings.PaperSize.RawKind = PaperKind.PrcEnvelopeNumber10


       DefaultPageSettings.Landscape = True


       Print()
       'PrinterSettings.PrinterName = pn
       'DefaultPageSettings.Landscape = False
       'DefaultPageSettings.PaperSize = ps


   End Sub

【问题讨论】：

标签： vb.net printing

【解决方案1】：

我找到了解决方案。打印机无法识别 .net 提供的默认对象类型。我不得不遍历驱动程序提供的纸张尺寸类型。如下所示。

 Public Sub printEnvelope(envprinter As String, envpaper As String, addressinfo As String)
        Dim pn As String
        Dim ps As PaperSize
        stringdata = addressinfo
        ps = DefaultPageSettings.PaperSize
        pn = PrinterSettings.PrinterName
        RectType = 6

        For Each ps2 As PaperSize In PrinterSettings.PaperSizes
            If ps2.PaperName = envpaper Then
                DefaultPageSettings.PaperSize = ps2
            End If



        Next

        PrinterSettings.PrinterName = envprinter
        '  Dim ps1 As New PaperSize()


        '  DefaultPageSettings.PaperSize.RawKind = PaperKind.PrcEnvelopeNumber10


        DefaultPageSettings.Landscape = True


        Print()
        PrinterSettings.PrinterName = pn
        DefaultPageSettings.Landscape = False
        DefaultPageSettings.PaperSize = ps


    End Sub

【讨论】：