Vad kan det vara för fel när jag kan sätta fonten på printerobjectet och få det att fungera på min maskin men när jag gör samma på en annan maskin så påverkas inte fonten.

min kod:
Printer.Font.Name = "Courier"
Printer.Font.Size = 10
MsgBox Printer.Font.Name **ger Arial

Printer.FontName = "Courier"
Printer.FontSize = 10
MsgBox Printer.FontName **ger Arial

Men trots att denna kod inte funkar så kan notepad ändra font och skriva ut utan problem??

Hur ska man ändra font?

Leif P

Det skulle kunna vara så att den andra datorn inte har fonten courier installerad. Fungerar de andra fonterna???
Skulle tro att det finns ngn defaullt font ( kanske Arial ? ) som körs on inte den begärda fonten finns
Din programsnutt fungerade på min dator för tex fonterna Arial,Italic,Courier New men för Courier visas en kod och inte "Courier"

Nettan

>>Det skulle kunna vara så att den andra datorn inte har fonten courier installerad.
Den funkar via notepad så den finns installerad.
>>Fungerar de andra fonterna???
En del.
>>Skulle tro att det finns ngn defaullt font ( kanske Arial ? ) som körs on inte den begärda fonten finns
Sant
>>Din programsnutt fungerade på min dator för tex fonterna Arial,Italic,Courier New men för Courier visas en kod och inte "Courier"

Skumt att du inte fick fontname utan en kod

Kan det ha nåt att göra med att Courier inte är true type font?

Leif P