Minkä takia minulle tulee aina Virhe ilmoitus kun painan Fontti ikkunassa Cancel. Eli tulee ilmoitus "Cancel was selected"
Printteri.Flags = cdlCFScreenFonts Printteri.ShowFont Printteri.CancelError = True If Err = 32755 Then Else teksti.Font = Printteri.FontName Printer.EndDoc End If
Koodin alusta puuttuu yksi rivi:
On Error Resume Next
Ilman tätä riviä ohjelma keskeytyy virheeseen.
Ahh...Niimpä tietenkin, tosi tyhmä virhe minulta...
Aihe on jo aika vanha, joten et voi enää vastata siihen.