'主图
Dim imgback As image = getimage("d:\1796308622301859841.jpg") '主图
Dim bmp As New bitmap(imgback.width, imgback.height)
Dim g As System.Drawing.Graphics = System.Drawing.Graphics.FromImage(bmp)
g.DrawImage(imgback, 0, 0, imgback.Width, imgback.Height) '绘制主图'
'文字
Dim fnt As New Font("宋体", 16)
Dim msg As String = Vars("帐号")
g.DrawString(msg, fnt, Brushes.Black, 100, 100)
g.DrawString(msg, fnt, Brushes.Black, 200, 200)
g.DrawString(msg, fnt, Brushes.Black, 300, 300)
'保存图片
bmp.Save("d:\c.jpg") '保存
bmp.dispose '释放资源'
MessageBox.Show("打印成功")