With Printer
.PaperSize = vbPRPSUser
.Height = x
.Width = y
End With

سلام ، من این کار رو کردم پرینتر مجازی آفیس با این دستور به خوبی کار میکنه ، اما پرینتر من که لیزری هست و مدلش اچ پی 1010 هستش قبول نمیکنه و هر چی من اندازه بهش میدم اون یه اندازه رو خود به خود انتخاب میکنه و هیچ تغییری هم به اندازه انتخابیش نمی ده