printer object fonts

module0000 · June 22nd, 2003, 02:20 AM

Writing 512 bit encryption...tcp/ip layer encryption..and yet, this has me..stumped. It's a sad day for module0000.

Anyone have experience setting the printer objects fonts *without* using common dialogue?
i.e.: Printer.FontName = "Fixedsys" or Printer.Font = "FixedSys"

now those don't work..but that's the idea, any help?

stephanel · June 22nd, 2003, 07:58 AM

You can use the 2 methode:

Code:

Dim oFont As StdFont
Set oFont = New StdFont
  oFont.Name = "FixedSys"
  oFont.Size = 10

  Set Printer.Font = oFont

Or

Code:

Printer.FontName = "FixedSys"

Make sure that your font name is correctly type and that it's a valid font (It's present in the windows font folder)

StÃ©phane