Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click ・・・ (内容は割愛します) PrintDocument1.Print() EndSub Private Sub PrintDocument1_PrintPage(sender As Object, e As Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage ・・・ (内容は割愛します) End Sub