'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