Private Sub Btn_Click()
Me.PrintForm1.PrintAction=Printing.PrintAction.PrintToPreview
Me.PrintForm1.Print()
End Sub
ผมเขียนโค็ดแบบนี้ครับเวลาพรีวิวออกมามันไม่เต็มกระดาษครับขาดไปด้านละ1นิ้ว อยากถามว่าต้องสั่งตั้งค่าหน้ากระดาษอย่างไรครับ ฟอร์มที่สั่งปริ้นเท่ากับ A5 ไม่อยากให้ออกรายงานเป็นอย่างอื่นนะครับ
Me.PrintForm1.PrintAction = Printing.PrintAction.PrintToPreview
Dim pkCustomSize1 As New PaperSize("Custom Paper Size", 1000, 2000)
Me.PrintForm1.PrinterSettings.DefaultPageSettings.PaperSize = pkCustomSize1
Me.PrintForm1.Print()
ขอบคุณครับ ผมเอาโค้ดทั้ง2อย่างมารวมก็ได้แบบที่ผมต้องการ โค๊ดของ mr.win ต้องเติม Dim pkCustomSize1 As New Printing.PaperSize("Custom Paper Size", 1000, 2000)