主题：关于连续打印时的自定义纸张的引用

我在打印机里已经定义了纸张名称：aaa

现在在代码里要引用，要怎么处理？

Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open("D:\Report.xls")
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
With Ws.PageSetup
    '设置打印区域
      .PaperSize = ？？？  '纸张大小   这里要怎么写？
  End With
App.Visible = True
Ws.PrintPreview
App.Quit

请各位老师指导。

 参考例子 http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=54472&replyID=&skin=1

甜版，

例子太复杂了，要引用DLL的，现在水平还不够？能告诉我，PaperSize = “” 后面能写规格吗？比如 210 * 140 ？

 自定义的纸张，是有一个数值的，是它在所有纸张的位置，你要获取才行啊。

 自己看例子，例子已经很简单了啊

甜版，

我用了例子的值，但是会出错啊。例子中的值是：155

我的代码：PaperSize = 155 会报错。如下图

此主题相关图片如下：g`7ktwagf$mzmpukfymmxp.png

要怎么写？多谢！

1、你打印机选错了；

2、你的papersize值错了

打印机没错，我可以确定。

但我是用的例子中的值啊。

 你往哪个打印机添加，才能在哪个打印机中引用啊。

 你要往默认打印机那里添加啊，这么简单的例子还不会用？

郁闷啊。今天搞了一天。连续打印就是不行。

为什么生成的EXECL第一张是纸张大小是和打印机的一样，第二张就不是了。就是不会设打印机的纸张。晕啊。