Foxtable(狐表)用户栏目专家坐堂 → [求助]EXCEL报表页面设置代码放在哪里?


  共有24027人关注过本帖树形打印复制链接

主题:[求助]EXCEL报表页面设置代码放在哪里?

帅哥哟,离线,有人找我吗?
易服
  1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:787 积分:6349 威望:0 精华:0 注册:2008/9/1 8:26:00
[求助]EXCEL报表页面设置代码放在哪里?  发帖心情 Post By:2008/9/29 13:26:00 [只看该作者]

  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


 回到顶部
帅哥哟,离线,有人找我吗?
狐狸爸爸
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2008/9/29 16:06:00 [只看该作者]

Dim Sheet As XLS.Sheet = Book.Sheets(0)

表示的就是Excel文件(报表)的第一个工作表。

 回到顶部