vb 6.0 Background color in Printer object

the code is writing in white on black but the black background is always printing and what should I do thanks

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