- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 请问，这个上面这个打印窗口打印出来的内容，中间的“出库明细表”的边框能否固定啊？ (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=134824)
-- 发布时间：2019/5/10 9:35:00
-- 请问，这个上面这个打印窗口打印出来的内容，中间的“出库明细表”的边框能否固定啊？
此主题相关图片如下：444.png
请问，这个上面这个打印窗口打印出来的内容，中间的“出库明细表”的边框能否固定啊？
此主题相关图片如下：555.jpg
打印测试如上：
单行行高变大后，表的边框却也变高了，
求：怎样调整成表的边框保持不变的？
-- 发布时间：2019/5/10 9:43:00
--
表格的行数不确定、行高不确定，表格的高度，是无法固定的，固定了，就必须调整各行的行高。
-- 发布时间：2019/5/10 9:44:00
--
你不允许别人调整行高，不就行了？
http://www.foxtable.com/webhelp/scr/1370.htm
-- 发布时间：2019/5/10 9:51:00
-- 回复：（有点甜）你不允许别人调整行高，不就行了？...
但是，实际操作上，需要用户手动调整各行的高度，因为有些行的列内容特别长，需要多次换行导致单行订单的行高变大，
有没有办法，让窗口表的边框不变，只显示窗口表的边框范围内的数据，若是某行的内容，在窗口表的边框内看不到了，打印时也不予显示，这样可以做到吗？
-- 发布时间：2019/5/10 10:03:00
--
以下是引用fengwenliuyan在2019/5/10 9:51:00的发言：
但是，实际操作上，需要用户手动调整各行的高度，因为有些行的列内容特别长，需要多次换行导致单行订单的行高变大，
但是，实际操作上，需要用户手动调整各行的高度，因为有些行的列内容特别长，需要多次换行导致单行订单的行高变大，
有没有办法，让窗口表的边框不变，只显示窗口表的边框范围内的数据，若是某行的内容，在窗口表的边框内看不到了，打印时也不予显示，这样可以做到吗？
打印之前，先修改各行的高度，再打印。如
Dim t = Tables("表A").grid
For Each r As object In t.Rows
r.height = 50
Next
-- 发布时间：2019/5/10 10:17:00
-- 回复：（有点甜）以下是引用fengwenliuyan在2019/5/10...
Dim d1 As Date = e.Form.Controls("出库日期").Text
Dim fdr1 As DataRow = DataTables("意和打印记录表").Find("日期 >= #" & d1.Date & "# and 日期 < #" & d1.Date.adddays(1) & "#")
fdr1("次数") += 1
For Each r As Row In Tables("意和打印窗口_出库明细表")
r("出库编号") = e.Form.Controls("出库编号").Text
Next
\'针式打印机的连进连出打印:
e.Form.Page.LeftMargin = 0 \'设置左边距
e.Form.Page.RightMargin = 0 \'设置右边距
e.Form.Page.TopMargin = 0 \'设置上边距
e.Form.Page.BottomMargin = 0 \'设置下边距
Dim doc As PrintDoc = e.Form.GernatePrintDoc()
doc.PageSetting.Width = 218 \'纸张宽度为218毫米
doc.PageSetting.Height = 94 \'纸张高度为94毫米
doc.AutoRotate = False \'如果纸张的宽度超过高度,要加上这行代码
\'添加打印内容
\'doc.Print()
doc.Preview()
Dim fnt As New Font("黑体",9,FontStyle.Bold)
CurrentTable.Font = fnt
Dim t = Tables("意和打印窗口_出库明细表").grid
For Each r As object In t.Rows
r.height = 50
Next
Forms("意和打印窗口").Close()
Dim fnt1 As New Font("宋体",9,FontStyle.Regular)
CurrentTable.Font = fnt1
此主题相关图片如下：666.png
此主题相关图片如下：777.png
这是打印效果，边框似乎还是不能固定？
-- 发布时间：2019/5/10 10:19:00
--
设置固定行数
-- 发布时间：2019/5/10 10:24:00
-- 回复：（有点甜）设置固定行数
此主题相关图片如下：888.png
这是固定最少行数和最大行数为6时，打印框中拉大行高后的打印效果
-- 发布时间：2019/5/10 10:36:00
--
先设置行高，再生成打印。
Dim t = Tables("意和打印窗口_出库明细表").grid
For Each r As object In t.Rows
r.height = 50
Next
Dim doc As PrintDoc = e.Form.GernatePrintDoc()
-- 发布时间：2019/5/10 10:47:00
-- 回复：（有点甜）先设置行高，再生成打印。 ...
此主题相关图片如下：999.png
只是固定了行高，对整体的表边框的固定，没有作用？