可以用窗体及PictureBox 控件加载图片,并在需要的位置填写文字,然后打印该图片。
如:利用PictureBox 控件
1、加载图片
Picture1.Picture = LoadPicture("D:\xxxx.jpg")
2、在图片中填写文字
Picture1.FontSize = 40
Picture1.ForeColor = vbRed
Picture1.Print "中国(China)"
3、打印该图片
Printer.PaintPicture Picture1, 0, 0
Printer.EndDoc
追问我试了,就是那个
Printer.PaintPicture Picture1, 0, 0
Printer.EndDoc
打印出来的没有文字了,只有图片
我把AutoRedrawg改为True也打印不出字