- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- [求助]自动换行打印不全 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=121555)
-- 发布时间：2018/7/9 14:14:00
-- [求助]自动换行打印不全
在窗口打印时，总有些行，自动换行后，打印不全，不知道应怎么调整。纸张不大。
此主题相关图片如下：自动换行打印不全.png
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目4.rar |
-- 发布时间：2018/7/9 15:51:00
--
求助啊，别沉了。
-- 发布时间：2018/7/9 17:05:00
--
Tables(e.Form.Name & "_Table1").SetColVisibleWidth("下单日期|40|销售单号|80|业务员|45|品名规格|110|P数|35|数量|55|总线数|55|出货日期|40|备注|160|客户|50|组别|40")
Tables(e.Form.Name & "_Table1").AutoSizeRows()
e.Form.Page.Width = 240 \'纸张宽度为100毫米
e.Form.Page.Height = 140 \'纸张高度为120毫米
e.Form.Page.LeftMargin = 5 \'设置左边距
e.Form.Page.RightMargin = 1 \'设置右边距
e.Form.Page.TopMargin = 3 \'设置上边距
e.Form.Page.BottomMargin = 1 \'设置下边距
Dim grp As WinForm.GroupBox = e.Form.Controls("GroupBox1")
Dim doc As PrintDoc = e.Form.GernatePrintDoc(grp)
\'Doc.PrinterName = GetConfigValue("_zlddyj",DefaultPrinter)
For Each c As object In Doc.Body.Children
If Typeof c Is prt.RenderTable Then
Dim t As prt.RenderTable = c
For i As Integer = 0 To t.Rows.count-1
t.Rows(i).Height = "Auto"
Next
End If
Next
doc.AutoRotate = False \'禁止自动旋转打印内容
doc.Preview(True)