Problem With Non Scaleable Fonts On Printer

[Catrina]

I have reports that I created using Printer.Print for each line. The totals are set into columns by adding spaces before to make them even. I set the Printer font to a non scaleable font before the report. This has been working fine until now. I have one customer who's reports are running together as if the font it is using is scaleable.

I was wondering what could be the cause on this one machine/printer? Is there anything I can do to fix it. Either via code or in the properties of the printer.

The code I am using for the report is:

Dim MyFont as new StdFont
With MyFont
.Bold = false
.Name = "courier"
End With
set Printer.Font = MyFont
Printer.FontSize = 9
Printer.Orientation = vbPRORLandscape
Printer.print Right(" " + CStr(rsHourlyRpt!PAYEMP), 6) & _
Right(" " & Format(CStr(Reg1tot$), "#####0.00"), 7)



Thanks in advance for any advice
Catrina

[d.paulson]

VB will substitute a font if the font specified is not in the machine. Although courier is a common font, maybe it had been deleted.

David Paulson