Private Sub PrintDocument1_PrintPage(ByVal sender As Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage
e.Graphics.DrawImage(PictureBox1.Image, 20, 0, 90, 58)
e.Graphics.DrawImage(PictureBox2.Image, 154, 0, 90, 58)
e.Graphics.DrawImage(PictureBox3.Image, 288, 0, 90, 58)
End Sub
打印代码
Dim myprintdg As PrintDialog = New PrintDialog
myprintdg.Document = PrintDocument1
myprintdg.PrinterSettings.Copies = 1
PrintDocument1.Print()