主题：[求助]专业报表中打印机默认纸张设置

专业报表中代码预览

Dim doc As New PrintDoc() '定义一个报表
doc.PageSetting.PaperKind = 1 '纸张类型改为B5
doc.Preview() '预览

预览是没有问题的，但是打印出来一般都是A4纸，因为一台电脑上的打印机有多个，打不同的表要用到不同的打印机，有时一个打印机会打多种纸张的表单。用下面的代码可以切换默认打印机

Dim obj As object = CreateObject("WScript.Network")
obj.SetDefaultPrinter("打印机名")

有没有代码可以切换默认打印机下的默认纸张？

现在的需求是，打印后，有一列数据表来记录打印次数，原想的是不预览，直接打印，打印次数加减，现在不行，哪在预览哪里，如果点了打印，就打印次数加1，如果没有就不变化，这个有办法解决吗？

思路懂了，只是不知道怎么写这个打印按钮啊，不是专业人员啊，帮助里没的，用到了其它东西的，都蒙圈了。

我现在用的就是print，问题是打印机和纸张调整不过来啊。我想要letter纸张，可打出来总是A4的进纸啊。现在就是这个纸张切不好啊。因为没有代码可以实现直接修改默认纸张，我想是不是可以Preview时，点打印了，就打印次数加1，因为Preview里面的打印是可以选择打印机和纸张的。如果直接用print，哪打印纸张又没的选择了。

用这个代码PDF打印机生成的PDF错误，我去实体上试试。

 

实体打印机上测试可以，晕了，早在一周前我就用“doc.PageSetting.PaperKind = 1”这个代码了，一直用的Adobe PDF打印机测试，怎么测试怎么不对。没想到，实体的与Adobe PDF打印机差异这么大。看来以后还是不能省纸啊，最好搬个打印机放边上专门做测试。