'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()