谁有一段比较完美的更换打印机纸张的api例子

想找一段比较完美的更换打印机纸张的api例子，程序里能实现自动切换纸张，比如能选择自定义的纸张，通过名字，或者序号什么的，更换完后，如果再换回去，不能影响驱动程序的纸张控制，
不要那种在程序里控制只跟当前文档有关的，要能控制打印机的，更改后对所有纸张都有效果的，
要实现程序控制。

补充：VB ,  API