vb.net自定义纸张大小

  'ps:printdocment
        'dfdfdf:自定义纸张名称
        Dim ps As System.Drawing.Printing.PaperSize

        For Each ps In PrintDoc.PrinterSettings.PaperSizes
            If ps.PaperName = "dfdfdf" Then

                PrintDoc.PrinterSettings.DefaultPageSettings.PaperSize = ps
                PrintDoc.DefaultPageSettings.PaperSize = ps

            End If

        Next
        '   PrintPreviewDialog1.Show()

转载于:https://www.cnblogs.com/qiyuan/archive/2006/09/20/509746.html