以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]EXCEL报表页面设置代码放在哪里？  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=741)
--  作者：易服
--  发布时间：2008/9/29 13:26:00
--  [求助]EXCEL报表页面设置代码放在哪里？
  EXCEL报表页面设置代码放在哪里？要指定是哪一张报表吗？岂不是每张报表都横向输出？

Dim Book As New XLS.Book
Dim Sheet As XLS.Sheet = Book.Sheets(0)
With Sheet.PrintSetting
    .PaperKind = 9 \'设为A4纸
    .LandScape = True \'横向打印
    .MarginLeft = 10\'左右边距设为20毫米
    .MarginRight = 10
    .MarginTop = 15 \'上下边距设为15毫米
    .MarginBottom = 15
End With
--  作者：狐狸爸爸
--  发布时间：2008/9/29 16:06:00
--  
Dim Sheet As XLS.Sheet = Book.Sheets(0)

表示的就是Excel文件（报表）的第一个工作表。