Another way to chage page setting by yourself.
Dim ps As New PrintingSystem()
'Custom paper setting
Dim MyPaperSize As New System.Drawing.Printing.PaperSize("Custom Paper Size", 1100, 500)
Dim MyMargins As New System.Drawing.Printing.Margins(10, 10, 20, 20)
Dim MyPageSettings As New System.Drawing.Printing.PageSettings
MyPageSettings.PaperSize = MyPaperSize
MyPageSettings.Margins = MyMargins
ps.PageSettings.Assign(MyPageSettings)
ps.PageSettings.Landscape = False