这个问题我头疼了好久，我用论坛上的那个程序把自定义纸的值找到了，但为什么还是不行？代码如下:

Dim App As New MSExcel.Application

Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open("D:\\大澳送货单.xls")
App.Visible = True
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
With Ws.PageSetup
        .PaperSize = 149
End With
Ws.PrintPreview

此主题相关图片如下：b_}vnf{x1)62e`sodx1t%m.png

哪位高手帮帮忙。多谢！

1、你的纸张号有问题；

2、

Dim App As New MSExcel.Application

Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open("D:\\test.xls")

Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
With Ws.PageSetup
    .PaperSize =  8
End With
App.Visible = True
Ws.PrintPreview

我这个是自定义纸张的。谁能知道自定义纸张的值怎么出来吗？

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=54472&skin=0

大红袍老师

我就用这个例子，把Paperkind 的值找到了，是：149.可是把149写上去还是错啊？要怎么写这个值啊？

不可能的事。

1、打印机要选择正确；

2、纸张名要匹配正确。

打印机没问题，值也是用这弄出来的，不过就是不行。你在你打印机上随便加个试试，都不行的

可能这个原因：

1、你在 A 打印机添加了纸张；

2、但是你的默认打印机是 B；

3、你打印之前，设置一下默认打印机，如代码

Dim obj As object = CreateObject("WScript.Network")
obj.SetDefaultPrinter("Microsoft XPS Document Writer")