Hi All,
I have the following Problem, I need to Print (on a laser) an inverse date
I have been using code similar to this

With Printer
' Draw Black Box
Printer.Line (567,567)-(2000,2000),vbBlack,BF
.CurrentX = 1100
.CurrentY = 1100 'Resposition
.ForeColor = vbWhite
Printer.print format(now(),"dd-mm-yyyy")
End With
Printer.EndDoc



What this should produce (according to my understanding) is White on Black Printed date in the top left corner of the page.
Yet all I get is a black square.
I have also experimented with .DrawMode but to no Avail.

Please Help