Se per *predefinita* intendi all'interno del tuo programma, ovvero il programma (e solo lui) userà quella stampante al posto della predefinita:

codice:
Dim Stampante As Printer
For Each Stampante In Printers
  If Stampante.DeviceName = "Qui il nome della stampante" Then
    Set Printer = X
    Exit For
  End If
Next