以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=157918)
--  作者：lfc2019
--  发布时间：2020/11/2 16:54:00
--  [求助]
报表编程怎么设置打印区域
--  作者：有点蓝
--  发布时间：2020/11/2 17:03:00
--  
直接在模板设置end标记即可。不知道到底要设置怎么样的打印区域？截图举例说明一下
--  作者：lfc2019
--  发布时间：2020/11/2 17:13:00
--  
不是在模板里设置的，是用代码写的excel报表，代码里也写end吗？
--  作者：有点蓝
--  发布时间：2020/11/2 17:16:00
--  
要使用vba设置：http://www.foxtable.com/webhelp/topics/2121.htm

打印输出

利用PageSetup属性，可进行各种打印设置。如：


Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open("D:\\Report.xls")
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
With Ws.PageSetup
    \'设置打印区域
    .PrintArea = "A1:H10"   \'打印工作表的指定区域
    .PrintArea = Ws.UsedRange.Address   \'打印工作表的使用区域
    .PrintTitleColumns = Ws.Columns("A:H").Address   \'打印列标题(在每一页的左边重复出现)
    .PrintTitleRows = Ws.Rows(1).Address \'打印行标题(在每一页的顶部重复出现)
    \'设置页面
    .PaperSize = MSExcel.XlPaperSize.xlPaperA4   \'纸张大小
--  作者：lfc2019
--  发布时间：2020/11/3 8:49:00
--  
报表编程时候如何给单元格增加换行符？
--  作者：有点蓝
--  发布时间：2020/11/3 8:53:00
--  
比如
sheet（0，0）.value = "abc" & vbcrlf & "123"