Έτσι μπορείς να ορίσεις το νέο μέγεθος χαρτιού για την εκτύπωση σου:
Private Sub PrintDocument1_BeginPrint(ByVal sender As Object, _
ByVal e As System.Drawing.Printing.PrintEventArgs) _
Handles PrintDocument1.BeginPrint
PrintDocument1.DefaultPageSettings.PaperSize = New Printing.PaperSize("Custom Paper Size", 220, 160)
End Sub