Ciao, ti allego una parte di un programma nel quale carico
la stampante (il driver) "Acrobat Distiller"
codice:
Function ImpostaStampante()
    Dim prn As Printer
    For Each prn In Printers
        If prn.DeviceName = "Acrobat Distiller" Then
            Set Printer = prn
            Printer.ScaleMode = 6       'imposta l'unità di misura in mm
            Exit For
        End If
    Next
    'Printer.ColorMode = 2  'bianco e nero
End Function
Ovviamente al posto di Acrobat Distiller devi mettere il nome della tua stampante. Volendo puoi inserire l'elenco delle stampanti (il contenuto di "prn") in un ComboBox e farla selezionare. Dopo aver richiamato questa funzione l'oggetto Printer farà riferimento alla stampante selezionata per tutto il resto del programma.