Hai Provato con:

codice:
Valore = "100,00"
printer.Print "€ " & Format(Valore, "0.00")