จะทำอย่างให้พิมพ์สามารถพิมพ์ออกมาให้เป็น A4 เต็มแผ่นลองแล้วไม่ได้ครับ
มันออกนะครับเมื่อสั่งพิมพ์แต่ ออกแต่ ประมาณ ครั่งแผ่น นิด ๆ เอง ช่วยผมด้วยครับ

หรือว่าต้อง เพิ่มอะไร
Souce ตามนี้

Option Explicit

Const vbPRPSA4 = 9
Private Sub mMprint_Click()
Printer.PrintQuality = vbPRPQHigh
Printer.PaperSize = vbPRPSA4
PrintForm
End Sub

ขอขอบคุณ อาจารย์สุภาพ และท่านที่เข้ามาแสดงความคิดเห็น