'set new size
Dim mySize As New PaperSize("mySize", WidthInDots, HeightInDots)
'Set printer object default page size
'The size must supported by printer
'The actual size depents by printer resolution
myPrinter.DefaultPageSettings.PaperSize = mySize