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