io per modificare la stampante predefinita uso:

codice:
Dim miaStampante As Printer

For Each miaStampante In Printers
    If miaStampante.DeviceName = "Adobe PDF" Then
        Set Printer = miaStampante
        MsgBox "trovata!"
    Exit For
End If
Next
Il msgbox appare quindi la condizione è True...

Non mi da nessun errore ma allo stesso tempo non succede nulla....