Ciao, usa System.Drawing.Printing.PrinterSettings
Ad esempio, per cambiare stampante:
codice:
Dim p As New System.Drawing.Printing.PrinterSettings
p.PrinterName=nome della stampante da usare