以文本方式查看主题

-  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"