主题：关于自定义纸张的打印

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

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

哪位高手帮帮忙。多谢！