以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]EXCEL报表页面设置代码放在哪里?  (http://foxtable.net/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文件(报表)的第一个工作表。