主题：字符串太长 打印时 溢出了 怎么办

此主题相关图片如下：qq图片20141208161352.jpg

譬如上面的 加工要求太长 怎么办

要看你的具体情况，在知道怎么处理。

什么情况下的打印？

 回复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

我的打印按钮代码 是这样的 如何修改

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

 呃，你模板的列的宽度，要先设置好啊。

 你不打印，直接显示看是否正确

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  错在哪里