Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load PrintDocument1.Print() End Sub Private Sub PrintDocument1_PrintPage(sender As Object, e As Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage 印刷内容 End Sub Private Sub PrintDocument1_EndPrint(sender As Object, e As Printing.PrintEventArgs) Handles PrintDocument1.EndPrint Me.Hide() End Sub