Foxtable(狐表)用户栏目专家坐堂 → 怎样设置EXCEL表自定义纸张的大小呢


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

主题:怎样设置EXCEL表自定义纸张的大小呢

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


加好友 发短信
等级:五尾狐 帖子:1159 积分:160 威望:0 精华:0 注册:2017/11/8 17:37:00
怎样设置EXCEL表自定义纸张的大小呢  发帖心情 Post By:2022/5/4 10:41:00 [只看该作者]

Dim Book As New XLS.Book(ProjectPath & "Attachments\销售出库.xls")
Dim f As String = e.Form.Controls("ComboBox2").value
Dim fl As  String = ProjectPath & "reports\销售出库.xls"
Book.Build() '生成细节区
Book.Save(fl) '保存工作簿
Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open(fl)
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(f)

With Ws.PageSetup
  
    .PageWidth = CentimetersToPoints(21)
    .PageHeight = CentimetersToPoints(14)
   
 
End With
App.Visible = True
Ws.PrintPreview
App.Quit

EXCEL表设置不了自定义张纸的大小,
    .PageWidth = CentimetersToPoints(21)
    .PageHeight = CentimetersToPoints(14)
这二句通过不了

怎样设置EXCEL表自定义纸张的大小呢

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


加好友 发短信
等级:五尾狐 帖子:1159 积分:160 威望:0 精华:0 注册:2017/11/8 17:37:00
  发帖心情 Post By:2022/5/4 11:20:00 [只看该作者]

现在使用的是连续打印210*140,在打印服务器设置好后,第二日又回复回A4纸的打印样式,

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


加好友 发短信
等级:超级版主 帖子:87724 积分:445175 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/5/4 21:37:00 [只看该作者]


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


加好友 发短信
等级:五尾狐 帖子:1159 积分:160 威望:0 精华:0 注册:2017/11/8 17:37:00
  发帖心情 Post By:2022/5/5 9:54:00 [只看该作者]

昨日已把窗口增加了入去,但是不见有作用,不知是怎 样使用的


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


加好友 发短信
等级:五尾狐 帖子:1159 积分:160 威望:0 精华:0 注册:2017/11/8 17:37:00
  发帖心情 Post By:2022/5/5 9:56:00 [只看该作者]

如果使用WORD来做连续打印是否会好些呢

 回到顶部