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

Question

代码是用黑底白字写的，但黑色背景总是在打印，我该怎么办谢谢

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

样本输出：

标签： printingvb6