codice:
Function ImpostaStampante()
    Dim prn As Printer
    For Each prn In Printers
        If prn.DeviceName = "Acrobat Distiller" Then 'o il nome della stampante
            Set Printer = prn
            Exit For
        End If
    Next
End Function