printing as white blocks if Printer.Copies is set

[madhupanisetty]

Hi,
I am getting the text with white box when printed, and this happens only when Printer.Copies is set, am I doing any thing wrong, please help. And this issue is only on real printing, not on picture box


Code:

Private Sub Command1_Click( )
Dim p As Printer
Set p = Printer

'--- working fine if I remove this line
p.Copies = 2

p.Line (10, 10)-(1000, 1000), vbBlack, BF

p.CurrentY = 10
p.ForeColor = vbWhite

p.Print ""
p.Print "s";
p.Print "d";
p.EndDoc
End Sub

[madhupanisetty]

no one has solution for this!