Imposta la prop. Printer.ScaleMode a vbMillimeters e, nel codice che hai scritto tu, anziche' +o.1 scrivi +1.