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 IfKoodin 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.