InfoPath Dev

I am trying to set the 'Default' printer in InfoPath using VB.NET. I am NOT trying to set the Windows default printer, and I cannot instantiate a new PrintDocument() class. I want to mimic the change that happens when I click "Flie -> Print", Select another printer, then click close...