以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  专业报表  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=138245)
--  作者：zto001
--  发布时间：2019/7/26 9:56:00
--  专业报表
想问下如何能快递打印？我想打印快递单。现在我是设置一个窗口。获取表格内的数据进行打印，但这样打印太慢了。打印的时候窗口不能操作。能不能后台打印？
[此贴子已经被作者于2019/7/31 10:30:10编辑过]
--  作者：有点蓝
--  发布时间：2019/7/26 10:20:00
--  
除非使用专业报表：http://www.foxtable.com/webhelp/topics/1246.htm
--  作者：zto001
--  发布时间：2019/7/26 11:25:00
--  
这样还是前台打印，打印期间不能操作。能不能把正在打印这个页面隐藏到后台。我能正常操作窗口执行下一条打印的代码？
--  作者：有点蓝
--  发布时间：2019/7/26 11:41:00
--  
专业报表可以使用异步函数。窗口打印是没有办法的。
--  作者：zto001
--  发布时间：2019/7/26 14:31:00
--  
这个位置怎么量？
--  作者：zto001
--  发布时间：2019/7/26 14:32:00
--  

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轴的大小怎么量出来，有没有便捷的方法
--  作者：有点蓝
--  发布时间：2019/7/26 14:52:00
--  
没有便捷的方法

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

然后不断测试微调
--  作者：zto001
--  发布时间：2019/7/26 15:23:00
--  

我不知道分辨率是多少。

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

 
--  作者：zto001
--  发布时间：2019/7/26 15:25:00
--  
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毫米
--  作者：zto001
--  发布时间：2019/7/26 15:48:00
--  

问题

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()