此主题相关图片如下：121.png
此主题相关图片如下：122.png
上面第二幅图中，红色部分空挡区域，应该怎么去除？
Dim d1 As Date = e.Form.Controls("出库日期").Text
Dim fdr1 As DataRow = DataTables("意和打印记录表").Find("日期 >= #" & d1.Date & "# and 日期 < #" & d1.Date.adddays(1) & "#")
If fdr1 IsNot Nothing Then fdr1("次数") += 1
For Each r As Row In Tables("意和打印窗口_出库明细表")
r("出库编号") = e.Form.Controls("出库编号").Text
r("出库日期") = e.Form.Controls("出库日期").value
r("开piao人") = e.Form.Controls("开piao人").Text
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 '如果纸张的宽度超过高度,要加上这行代码
Dim ndoc As new PrintDoc
Dim ra_1 As new prt.RenderArea
Dim ra_2 As new prt.RenderArea
Dim ra_3 As new prt.RenderArea
Dim flag As Boolean = False
For Each c As object In Doc.Body.Children
If c.Gettype.name Like "*RenderText*" Then
If flag = False Then
ra_1.Children.Add(c.Clone)
Dim nrt = c.clone
nrt.height = 0
ra_2.Children.Add(nrt)
Else
ra_2.Children.Add(c.clone)
End If
ElseIf c.Gettype.name Like "*RenderTable*" Then
ra_3.Children.Add(c.Clone)
Dim nrt = c.clone
nrt.height = 0
ra_2.Children.Add(nrt)
flag = True
End If
Next
ndoc.Body.Children.Add(ra_3)
nDoc.PageHeader = ra_1 '作为页眉使用
Dim rt = New prt.RenderText '设置文本对象的内容
rt.Text = "第[PageNo]页,共[PageCount]页" '设置文本内容
rt.Style.TextAlignHorz = prt.AlignHorzEnum.Right
rt.Style.Padding.Bottom = 2
rt.Style.Padding.right= 10
rt.Y = "Prev.Bottom + 2"
rt.Style.FontSize = 8
ra_2.Children.Add(rt)
ndoc.PageFooter = ra_2
ndoc.PageSetting.LeftMargin = 0 '设置左边距
ndoc.PageSetting.RightMargin = 0 '设置右边距
ndoc.PageSetting.TopMargin = 0 '设置上边距
ndoc.PageSetting.BottomMargin = 0 '设置下边距
ndoc.PageSetting.Width = 218 '纸张宽度为218毫米
ndoc.PageSetting.Height = 94 '纸张高度为94毫米
ndoc.AutoRotate = False '如果纸张的宽度超过高度,要加上这行代码
ndoc.Preview()
Dim fnt As New Font("黑体",9,FontStyle.Bold)
CurrentTable.Font = fnt
For Each dr1 As DataRow In DataTables("出库明细表").Select("[打印_意和] = true")
If dr1 Is Nothing Then Return
If dr1("出库已选_部分") = True Then
dr1("打印_意和") = False
dr1("状态_半开") = True
dr1("出库已选_部分") = False
ElseIf dr1("出库已选_全部") = True Then
dr1("打印_意和") = False
dr1("状态_全开") = True
dr1("状态_半开") = False
dr1("出库已选_全部") = False
End If
Next
Forms("意和打印窗口").Close()
Dim fnt1 As New Font("宋体",9,FontStyle.Regular)
CurrentTable.Font = fnt1
加好友 
发短信
Post By：2019/5/10 15:47:00 [显示全部帖子]
Post By：2019/5/11 10:17:00 [显示全部帖子]
