vb 6.0打印机对象中的背景色

问题描述

代码在黑色上写成白色，但黑色背景总是在打印，我该怎么办

Private Sub Command1_Click()

CommonDialog1.Action = 5

 Dim Txt As String
 Dim PosX As Single
 Dim PosY As Single
 Txt = "TEST TEST TEST"
 PosX = 1
 PosY = 1
 Printer.Line (PosX,PosY)-(PosX + TextWidth(Txt),PosY + TextHeight(Txt)),vbBlack,BF 
 Printer.CurrentX = PosX
 Printer.CurrentY = PosY
 Printer.ForeColor = vbWhite
 Printer.Print Txt
 
Printer.EndDoc

End Sub

样本输出：

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）