Foxtable(狐表)用户栏目专家坐堂 → 报表打印的设置


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

主题:报表打印的设置

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


加好友 发短信
等级:二尾狐 帖子:518 积分:4773 威望:0 精华:1 注册:2011/11/23 20:48:00
报表打印的设置  发帖心情 Post By:2012/9/4 20:33:00 [只看该作者]

报表打印时,怎么设置页边距和横着打啊,我用下面的代码不能控制横打和边距,另外,一般出货的四联针打纸,要选哪个纸张代码?

 

Dim Book As New XLS.Book(ProjectPath & "Attachments\出货单.xls")
Dim fl As String = ProjectPath & "Reports\出货单.xls"
Book.Build()
Book.Save(fl)

 

Dim Book1 As New XLS.Book
Dim Sheet As XLS.Sheet = Book1.Sheets(0)
With Sheet.PrintSetting
    .PaperKind = 9 '设为A4纸
    .LandScape = True '横向打印
    .MarginLeft = 10 '左右边距设为20毫米
    .MarginRight = 10
    .MarginTop = 5 '上下边距设为15毫米
    .MarginBottom = 5
End With

 

Dim Proc As New Process
Proc.File = fl
Proc.Verb = "Print"
Proc.Start()


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


加好友 发短信
等级:管理员 帖子:47448 积分:251060 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2012/9/4 21:42:00 [只看该作者]

在Excel设计报表模版的时候,设置好页面


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


加好友 发短信
等级:二尾狐 帖子:518 积分:4773 威望:0 精华:1 注册:2011/11/23 20:48:00
  发帖心情 Post By:2012/9/4 21:45:00 [只看该作者]

噢  原来是在excel里设置啊

顺便问下,打出货单的四联纸 是打印设置里的哪种纸的代号?


 回到顶部