主题：专业报表

想问下如何能快递打印？我想打印快递单。现在我是设置一个窗口。获取表格内的数据进行打印，但这样打印太慢了。打印的时候窗口不能操作。能不能后台打印？

除非使用专业报表：http://www.foxtable.com/webhelp/topics/1246.htm

这样还是前台打印，打印期间不能操作。能不能把正在打印这个页面隐藏到后台。我能正常操作窗口执行下一条打印的代码？

专业报表可以使用异步函数。窗口打印是没有办法的。

这个位置怎么量？

Dim doc  As New PrintDoc  '定义一个报表
Dim rx As prt.RenderText '定义一个文本对象
Dim rm As prt.RenderImage '定义一个图形队形

 rx = new prt.RenderText
 rx.Text = "姓名"
rx.x = 2
 rx.y = 6
 doc.body.Children.Add(rx)

 rx = new prt.RenderText
 rx.Text = "出生日期"
rx.x = 109
 rx.y = 36
 doc.body.Children.Add(rx)

 rx = new prt.RenderText
 rx.Text = "部门"
rx.x = 51
 rx.y = 43
 doc.body.Children.Add(rx)

 rx = new prt.RenderText
 rx.Text = "雇佣日期"
rx.x = 109
 rx.y = 43
 doc.body.Children.Add(rx)

 rx = new prt.RenderText
 rx.Text = "性别"
rx.x = 51
 rx.y = 50
 doc.body.Children.Add(rx)

 rx = new prt.RenderText
 rx.Text = "职务"
rx.x = 109
 rx.y = 50
 doc.body.Children.Add(rx)

 rx = new prt.RenderText
 rx.Text = "城市"
rx.x = 51
 rx.y = 57
 doc.body.Children.Add(rx)

 rx = new prt.RenderText
 rx.Text = "邮政编码"
rx.x = 109
 rx.y = 57
 doc.body.Children.Add(rx)

 rx = new prt.RenderText
 rx.Text = "地址"
rx.x = 51
 rx.y = 63
 doc.body.Children.Add(rx)

 rx = new prt.RenderText
 rx.Text = "家庭电话"
rx.x = 51
 rx.y = 69.5
 doc.body.Children.Add(rx)

 rx = new prt.RenderText
 rx.Text = "办公电话"
rx.x = 109
 rx.y = 69.5
 doc.body.Children.Add(rx)

 rx = new prt.RenderText
 rx.Text = "备注"
rx.x = 26.5
 rx.y = 76
 rx.Width= 163
 doc.body.Children.Add(rx)

 Doc.Preview() '预览报表

 

 

 

 

X/Y轴的大小怎么量出来，有没有便捷的方法

用尺量，转换为像素：https://www.baidu.com/baidu?word=厘米像素

我不知道分辨率是多少。

问下表格边缘我要靠着打印边缘，不留白怎么写。

 

Dim doc As New PrintDoc '定义一个报表
Dim rt As New prt.RenderTable() '定义一个表格对象
Dim rx As New prt.RenderText '定义一个文本对象

'加入标题
rx.text = "员工资料卡"
rx.Style.FontBold = True '字体加粗
rx.Style.FontSize = 16 '大体大小为16磅
rx.Style.TextAlignHorz = prt.AlignHorzEnum.Center '水平居中排列
rx.Style.Spacing.Bottom = 3 '和下面的对象(表格)距离3毫米
doc.Body.Children.Add(rx) '加入到报表中
'指定行数、列数、列宽、行高
rt.Rows.Count = 7 '设置总行数
rt.Cols.Count = 5 '设置总列数
rt.Height = 80 '设置表格的高度为80毫米

问题

1、我要打印成100*180大小的，怎么设置

2、表格边缘我要靠着边缘打印，不留白怎么写。

3、条形码怎么插入？

 

 

条形码代码

Dim doc As New PrintDoc
Dim rg As New prt.RenderGraphics
Dim Bar As New BarCodeBuilder
Bar.Symbology = Barpro.Symbology.Code39
bar.Code = "12345678"
rg = new prt.RenderGraphics
bar.DrawOnCanvas(rg.Graphics,0,0,1)
Doc.Body.Children.Add(rg)
Doc.Preview()