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.