- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 字符串太长 打印时 溢出了 怎么办 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=61185)
-- 发布时间：2014/12/8 16:11:00
-- 字符串太长 打印时 溢出了 怎么办
字符串太长 打印时 溢出了 怎么办，能不能规定打印时 一行20个字符
-- 发布时间：2014/12/8 16:13:00
--
此主题相关图片如下：qq图片20141208161352.jpg
譬如上面的 加工要求太长 怎么办
-- 发布时间：2014/12/8 16:13:00
--
要看你的具体情况，在知道怎么处理。
什么情况下的打印？
-- 发布时间：2014/12/8 16:36:00
--
2楼的问题 怎么写代码
-- 发布时间：2014/12/8 16:43:00
--
回复4楼，要用代码处理成自动行高才行。
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)
Dim Rg As MSExcel.Range = Ws.Cells
\'Rg.EntireColumn.AutoFit \'自动调整列宽
Rg.EntireRow.AutoFit \'自动调整行高
Rg.WrapText = True
App.Visible = True
-- 发布时间：2014/12/8 16:58:00
--
我的打印按钮代码 是这样的 如何修改
If Tables("加工出库单").current("单据状态")="未保存"
messagebox.show("已审核或已保存的单据才能打印!","信息提示",MessageBoxButtons.ok, MessageBoxIcon.warning)
Return
End If
Dim Book As New XLS.Book(ProjectPath & "Attachments\\加工单.xls")
Dim fl As String = ProjectPath & "Reports\\加工单.xls"
Book.Build()
Book.Save(fl)
Dim App As New MSExcel.Application
App.Visible = False
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open(fl)
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
App.Visible = True
Ws.PrintPreview
App.Quit
-- 发布时间：2014/12/8 17:00:00
--
If Tables("加工出库单").current("单据状态")="未保存"
messagebox.show("已审核或已保存的单据才能打印!","信息提示",MessageBoxButtons.ok, MessageBoxIcon.warning)
Return
End If
Dim Book As New XLS.Book(ProjectPath & "Attachments\\加工单.xls")
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(1)
Dim Rg As MSExcel.Range = Ws.Cells
Rg.WrapText = True
\'Rg.EntireColumn.AutoFit \'自动调整列宽
Rg.EntireRow.AutoFit \'自动调整行高
App.Visible = True
Ws.PrintPreview
App.Quit
-- 发布时间：2014/12/8 20:00:00
--
7楼 打印跟原来一样没有变化 ，
-- 发布时间：2014/12/8 20:12:00
--
呃，你模板的列的宽度，要先设置好啊。
你不打印，直接显示看是否正确
-- 发布时间：2014/12/8 20:28:00
--
Dim dt1 As New Date(y, m, 1)
Dim dt2 As New Date(y, m, Date.DaysInMonth(y, m)) \'获取本月的最后一天
e.Form.Controls("startdate").value=Dt1
e.Form.Controls("enddate").value=Dt2
Filter ="日期 >= #" & dt1 & "# And 日期 <= #" & dt2 & "# and 单据性质=\'收款单\'"
msgbox(filter)
DataTables("资金收付").loadfilter=filter
DataTables("资金收付").load()
filter 错在哪里