开发背景: vb环境中用 printer 对象打印证件
问题描述: 证件上文字的背景色盖住了背景图片的颜色
Printer.PaperSize = vbPRPSA4
For LoopRow = 1 To 3
For LoopCol = 1 To 3
Printer.PaintPicture Me.Image1.Picture, 500 * LoopCol + 2970 * (LoopCol - 1), 500 * LoopRow + 4245 * (LoopRow - 1), Image1.Width, Image1.Height
Printer.PaintPicture Me.Image2.Picture, 500 * LoopCol + 2970 * (LoopCol - 1) + 750, 500 * LoopRow + 4245 * (LoopRow - 1) + 960 - 120, Image2.Width, Image2.Height
Printer.FontTransparent = True
Printer.CurrentX = 500 * LoopCol + 2970 * (LoopCol - 1) + 480 '设置文字左边距 单位是twip 即x坐标
Printer.CurrentY = 500 * LoopRow + 4245 * (LoopRow - 1) + 2880 '设置文字上边距 单位是twip 即y坐标
Printer.Print "姓名:"
Printer.FontTransparent = True
Printer.CurrentX = 500 * LoopCol + 2970 * (LoopCol - 1) + 480 '设置文字左边距 单位是twip 即x坐标
Printer.CurrentY = 500 * LoopRow + 4245 * (LoopRow - 1) + 2880 + 300 '设置文字上边距 单位是twip 即y坐标
Printer.Print "部门:"
Printer.FontTransparent = True
Printer.CurrentX = 500 * LoopCol + 2970 * (LoopCol - 1) + 480 '设置文字左边距 单位是twip 即x坐标
Printer.CurrentY = 500 * LoopRow + 4245 * (LoopRow - 1) + 2880 + 300 + 300 '设置文字上边距 单位是twip 即y坐标
Printer.Print "职务:"
Next
Next
问题描述: 证件上文字的背景色盖住了背景图片的颜色
Printer.PaperSize = vbPRPSA4
For LoopRow = 1 To 3
For LoopCol = 1 To 3
Printer.PaintPicture Me.Image1.Picture, 500 * LoopCol + 2970 * (LoopCol - 1), 500 * LoopRow + 4245 * (LoopRow - 1), Image1.Width, Image1.Height
Printer.PaintPicture Me.Image2.Picture, 500 * LoopCol + 2970 * (LoopCol - 1) + 750, 500 * LoopRow + 4245 * (LoopRow - 1) + 960 - 120, Image2.Width, Image2.Height
Printer.FontTransparent = True
Printer.CurrentX = 500 * LoopCol + 2970 * (LoopCol - 1) + 480 '设置文字左边距 单位是twip 即x坐标
Printer.CurrentY = 500 * LoopRow + 4245 * (LoopRow - 1) + 2880 '设置文字上边距 单位是twip 即y坐标
Printer.Print "姓名:"
Printer.FontTransparent = True
Printer.CurrentX = 500 * LoopCol + 2970 * (LoopCol - 1) + 480 '设置文字左边距 单位是twip 即x坐标
Printer.CurrentY = 500 * LoopRow + 4245 * (LoopRow - 1) + 2880 + 300 '设置文字上边距 单位是twip 即y坐标
Printer.Print "部门:"
Printer.FontTransparent = True
Printer.CurrentX = 500 * LoopCol + 2970 * (LoopCol - 1) + 480 '设置文字左边距 单位是twip 即x坐标
Printer.CurrentY = 500 * LoopRow + 4245 * (LoopRow - 1) + 2880 + 300 + 300 '设置文字上边距 单位是twip 即y坐标
Printer.Print "职务:"
Next
Next
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货