طباعة الورقة a5-landscape لا تزبط الا عن طريق printpreview

السلام عليكم

اريد ان اطبع محتويات printdocument في ورقة a5 وان تكون لاندسكيب

الورقة تطبع مزبوطة عن طريق printpreview الا انني عندما استخدم الامر المباشر printdocument.print() فكان اعدادات الورقة لم يتم ضبطها فتخرج الورقة من غير ان تكون لاندسكيب وتكون منطقة الطباعة ايضا غير مزيوطة

وضعت الكود التالي في زر الطباعة

        Dim pkCustomSize1 As New PaperSize("statementt", 1050, 1050)
        PrintDocument1.DefaultPageSettings.PaperSize = pkCustomSize1
        PrintDocument1.Print()

        Dim pkCustomSize2 As New PaperSize("a5", 1050, 1050)
        PrintDocument2.DefaultPageSettings.PaperSize = pkCustomSize2
        PrintDocument2.Print()

والكود التالي في حدث PrintDocument1_QueryPageSettings

        e.PageSettings.PaperSize.PaperName = PaperKind.A5
        PrintDocument2.DefaultPageSettings.Landscape = True

فمالمشكلة اذا؟