Selecciona de la coleccion Printers la que quieras y asignala al objeto Printer
Dim X As Printer
For Each X In Printers
If X.Orientation = vbPRORPortrait Then
' Set printer as system default.
Set Printer = X
' Stop looking for a printer.
Exit For
End If
Next
En este ejemplo selecciona la que tenga el papel en cierta direccion.