No se si esto es lo q necesitas:
Dim WithEvents pd As Printing.PrintDocument
pd = New Printing.PrintDocument
Dim pkCustomSize1 As New Printing.PaperSize("Custom Paper Size", 100, 200)
pd.PrinterSettings.DefaultPageSettings.PaperSize = pkCustomSize1
saludos