Σου κάνω copy - paste από δικό μου κώδικα
Dim pkCustomSize1 As PaperSize
Dim pdDoc As New PrintDocument
pkCustomSize1 = New PaperSize("Custom", 98, 236)
.......
pkCustomSize1.RawKind = PaperKind.Custom
pdDoc.DefaultPageSettings.PaperSize = pkCustomSize1
pddoc.print()
Melesanakis Georgios
MCAD .Net, MCT
IT Manager