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

我在打印机里已经定义了纸张名称：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

 

 

请各位老师指导。

甜版，

 

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

甜版，

 

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

 

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

 

 

 

 

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

 

要怎么写？多谢！

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

 

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

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

 

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

我今天 试了好多次了。第一个生成的EXEC是可以正常打印，没问题的。但每个文件打出来就不同了。我进去EXECl文件里看过。也是不一样的。纸张大小的参数不一样。

甜老师

 

我发现一个问题。如果打完了一张，再生成另一张，再打印。是没有问题的。但是如果第一张在打印中，但又生成一个execl就有问题了。

 

打印时，可以不可 找印完成后，再执行代码？  PrintOut
   

 

可不可以知道有没有打印完成的？如何实现。多谢！ 

我想再问一下，有什么代码是可以支持等待时间的？比如，执行到  这句代码 就等 待到指定的时间，再执行下面的代码？