Dim doc As New PrintDoc() '定义一个报表
'Doc.PrinterName = e.Form.Controls("ComboBox1").Value '指定打印机
doc.PageSetting.Width = 40 '纸张宽度为100毫米
doc.PageSetting.Height = 30 '纸张高度为50毫米
Doc.PageSetting.LeftMargin =0 '设置左边距
Doc.PageSetting.RightMargin =0 '设置右边距
Doc.PageSetting.TopMargin = 0 '设置上边距
Doc.PageSetting.BottomMargin = 0 '设置下边距
doc.AutoRotate = False '如果纸张的宽度超过高度,要加上这行代码
doc.Stacking = prt.StackingRulesEnum.InlineLeftToRight
Dim ra As New prt.RenderArea
Dim rt As prt.RenderText
ra.Width =40 '标签框架宽
ra.Height =30 '标签框架高
ra.Style.Spacing.All = 1
ra.Style.Borders.All = New prt.Linedef(0.3, Color.black)
ra.SplitHorzBehavior = prt.SplitBehaviorEnum.Never
ra.SplitVertBehavior = prt.SplitBehaviorEnum.Never
Doc.Body.ChildRen.Add(ra)
rt = New prt.RenderText
rt.Text = Tables("打印").current("产品名称")
rt.X = 2
rt.Y = 2
ra.Children.Add(rt)
rt = New prt.RenderText
rt.Text = "生产日期: " & Date.now
rt.X = 2
rt.Y = "Prev.Bottom + 2"
ra.Children.Add(rt)
If Tables("打印").current("是否有日期")=False
rt = New prt.RenderText
rt.Text = "保 质 期:"& Tables("打印").current("文本保质期")
rt.X = 2
rt.Y = "Prev.Bottom + 2"
ra.Children.Add(rt)
Else
rt = New prt.RenderText
rt.Text = "保 质 期:"& Tables("打印").current("保质期") &"天"
rt.X = 2
rt.Y = "Prev.Bottom + 2"
ra.Children.Add(rt)
End If
If Tables("打印").current("是否有日期")=False
rt = New prt.RenderText
rt.Text = "到期日期:"& format(Tables("打印").current("到期日期"),"yyyy-mm-dd")
rt.X = 2
rt.Y = "Prev.Bottom + 2"
ra.Children.Add(rt)
Else
rt = New prt.RenderText
rt.Text = "到期日期:"& format(date.now.AddDays(Tables("打印").current("保质期")),"yyyy-mm-dd")
rt.X = 2
rt.Y = "Prev.Bottom + 2"
ra.Children.Add(rt)
End If
rt = New prt.RenderText
rt.Text = "储存方法: " & Tables("打印").current("储存方法")
rt.X = 2
rt.Y = "Prev.Bottom + 2"
ra.Children.Add(rt)
Doc.Preview()
第一个问题，日期后面还有时间
第二个问题，怎么让产品名称，横向居中
第三个问题，怎么设置循环
第四个问题，某一条记录可能要打印三，或者四份，怎么设置
加好友 
发短信
Post By：2017/10/12 22:44:00 [只看该作者]
